Главная страницаОбратная связьКарта сайта

Удаление папки с помощью 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", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info