Функция RemoveDirectory

Declare Function RemoveDirectory Lib "kernel32.dll" Alias "RemoveDirectoryA" (ByVal lpPathName As String) As Long

Платформа: Win 95/98, Win NT

RemoveDirectory удаляет папку с диска.Функция не удаляет файлы или подпапки внутри папки.Если папка не является пустой,то происходит ошибка. В случае успеха функция возвращает 1,в случае ошибки функция возвращает 0.

lpPathName
Папка для удаления. Папка должна быть пустой.

Пример:

' Удалим папку C:\Samples.
Dim retval As Long  ' возвращаемое значение

retval = RemoveDirectory("C:\Samples")  ' удаляем папку
If retval = 1 Then  ' удаление прошло успешно
  Debug.Print "Папка C:\Samples была удалена."
Else
  Debug.Print "Ошибка.  Убедитесь,что папка C:\Samples пуста."
End If

Схожие функции: CreateDirectory
Категория: Файлы

В начало.