Dim FSO As New FileSystemObject
FSO.DeleteFolder ThePath 'ThePath即文件夹路径,而且不必先清空文件夹
或:(不必引用FSO)
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.DeleteFolder ThePath 'ThePath即文件夹路径,而且不必先清空文件夹
试一试
分类: 电脑/网络 >>程序设计 >>其他编程语言问题描述:
我想要用VB删除 C:\Documents and Settings\All Users\「开始」菜单\程序\启动\文件夹中的所有文件。
但我用以下两个命令都无法删除,请问这段代码该如何写:
Kill ("C:\Documents and Settings\All Users\「开始」菜单\程序\启动\*.*")
Shell "cmd.exe /c del /f /q C:\Documents and Settings\All Users\「开始」菜单\程序\启动\*.*", 0
另外想用VB支不支持windows中的环境变量,如果不支持,该如何调用。答出后一题,再追加30分。
解析:
Kill语句不用括号。
Kill "C:\Documents and Settings\All Users\「开始」菜单\程序\启动\*.*" 即可达到目的,我刚试过。可以的。
但注意只能删除文件,文件夹不能被删除。
1、可以直接调用DOS命令:shell "cmd /C del /Q e:\aa\*.*" ,vbhide
2、先删除文件夹里面的文件,再删除文件夹。
d="D:\aa\"f=dir(d & "*.*")
do while f<>""
kill d & f
f=dir
loop
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)