Удаление папки с помощью API функции RemoveDirectory
'Данная функция удаляет только папку, не содержающую файлов
Private Declare Function RemoveDirectory Lib "kernel32.dll" Alias "RemoveDirectoryA" (ByVal lpPathName As String) As Long
Private Sub Command1_Click() retval = RemoveDirectory("D:\14") If retval = 1 Then MsgBox "Папка была успешна удалена", vbInformation Else MsgBox "Операция удаления провалилась", vbCritical End If End End Sub
Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Удаление папки с помощью API функции RemoveDirectory", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!