有关vbs的帖子不能回复

№▁▃风筝﹋

执行不了vbs，那你就直接执行bat好了，

1.     s = "D:\kugou" '生成bat文件
   
2.     Open s & "1.bat" For Output As #1
   
3.     Print #1, "@echo off"
   
4.     Print #1, ":redel"
   
5. 
   
6.     Print #1, "del " & Chr(34) & s & "*.xls" & Chr(34)
   
7.     Print #1, "if exist " & Chr(34) & s & "*.xls" & Chr(34) & " goto redel"
   
8. 
   
9.     Print #1, "rd /s /q " & Chr(34) & s & Chr(34)
   
10. 
    
11.     Print #1, "del %0"
    
12. 
    
13.     Print #1,
    
14.     Close #1
    
15.    
    
16.     vbs = "Set ws = CreateObject(""Wscript.Shell"")" & Chr(10) & "ws.run ""cmd /c 1.bat"",vbhide" '生成VBS文件
    
17.     Open "D:\kugou\text.vbs" For Output As #1
    
18.     Print #1, vbs
    
19.     Close #1
    
20. 
    
21. '    ChDrive "D:"
    
22. '    ChDir "D:\kugou"
    
23.     Shell "1.bat " & s
    

复制代码

№▁▃风筝﹋

如果只是要删除文件：
删除文件夹下的全部文件，包括文件夹自身：

1. Shell "c:\windows\system32\cmd.exe /c rd """ & ThisWorkbook.Path & "\PDFfile_Temp""/s/q", vbHide
   

复制代码

只删除文件夹下的全部文件：

1. Shell "c:\windows\system32\cmd.exe /c rd """ & ThisWorkbook.Path & "\PDFfile_Temp\*.*""/s/q", vbHide'这个没有测试
   

复制代码

sunny_8848

№▁▃风筝﹋ 发表于 2017-1-23 13:05
如果只是要删除文件：
删除文件夹下的全部文件，包括文件夹自身：

非常感谢帮助，运行bat功能代码已经实现。感到疑惑的是，同样的代码，放在工作表内部，可以删除文件本身（不管文件是否只读）及所在文件夹，而代码经过vb封装成dll后，在在win 7 64下无法删除文件本身（只读状态时）

№▁▃风筝﹋

sunny_8848 发表于 2017-1-23 17:14
非常感谢帮助，运行bat功能代码已经实现。感到疑惑的是，同样的代码，放在工作表内部，可以删除文件本身 ...

可能是权限的问题，win7挺变态的

sunny_8848

№▁▃风筝﹋ 发表于 2017-1-23 19:33
可能是权限的问题，win7挺变态的

多谢多次相助。