|
楼主 |
发表于 2017-1-22 19:04
|
显示全部楼层
谢谢帮助,代码没效果
我的本意如下:
S = "D:\1\" '生成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:\1\text.vbs" For Output As #1
Print #1, vbs
Close #1
ChDrive "D:"
ChDir "D:\1"
Shell "cscript test.vbs" 'VBS运行bat完毕后删除文件所在文件夹
|
|