RemoveDirectory |
|
Declaración: | |
Declare Function RemoveDirectory Lib "kernel32.dll" Alias "RemoveDirectoryA" (ByVal lpPathName As String) As Long | |
Descripción: | |
La función RemoveDirectory elimina el directorio que nosotros le especifiquemos del disco duro, pero este tiene que estar vacío. | |
Parámetros: | |
ByVal lpPathName As String | |
Aquí se coloca la ubicación del directorio a eliminar. | |
Valor de retorno: | |
Se retorna 0, el directorio no se pudo borrar, posiblemente contenga archivos dentro de él o no exista, en caso de devolver 1 el directorio se elimino. | |
Uso: | |
Dim ValorRetorno As Long 'Variable para el valor de retorno 'Para usar el ejemplo cree una carpeta en su Disco C:\ con el nombre Nueva Carpeta (por defecto aparece ese) ValorRetorno = RemoveDirectory("C:\Nueva carpeta") 'Elimina "Nueva.Carpeta" del disco C: If ValorRetorno = 1 then MsgBox "Se elimino el directorio" 'Muestra un mensaje si se elimino Else MsgBox "Hubo un error eliminando el mismo" 'Muestra otro mensaje si no se elimino End If |
|