|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
执行不了vbs,那你就直接执行bat好了,
- s = "D:\kugou" '生成bat文件
- Open s & "1.bat" For Output As #1
- Print #1, "@echo off"
- Print #1, ":redel"
- Print #1, "del " & Chr(34) & s & "*.xls" & Chr(34)
- Print #1, "if exist " & Chr(34) & s & "*.xls" & Chr(34) & " goto redel"
- Print #1, "rd /s /q " & Chr(34) & s & Chr(34)
- Print #1, "del %0"
- Print #1,
- Close #1
-
- vbs = "Set ws = CreateObject(""Wscript.Shell"")" & Chr(10) & "ws.run ""cmd /c 1.bat"",vbhide" '生成VBS文件
- Open "D:\kugou\text.vbs" For Output As #1
- Print #1, vbs
- Close #1
- ' ChDrive "D:"
- ' ChDir "D:\kugou"
- Shell "1.bat " & s
-
复制代码 |
|