| Вопрос: Как удалить каталог со всеми файлами и подкоталога | Добавлено: 23.08.06 06:38 |
Автор вопроса:  KEP
|
| Как удалить каталог со всеми файлами и подкаталогами? |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  Artyom Разработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #1 | Добавлено: 23.08.06 06:56 |
|
Sub DelDir(ByVal Dir As DirectoryInfo)
For Each Fl As FileInfo In Dir.GetFiles Fl.Attributes = FileAttributes.Normal Fl.Delete() Next For Each Dr As DirectoryInfo In Dir.GetDirectories  elDir(Dr)
r.Delete()
Next End Sub |
||
|
Номер ответа: 2 Автор ответа:  KEP Вопросов: 44 Ответов: 119 |
Профиль | | #2 | Добавлено: 23.08.06 07:01 |
| Пасиб!!! попробую. | ||
|
Номер ответа: 3 Автор ответа: [root]Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #3 | Добавлено: 23.08.06 07:06 |
|
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 |
||
|
Номер ответа: 4 Автор ответа:  KEPВопросов: 44 Ответов: 119 |
Профиль | | #4 | Добавлено: 23.08.06 07:19 |
| Работает!!!! Пасиб!!!. | ||
Страница: 1 |