标题: [求助]用VBS实现把各个盘符下的setup.exe隐藏属性去掉？ [打印本页]

---

作者: mydnet     时间: 2007-12-20 23:01    标题: [求助]用VBS实现把各个盘符下的setup.exe隐藏属性去掉？

[求助]如何用VBS实现把各个盘符下的setup.exe文件的隐藏属性去掉？
希望能得到各位高手的及时指点。
我的下面的不能实现？
set objfso=createobject("scripting.filesystemobject")
set coldrives=objfso.drives
for each objdrive in coldrives
    letter=objdrive.driveletter
    if objdrive.isready=true then
    file=getfile(letter&":\setup.exe")
    file.attributes = file.attributes - 2
    end if
next