Очистка папки и всех подпапок с отображением процесса удаления - VB
Формулировка задачи:
Здравствуйте!Помогите написать код такого типа:допустим есть папка в которой есть еще 2 папки и 5 файлов,как сделать чтобы при нажатии на кнопку "Очистить папку" показался индикатор очистки папки и все что внутри начало удаляться.Заранее спасибо.
Решение задачи: «Очистка папки и всех подпапок с отображением процесса удаления»
textual
Листинг программы
Private Sub Command1_Click() Animation1.Open "C:\Program Files\Microsoft Visual Studio\COMMON\Graphics\Videos\FILEDEL.AVI" ' у вас может быть другой путь! Animation1.Visible = True Animation1.Play Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.DeleteFolder ("H:\DDK") ' Папка на удаление. 'Здесь задержку организовать Start = Timer ' текущее время в секундах Do While Timer < Start + 3 ' 3 секунды что бы хоть что то показать! ' обеспечивает параллельное выполнение других процессов DoEvents Loop Animation1.Stop Animation1.Visible = False End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д