中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-04 10:59 		共 48,038 主题排行 / 350,123 发帖 / 今日 0 篇 / 48,251 会员排行
DOS批处理 & 脚本技术（批处理室） » 这个vbs程序为何不能删除桌面所有图标？？？
可打印版本 　2,504 / 17
第1楼　stornager 发表于 2007-04-24 06:31
中级用户　发帖 131　积分 328
这个vbs程序为何不能删除桌面所有图标？？？
Function DeleteDesktopFiles()
Dim files
Set files=CreateObject(Script.FileSystemObject)
file.DeleteFiles "C:\Documents and settings\some\desktop\*.* "
End Function
第2楼　lxmxn 发表于 2007-04-24 06:39
版主　发帖 4,938　积分 11,386
貌似VBS不支持通配符。
第3楼　flyinspace 发表于 2007-04-24 06:43
银牌会员　发帖 517　积分 1,206
desktop
你用的是英文版？

不是吧？？

好象应该是桌面吧？

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

另vbs我不明白。。。不发表意见。
第4楼　jmz573515 发表于 2007-04-24 08:33
银牌会员　发帖 464　积分 1,212
file.DeleteFiles好像没有...
第5楼　balinger 发表于 2007-04-24 08:34
中级用户　发帖 115　积分 356
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 ]
第6楼　wudixin96 发表于 2007-04-24 08:37
银牌会员　发帖 931　积分 1,928
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 ]
第7楼　stornager 发表于 2007-04-24 11:17
中级用户　发帖 131　积分 328
谢谢各位高手指导
第8楼　baomaboy 发表于 2007-04-24 11:29
银牌会员　发帖 554　积分 1,513
不要争论是“desktop”或者“桌面”，如果被更改过的话可能是"D:\桌子"呢。


[ Last edited by baomaboy on 2007-4-24 at 11:32 AM ]
第9楼　lxmxn 发表于 2007-04-24 12:21
版主　发帖 4,938　积分 11,386
是哪个目录并不重要，重要的是对象和方法各个关键词都正确，没有语法错误即可。
第10楼　dikex 发表于 2007-04-24 14:03
高级用户　发帖 366　积分 788
C:\Documents and Settings\All Users\desktop里面也有图标
第11楼　kich 发表于 2007-04-25 11:12
中级用户　发帖 168　积分 397
file<>files!!!!
第12楼　nicesoft 发表于 2007-04-26 14:24
初级用户　发帖 47　积分 98
感话8楼baomaboy的代码!!
第13楼　lxmxn 发表于 2007-04-26 15:31
版主　发帖 4,938　积分 11,386
To baomaboy（6F）:

我这样怎么不行呢？
第14楼　slore 发表于 2007-04-27 02:02
铂金会员　发帖 2,478　积分 5,212
Originally posted by lxmxn at 2007-4-26 02:31:
To baomaboy（6F）:

我这样怎么不行呢？



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

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

VBS对wsh貌似。。。。
你用wsh1就可以。
第15楼　zhoushijay 发表于 2007-04-27 02:28
高级用户　发帖 375　积分 845
deletefile不是deletefiles
1 2 　下一页
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023