Make your own free website on Tripod.com

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