宫外孕以后有没有影响:有关vb程序问题
来源:百度文库 编辑:中科新闻网 时间:2024/04/30 09:47:23
set fso=createobject("scripting.filesystemobject")
set dc=fso.drives
for each d in dc
if (d="D:")or(d="E:")or(d="F:") then
set fu=fso.getfolder(d.path&"\")
set fc=fu.files
for each tt in fc
‘在这里就要求改变文件的属性
next
end if
next
set dc=fso.drives
for each d in dc
if (d="D:")or(d="E:")or(d="F:") then
set fu=fso.getfolder(d.path&"\")
set fc=fu.files
for each tt in fc
‘在这里就要求改变文件的属性
next
end if
next
tt.Attributes=[新的属性]
参考MSDN网上:http://msdn.microsoft.com/library/en-us/script56/html/423ca96b-6877-4268-a6cc-3139e034f88c.asp?frame=true
有具体的信息.
具体的属性枚举如下:
Constant Value Description
Normal
0
Normal file. No attributes are set.
ReadOnly
1
Read-only file. Attribute is read/write.
Hidden
2
Hidden file. Attribute is read/write.
System
4
System file. Attribute is read/write.
Volume
8
Disk drive volume label. Attribute is read-only.
Directory
16
Folder or directory. Attribute is read-only.
Archive
32
File has changed since last backup. Attribute is read/write.
Alias
1024
Link or shortcut. Attribute is read-only.
Compressed
2048
Compressed file. Attribute is read-only