中国DOS联盟

Function DeleteDesktopFiles()
Dim files
Set files=CreateObject(Script.FileSystemObject)
file.DeleteFiles "C:\Documents and settings\some\desktop\*.* "
End Function

貌似VBS不支持通配符。

desktop
你用的是英文版？

不是吧？？

好象应该是桌面吧？

C:\Documents and settings\some\桌面\

另vbs我不明白。。。不发表意见。

file.DeleteFiles好像没有...

Dim fs, f, File, fc
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("C:\Documents and settings\some\desktop")
Set fc = f.Files
For Each File in fc
File.Delete true
Next

[ Last edited by balinger on 2007-4-24 at 08:35 AM ]

Originally posted by stornager at 2007-4-24 06:31 AM:
Function DeleteDesktopFiles()
Dim files
Set files=CreateObject(Script.FileSystemObject)
file.DeleteFiles "C:\Documents and settings\some\desktop\*.* "
End Function

:o:o:o

应为scripting和deletefile

还有中文系统应为桌面。

[ Last edited by wudixin96 on 2007-4-24 at 08:57 AM ]

谢谢各位高手指导

不要争论是“desktop”或者“桌面”，如果被更改过的话可能是"D:\桌子"呢。

msgbox WScript.CreateObject("WScript.Shell").SpecialFolders("Desktop")

[ Last edited by baomaboy on 2007-4-24 at 11:32 AM ]

是哪个目录并不重要，重要的是对象和方法各个关键词都正确，没有语法错误即可。

C:\Documents and Settings\All Users\desktop里面也有图标

file<>files!!!!

感话8楼baomaboy的代码!!

To baomaboy（6F）:

我这样怎么不行呢？

Set wsh=WScript.CreateObject("Wscript.Shell")

Set a=wsh.SpecialFolders("DeskTop")

MsgBox a

Originally posted by lxmxn at 2007-4-26 02:31:
To baomaboy（6F）:

我这样怎么不行呢？

Set wsh=WScript.CreateObject("Wscript.Shell")

Set a=wsh.SpecialFolders("DeskTop")

MsgBox a

Set WShell=WScript.CreateObject("Wscript.Shell")
msgbox WShell.SpecialFolders("DeskTop")
Set WShell = Nothing

set a错误……那个已经不是对象了……

VBS对wsh貌似。。。。
你用wsh1就可以。

deletefile不是deletefiles