Private Declare Function RemoveDirectory Lib "kernel32.dll" Alias
"RemoveDirectoryA" _ (ByVal lpPathName As String) As Long
Private Sub Command1_Click()
retval = RemoveDirectory("D:\ХХХ")
If retval = 1 Then
MsgBox "Папка была удалена", vbInformation
Else
MsgBox "Операция провалилась", vbCritical
End If
End Sub |
|