18 Февраль 2009

Как удалить папку, не содержащую файлов?

Папки |  Таги:

Как удалить папку, не содержащую файлов?

Option Explicit

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

Private Sub Command1_Click()
Dim blnDir As Boolean
blnDir = RemoveDirectory(App.Path & "\1")
If blnDir = True Then
    MsgBox "Папка была удалена", vbInformation
Else
    MsgBox "Операция провалилась", vbCritical
End If
End
End Sub

Запись опубликована on 18.02.2009 at 9:00 и размещена в рубрике: Папки. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



Оставить комментарий

Я не робот.