一个按钮如何按顺序执行几个命令？ - vb吧

level 7

peeppp 楼主

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秒操作一次，但不知道这代码怎么写合适
请大侠帮忙

2020年09月24日 07点09分 1

level 5

庄天齐

函数声明： Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long) 参数： dwMilliseconds：等待的时间，以毫秒为单位。1秒=1000毫秒。

2020年09月24日 10点09分 2

hn_ade

2020年09月25日 00点09分

level 5

庄天齐

添加api后，每句直行命令之间加 sleep 5000 ，这个意思是执行上面的代码后等待5秒再执行下面一行代码，每个命令中间都要加，自己控制好等待的时间长短就行

2020年09月24日 10点09分 3

peeppp

是按楼下这样用的吗？测试不对啊，等了10后才一下全变，我哪里写错了？

2020年09月25日 02点09分

初音✨七奈

@peeppp Sleep会使程序界面卡住，对用户操作失去响应，并且屏幕显示也不会自动更新

2020年09月25日 02点09分

peeppp

@初音✨七奈哦，你的意思是实际上程序是按这设定的时间在操作，只是因为界面卡住了，所以看着以为是一起执行了是吧

2020年09月25日 02点09分

peeppp

如何做到删后后检测这个文件夹不存在了就执行下一个删除？不用这个时间控制呢？因为文件夹里的内容有多有少，有大有小，用时间好像不太靠谱

2020年09月25日 02点09分

level 7

peeppp 楼主

2020年09月25日 02点09分 4

level 7

peeppp 楼主

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

2020年09月25日 02点09分 5