[VB 6.0] Удаление директории с файлами

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

 

« Пред.		След. »