问题描述:
我想要用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\「开始」菜单\程序\启隐岁动\*.*" 即可达到目的,我刚试槐携梁过。可以的。
但注意只能删除文件,文件夹不能被删除。
Private Sub Command1_Click()Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject") '带橘乱
fso.DeleteFolder "F:\ABCDE", True
fso.creatfolder "F:\ABCD"
End Sub
这样才能达到楼主所说的删除某一文件夹下的所有文件夹 而用shell语蠢档句的话 不应该用del 而是 rd或者rmdir命伍念令 后面也加/S删除目录后记得再用 md 建立该文件夹
引用FSO(Microsoft Scripting Runtime),然后写老仔出Dim FSO As New FileSystemObject
FSO.DeleteFolder ThePath 'ThePath即文件侍清汪夹路径,而且不必先清空文件夹
或正丛:(不必引用FSO)
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.DeleteFolder ThePath 'ThePath即文件夹路径,而且不必先清空文件夹
试一试
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)