Visual Basic FAQ

Как удалить каталог с файлами?

'Добавьте к пути \1 и вы удалите папку в каталоге с программой
'Будьте аккуратны с использованием этого  кода
Option Explicit

Private Sub Command1_Click()
On Error GoTo ErrorLabel
Dim delFSO As Object
Set delFSO = CreateObject("Scripting.FileSystemObject")
delFSO.DeleteFolder Text1.Text, True
Exit Sub
ErrorLabel:
    If Err.Number = 76 Then
        MsgBox ("Путь к папке указан неверно"), vbCritical
    Text1.SetFocus
End If
End Sub

Private Sub Form_Load()
Text1.Text = App.Path
End Sub

Private Sub Text1_Validate(Cancel As Boolean)
If Text1.Text = Empty Then
    MsgBox ("Введите путь"), vbCritical
    Cancel = True
Exit Sub
End If
End Sub

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