VBS如何批量更改文件的属性？

peil1226

各位大哥们，谁能帮忙写个vbs，

作用：运行此vbs后，只要发现桌面上有.url文件，则将.url文件设置成隐藏属性,，如果发现桌面无.url文件则不进行任何操做，

我只会对单个文件进行操做，如下:
Dim a
set a=CreateObject("Scripting.FileSystemObject")
a.GetFile ("C:\Docume~1\Admini~1\桌面\抽奖平台.url").Attributes =0

还有如何进行循环检查桌面是否有.url文件也不会，请各位大哥帮帮忙!!

[ 本帖最后由 peil1226 于 2011-1-14 14:17 编辑 ]