Очистка папки и всех подпапок с отображением процесса удаления - 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

Оцени полезность:

5   голосов , оценка 3.8 из 5
Похожие ответы