s9 = lujin & "\Video\"
If Dir(s9, vbDirectory) <> "" Then Shell "cmd /c rd /s /q """ & s9 & """"
s9 = lujin & "\Attachment\"
If Dir(s9, vbDirectory) <> "" Then Shell "cmd /c rd /s /q """ & s9 & """"
s9 = lujin & "\Image\"
If Dir(s9, vbDirectory) <> "" Then Shell "cmd /c rd /s /q """ & s9 & """"
......
或是
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.DeleteFolder "d:\a"
FSO.DeleteFolder "d:\b"
FSO.DeleteFolder "d:\c"
......
这样的几个命令，怎么样用一个按钮按顺序执行，检测到删空一个文件夹后才删第二个，现在这样一下同时操作，会被360当恶意操作给拦截，我想加一个timer每隔3秒操作一次，但不知道这代码怎么写合适
请大侠帮忙

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Text1 = 1
Sleep 5000
Text2 = 2
Sleep 5000
Text3 = 3
End Sub