Функция RemoveDirectory

Declare Function RemoveDirectory Lib "kernel32" Alias "RemoveDirectoryA" (ByVal lpPathName As String) As Long
RemoveDirectory удаляет папку с диска. Функция не удаляет файлы или подпапки внутри папки. Если папка не является пустой, то происходит ошибка
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

Категория

Файлы