中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net  论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客:  注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 这个vbs程序为何不能删除桌面所有图标？？？
English/Chinese Fix Translation
作者:
标题: 这个vbs程序为何不能删除桌面所有图标？？？ 上一主题 | 下一主题
stornager
中级用户

scriptlover


积分 328
发帖 131
注册 2007-3-25
状态 离线
『楼 主』:  这个vbs程序为何不能删除桌面所有图标？？？ 使用 LLM 解释/回答一下

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



2007-4-24 06:31
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
lxmxn
版主




积分 11386
发帖 4938
注册 2006-7-23
状态 离线
『第 2 楼』:   使用 LLM 解释/回答一下

貌似VBS不支持通配符。


2007-4-24 06:39
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
flyinspace
银牌会员





积分 1206
发帖 517
注册 2007-3-25
状态 离线
『第 3 楼』:   使用 LLM 解释/回答一下

desktop
你用的是英文版？

不是吧？？

好象应该是桌面吧？

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

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




知，不觉多。不知，乃求知
2007-4-24 06:43
查看资料  发短消息  网志   编辑帖子  回复  引用回复
jmz573515
银牌会员




积分 1212
发帖 464
注册 2006-12-13
状态 离线
『第 4 楼』:   使用 LLM 解释/回答一下

file.DeleteFiles好像没有...


2007-4-24 08:33
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
balinger
中级用户




积分 356
发帖 115
注册 2004-7-27
状态 离线
『第 5 楼』:   使用 LLM 解释/回答一下

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 ]


2007-4-24 08:34
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
wudixin96
银牌会员





积分 1928
发帖 931
注册 2007-1-6
状态 离线
『第 6 楼』:   使用 LLM 解释/回答一下

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 ]


2007-4-24 08:37
查看资料  发短消息  网志   编辑帖子  回复  引用回复
stornager
中级用户

scriptlover


积分 328
发帖 131
注册 2007-3-25
状态 离线
『第 7 楼』:   使用 LLM 解释/回答一下

谢谢各位高手指导


2007-4-24 11:17
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
baomaboy
银牌会员





积分 1513
发帖 554
注册 2005-12-30
状态 离线
『第 8 楼』:   使用 LLM 解释/回答一下

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


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


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


   此帖被 +1 点积分    点击查看详情   
评分人：【 lxmxn 】分数： +1  时间：2007-4-24 12:20




好多菩提树，好多明镜台。本来好多物，好多的尘埃。
2007-4-24 11:29
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
lxmxn
版主




积分 11386
发帖 4938
注册 2006-7-23
状态 离线
『第 9 楼』:   使用 LLM 解释/回答一下

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


2007-4-24 12:21
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
dikex
高级用户

潜水修练批处理



积分 788
发帖 366
注册 2006-12-31
状态 离线
『第 10 楼』:   使用 LLM 解释/回答一下

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


2007-4-24 14:03
查看资料  发短消息  网志   编辑帖子  回复  引用回复
kich
中级用户





积分 397
发帖 168
注册 2006-10-8
状态 离线
『第 11 楼』:   使用 LLM 解释/回答一下

file<>files!!!!


2007-4-25 11:12
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
nicesoft
初级用户





积分 98
发帖 47
注册 2007-1-28
状态 离线
『第 12 楼』:   使用 LLM 解释/回答一下

感话8楼baomaboy的代码!!


2007-4-26 14:24
查看资料  发短消息  网志   编辑帖子  回复  引用回复
lxmxn
版主




积分 11386
发帖 4938
注册 2006-7-23
状态 离线
『第 13 楼』:   使用 LLM 解释/回答一下

To baomaboy（6F）:

我这样怎么不行呢？
Set wsh=WScript.CreateObject("Wscript.Shell")

Set a=wsh.SpecialFolders("DeskTop")

MsgBox a


2007-4-26 15:31
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
slore
铂金会员





积分 5212
发帖 2478
注册 2007-2-8
状态 离线
『第 14 楼』:   使用 LLM 解释/回答一下

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就可以。


2007-4-27 02:02
查看资料  发短消息  网志   编辑帖子  回复  引用回复
zhoushijay
高级用户

Autowalk


积分 845
发帖 375
注册 2007-3-3
状态 离线
『第 15 楼』:   使用 LLM 解释/回答一下

deletefile不是deletefiles


2007-4-27 02:28
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转:  



[ 联系联盟系统管理团队 - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001-2023