[转载]一段进行目录隐藏的代码

文章作者：guojpeng /cvc.gb

一段进行目录隐藏的代码
By guojpeng /cvc.gb
********************************************************************************
说明，此程序是一个完整的程序，后缀名保存为.vbs或.vbe即可。如果你有什么需要隐藏的
目录，用这个程序一定不错，属性设为6、7后，仅在显示系统文件时，可以显示出来。
********************************************************************************

dim fso,hidedir,attrib                '定义变量

set fso=createobject("scripting.filesystemobject")
hidedir = InputBox("请输入要对属性进行操作的文件目录") '提示输入变量，譬如d:\
hidefolder=hidedir
attrib=InputBox("请输入要设置属性值(0-8)")         '提示输入变量，试试6或7
killfolder(hidefolder)

sub killfolder(folderspec)
dim folder_p,fileset_p,file_p            '定义局部变量
On Error Resume Next                  '忽视错误
set folder_p = fso.GetFolder(folderspec)     '获得目录对象
set fileset_p = folder_p.Files            '取目录中的文件集合
for each file_p in fileset_p
file_p.attributes=attrib              '对每一个文件进行属性设置
next
folderlist(folderspec)                 '展开目录，进入现在目录下的子目录
end sub

sub folderlist(folderspec)
dim folder_1,folderset_s,folder_s          '定义局部变量
On Error Resume Next                  '忽视错误
set folder_1 = fso.GetFolder(folderspec)     '取当前目录
folder_1.attributes=attrib              '对当前目录设置属性
set folderset_s = folder_1.SubFolders       '取当前目录的子目录
for each folder_s in folderset_s
killfolder(folder_s.path)              '对每一个子目录进行操作
next
end sub