VB语言（属性）
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Visual Basi c 函数速查-属性(43条函数) At EndOf Line属性
AtE ndOfS tream属性
At tribu tes属性
Avai lable Space属性
Ca lenda r属性
C olumn属性
Co mpare Mode属性
Cou nt属性
Count属性
Da teCre ated属性
Dat eLast Acces sed属性
Date LastM odifi ed属性
Descr iptio n属性
D rive属性
Dri veLet ter属性Driv es属性
Drive Type属性
Fil es属性
FileS ystem属性
Fr eeSpa ce属性
HelpC ontex t属性
H elpFi le属性
IsRea dy属性
IsRoo tFold er属性
Item属性
Key属性
La stDLL Error属性
Li ne属性
Name属性
Num ber属性Pare ntFol der属性
Path属性
Ro otFol der属性
Seri alNum ber属性
Shar eName属性
Sh ortNa me属性
Short Path属性
Siz e属性
S ource属性
Su bFold ers属性
Tota lSize属性
Ty pe属性
Volum eName属性
AtEnd OfLin e属性
描述
只读属性，在 Text Strea m 文件中，如果文件指针正好在行尾标记的前面，那么该属性值True；否则 Fa lse。
语法
ob ject.AtEnd OfLin e
obj ect 总是一个T extSt ream对象的名称。
说明
AtEnd OfLin e 属性仅应用于已打开供读取的 Text Strea m 文件；否则就会出错。
下面的代码举例说明了A tEndO fLine属性的用法：
Di m fs, a, r etstr ing
S et fs = Cr eateO bject("Scr iptin g.Fil eSyst emObj ect")
Seta = f s.Ope nText File("c:\t estfi le.tx t", F orRea ding, Fals e)
Do Whil e a.A tEndO fLine <> T rue
re tstri ng =a.Rea d(1)
...
Lo op
a.Close
AtEn dOfSt ream属性
描述
只读属性，如果文件指针在TextS tream文件末尾，则该属性值 Tru e；否则False。
语法
objec t.AtE ndOfS tream
obje ct 总是一个 Te xtStr eam 对象的名称。
说明
A tEndO fStre am 属性仅应用于已打开供读取的 Tex tStre am 文件；否则就会出错。
下面的代码举例说明了AtEnd OfStr eam 属性的用法：
Dimfs, a, ret strin g
Set fs = Crea teObj ect("Scrip ting.FileS ystem Objec t")
S et a= fs.OpenT extFi le("c:\tes tfile.txt", For Readi ng, F alse)
Do W hilea.AtE ndOfS tream <> T rue
re tstri ng =a.Rea dLine
...
L oop
a.Clos e
Att ribut es属性
描述
设置或者文件或文件夹的属性。
读/写或只读，取决于属性。
语法
obje ct.At tribu tes [= new attri butes]
Att ribut es 属性有下列几个部分：
部分描述
objec t 必需的。
总是某个 File或者F older对象的名字。
ne wattr ibute s 可选的。
如果提供的话，ne wattr ibute s 就是所指定 ob ject的新属性值。
设置
newa ttrib utes参数可以是具有下列值中的任意一个或任意的逻辑组合：
常数值描述
N ormal0 一般文件。
未设置属性。
ReadO nly 1只读文件。
属性为读/写。
H idden2隐藏文件。
属性为读/写。
Syst em 4系统文件。
属性为读/写。
Vo lume8 磁盘驱动器卷标。
属性为只读。
Dir ector y 16文件夹或目录。
属性为只读。
A rchiv e 32自上次备份后已经改变的文件。
属性为读/写。
Ali as 64链接或快捷方式。
属性为只读。
Comp resse d 128压缩文件。
属性为只读。
说明
下面的代码用一个文件举例说明了 At tribu tes 属性的用法：
SubSetCl earAr chive Bit(f ilesp ec)
Di m fs, f, r
Set f s = C reate Objec t("Sc ripti ng.Fi leSys temOb ject")
Setf = f s.Get File(fs.Ge tFile Name(files pec))
If f.attri butes and32 Th en
r =MsgBo x("Th e Arc hivebit i s set, doyou w ant t o cle ar it?", v bYesN o,
"S et/Cl ear A rchiv e Bit")
If r = vb Yes T hen
f.a ttrib utes= f.a ttrib utes- 32
Msg Box "Archi ve bi t isclear ed."
El se
MsgBo x "Ar chive bitremai ns se t."
End If
El se
r =MsgBo x("Th e Arc hivebit i s not set. Do y ou wa nt to setit?", vbYe sNo,"Set/Clear Arch ive B it")
If r =vbYes Then
f.attr ibute s = f.attr ibute s + 32
M sgBox "Arc hivebit i s set."
Else
Ms gBox"Arch ive b it re mains clea r."
End If
En d If
End S ub
Av ailab leSpa ce属性
描述
在指定的驱动器或网络共享上的用户可用空间容量。
语法
obj ect.A vaila bleSp ace
objec t 总是一个 Dri ve 对象。
说明
一般来说，Avail ableS pace属性的值与 Free Space属性的值是相同的。
对于支持限额的计算机系统来说，两个值之间可能会有所不同。
下面的代码举例说明了Avail ableS pace属性的用法：
Sub Show Avail ableS pace(drvPa th)
Di m fs, d, s
Set f s = C reate Objec t("Sc ripti ng.Fi leSys temOb ject")
Setd = f s.Get Drive(fs.G etDri veNam e(drv Path))
s ="Driv e " & UCas e(drv Path) & "- "
s = s& d.V olume Name & vb CrLf
s = s& "Av ailab le Sp ace:" & F ormat Numbe r(d.A vaila bleSp ace/1024,0)
s= s & " Kb ytes"
MsgBo x s
E nd Su b
Cal endar属性
或设置一个值，指出工程中所使用日历的类型。
可以为 Cale ndar使用下列设置之一:
设置值描述
vbC alGre g 0 使用Greg orian日历(缺省)。
v bCalH ijri 1 使用H ijri日历。
说明
可以程序化地只设置Cal endar属性。
例如，要使用Hijri日历，使用：
Ca lenda r = v bCalH ijri
Colum n属性
描述
只读属性，TextS tream文件中当前字符位置的列号。
语法
ob ject.Colum n
obj ect 总是一个T extSt ream对象的名称。
说明
在写了一个新行字符后，但在写任何其他字符之前，Co lumn的值是1。
Com pareM ode属性
描述
设置或某个 Dic tiona ry 对象中的比较字符串关键字的比较模式。
语法
objec t.Com pareM ode[= com pare]
Comp areMo de 属性具有下列部分：
部分描述
o bject必需的。
总是一个Dicti onary对象的名称。
co mpare可选的。
如果提供的话，com pare是一个代表比较模式的值，该比较模式用于象 StrC omp 这样的函数。
设置
compa re 参数可以具有下列值：
常数值描述
VbU seCom pareO ption–1 使用 Opt ion C ompar e 语句的设置值进行比较。
v bBina ryCom pare 0 进行二进制比较。
vbT extCo mpare 1 进行文字比较。
vbD ataba seCom pare 2 仅用于 Mic rosof t Acc ess。
进行基于您自己数据库中信息的比较。
说明
如果试图对已经包含数据的D ictio nary对象的比较模式进行更改的话，就会出错。
Compa reMod e 属性所用的参数值与 Str Comp函数所用的 comp are 参数相同。
可以用大于2 的值表示使用特定 Loca le ID s (LC ID) 的比较。
C ount属性
*Cou nt属性1*
Lo ng（长整数），包含集合中的对象数目。
只读。
*Count属性2*
描述
集合或 Dic tiona ry 对象中的条目数。
只读。
语法
ob ject.Count
obje ct 总是“应用于”列表中某一项的名称。
说明
下面的代码举例说明了Count属性的使用方法：
Dim a, d,i '创建一些变量
Set d =Creat eObje ct("S cript ing.D ictio nary")
d.A dd "a", "A thens" '添加一些关键字和条目。
d.Add"b","Belg rade"
d.Ad d "c", "Ca iro"
a = d.Keys'获得关键字
Fori = 0 To d.Coun t -1'遍及数组
Print a(i)'打印关键字
Nex t
...
Date Creat ed属性
描述
指定文件或文件夹的创建日期和时间。
只读。
语法
o bject.Date Creat ed
ob ject总是一个file或Fold er对象。
说明
下面的代码用一个文件举例说明了DateC reate d 属性的用法：
S ub Sh owFil eInfo(file spec)
Dim f s, f, s
Set fs = Crea teObj ect("Scrip ting.FileS ystem Objec t")
Se t f = fs.G etFil e(fil espec)
s ="Crea ted:" & f.Date Creat ed
Msg Box s
EndSub
D ateLa stAcc essed属性
描述
最后一次访问指定文件或文件夹的日期和时间。
只读。
语法
obje ct.Da teLas tAcce ssed
objec t 总是一个 fil e 或F older对象。
说明
下面的代码用一个文件举例说明了D ateLa stAcc essed属性的用法：
Su b Sho wFile Acces sInfo(file spec)
Dim f s, f, s
Set fs = Crea teObj ect("Scrip ting.FileS ystem Objec t")
Se t f = fs.G etFil e(fil espec)
s =UCase(file spec) & vb CrLf
s = s& "Cr eated: " & f.Da teCre ated& vbC rLf
s= s & "Las t Acc essed: " & f.Da teLas tAcce ssed& vbC rLf
s= s & "Las t Mod ified: " & f.Da teLas tModi fied
MsgB ox s, 0, "FileAcces s Inf o"
En d Sub
重点这种方法由其下一级操作系统决定其行为。
如果操作系统不支持提供时间信息，则没有信息。
Da teLas tModi fied属性
描述
最后一次修改指定文件或文件夹的日期和时间。
只读。
语法
objec t.Dat eLast Modif ied
o bject总是一个 file或 Fo lder对象。
说明
下面的代码用一个文件举例说明了 Da teLas tModi fied属性的用法：
Sub Show FileA ccess Info(files pec)
D im fs, f,s
Setfs =Creat eObje ct("S cript ing.F ileSy stemO bject")
Set f =fs.Ge tFile(file spec)
s = U Case(files pec)& vbC rLf
s= s & "Cre ated: " &f.Dat eCrea ted & vbCr Lf
s = s &"Last Acce ssed: " &f.Dat eLast Acces sed & vbCr Lf
s = s &"Last Modi fied: " &f.Dat eLast Modif ied
MsgBo x s,0, "F ile A ccess Info"
End Sub
Descr iptio n属性
或设置一个字符串表达式，包含与对象相关联的描述性字符串。
可读/可写。
对于E rr 对象，或设置与错误相关联的描述性字符串。
说明
Des cript ion 属性设置对错误进行简短描述。
当无法处理或不想处理错误的时候，可以使用这个属性提醒用户。
在生成用户自定义的错误时，将有关此错误的一个简短陈述指定给 Des cript ion 属性。
如果Descr iptio n 未填入数据，而且 Numb er 的值与Vis ual B asic运行时错误一致，那么在生成错误时，将E rror函数的字符串放置在Descr iptio n 中。
Drive属性
描述
指定文件或文件夹所在的驱动器符号。
只读。
语法
obj ect.D rive
objec t 总是一个 Fil e 或F older对象。
说明
下面的代码举例说明了D rive属性的用法：
Sub Show FileA ccess Info(files pec)
D im fs, f,s
Setfs =Creat eObje ct("S cript ing.F ileSy stemO bject")
Set f =fs.Ge tFile(file spec)
s = f.Name & "on Dr ive " & UC ase(f.Driv e) &vbCrL f
s =s & "Creat ed: " & f.DateC reate d & v bCrLf
s = s & "L ast A ccess ed: " & f.DateL astAc cesse d & v bCrLf
s = s & "L ast M odifi ed: " & f.DateL astMo difie d
Ms gBoxs, 0, "Fil e Acc ess I nfo"
End S ub
Dr iveLe tter属性
描述
某个物理本地驱动器或网络共享的驱动器字母。
只读。
语法
objec t.Dri veLet ter
o bject总是一个 Driv e 对象。
说明
如果指定的驱动器没有同某个驱动器字母关联起来，例如，未被映射到一个驱动器字母的网络共享，则Drive Lette r 属性一个 0 字节长度的字符串 ("")。
下面的代码举例说明了Drive Lette r 属性的用法：
S ub Sh owDri veLet ter(d rvPat h)
Dim fs,d, s
S et fs = Cr eateO bject("Scr iptin g.Fil eSyst emObj ect")
Set d = fs.GetD rive(fs.Ge tDriv eName(drvP ath))
s = "Drive " &d.Dri veLet ter & ": - "
s= s & d.Vo lumeN ame & vbC rLf
s= s & "Fre e Spa ce: " & Fo rmatN umber(d.Fr eeSpa ce/1024, 0)
s = s &" Kby tes"
M sgBox s
En d Sub
Driv es属性
描述
包含本地机器上所有可用 Dri ve 对象的 Dri ves 集合。
语法
obje ct.Dr ives
obje ct 总是一个 Fi leSys temOb ject。
说明
对于可删除媒体驱动器来说，不需要插入媒体，就可使其出现在 Dr ives集合中。
可以用F or Ea ch...Next结构遍及Drive s 集合中的成员，如下面的代码所示：
S ub Sh owDri veLis t
Dimfs, d, dc, s, n
Set f s = C reate Objec t("Sc ripti ng.Fi leSys temOb ject")
Setdc =fs.Dr ives
F or Ea ch din dc
s = s& d.D riveL etter & "- "
If d.Dr iveTy pe =3 The n
n = d.Share Name
El se
n = d.Volu meNam e
End I f
s = s & n& vbC rLf
Ne xt
Msg Box s
EndSub
D riveT ype属性
描述
一个值，表示指定驱动器的类型。
语法
objec t.Dri veTyp e
obj ect 总是一个D rive对象。
说明
下面的代码举例说明了 Dr iveTy pe 属性的用法：
Sub S howDr iveTy pe(dr vpath)
Dimfs, d, s,t
Setfs =Creat eObje ct("S cript ing.F ileSy stemO bject")
Set d =fs.Ge tDriv e(drv path)
Selec t Cas e d.D riveT ype
Cas e 0:t = "Unkno wn"
Cas e 1:t = "Remov able"
C ase 2: t = "Fix ed"
Cas e 3:t = "Netwo rk"
Cas e 4:t = "CD-RO M"
Case 5: t = "R AM Di sk"
En d Sel ect
s= "Dr ive " & d.Drive Lette r & ": - " & t
M sgBox s
En d Sub
File s属性
描述
由所有 Fi le 对象组成的F iles集合，这些 File对象包含在指定的文件夹中──包括设置了隐藏和系统文件属性的那些文件。
语法
o bject.File s
ob ject总是一个Folde r 对象。
说明
下面的代码举例说明了Files属性的用法：
Su b Sho wFile List(folde rspec)
Dimfs, f, f1, fc,s
Setfs =Creat eObje ct("S cript ing.F ileSy stemO bject")
Set f =fs.Ge tFold er(fo lders pec)
S et fc = f.Files
For E ach f1 infc
s =s & f1.nam e
s =s & vbCrL f
Next
MsgBo x s
E nd Su b
Fil eSyst em属性
描述
指定驱动器所使用的文件系统类型。
语法
objec t.Fil eSyst em
ob ject总是一个Drive对象。
说明
可以得到的类型包括 FA T、NTF S、以及CDFS。
下面的代码举例说明了 Fil eSyst em 属性的用法：
Sub S howFi leSys temTy pe
Dim fs,d, s
Se t fs= Cre ateOb ject("Scri pting.File Syste mObje ct")
S et d= fs.GetDr ive("e:")
s = d.FileS ystem
MsgBo x s
E nd Su b
Fre eSpac e属性
描述
指定驱动器上或网络共享的用户可用磁盘剩余空间容量。
只读。
语法
obje ct.Fr eeSpa ce
ob ject总是一个Drive对象。
说明
一般来说，Fr eeSpa ce 属性的值和A vaila bleSp ace 属性的值是相同的。
对于支持限额的计算机系统来说，二者之间可能有所不同。
下面的代码举例说明了 Free Space属性的用法：
Su b Sho wFree Space(drvP ath)
D im fs, d,s
Setfs =Creat eObje ct("S cript ing.F ileSy stemO bject")
Set d =fs.Ge tDriv e(fs.GetDr iveNa me(dr vPath))
s = "Dri ve "& UCa se(dr vPath) & " - "
s = s & d.Volum eName & v bCrLf
s = s & "F ree S pace: " &Forma tNumb er(d.FreeS pace/1024, 0)
s = s& " K bytes"
MsgB ox s
End S ub
He lpCon text属性
或设置一个字符串表达式，包含M icros oft W indow s 帮助文件中的主题的上下文ID。
可读 / 可写。
说明
HelpC ontex t 属性被用来自动显示 Hel pFile属性中指定的帮助主题。
如果HelpF ile 和 Help Conte xt 都是空的，则检查 Num ber 的值。
如果Numbe r 的值与 Visu al Ba sic 运行时错误一致，则对此错误使用Visua l Bas ic 帮助上下文I D。
如果Numbe r 的值与 Visu al Ba sic 错误不一致，则在屏幕上显示 Vi sualBasic帮助文件的内容。
注意应该在应用程序中写入一些例程来处理常见错误。
当使用对象编程时，可以用该对象的帮助文件来提高处理错误的质量，而如果错误无法补救，则要为用户显示一段有意义的消息。
He lpFil e属性
或设置一个字符串表达式，表示帮助文件的完整限定路径。
可读/可写。
说明
如果HelpF ile 中指定了帮助文件，则当用户在错误消息对话框中按下H elp 按钮（或)）时，帮助文件被自动调用。
如果HelpC ontex t 属性包含被指定文件的有效的上下文I D，则自动显示那一主题。
如果未指定 He lpFil e，则显示 Visu al Ba sic 帮助文件。
注意应该在应用程序中写入一些例程来处理常见错误。
当使用对象编程时，可以用该对象的帮助文件来提高处理错误的质量，而如果错误无法补救，则要为用户显示一段有意义的消息。
Is Ready属性
描述
如果指定的驱动器已准备好， Tru e；否则False。
语法
objec t.IsR eady
objec t 总是一个 Dri ve 对象。
说明
对于可删除媒体驱动器和 CD-ROM 驱动器来说，仅当插入了适当的媒体，并已准备好供访问时，IsRe ady 才 True。
下面的代码举例说明了 Is Ready属性的用法：
Su b Sho wDriv eInfo(drvp ath)
D im fs, d,s, t
S et fs = Cr eateO bject("Scr iptin g.Fil eSyst emObj ect")
Set d = fs.GetD rive(drvpa th)
Se lectCased.Dri veTyp e
Case0: t= "Un known"
Case1: t= "Re movab le"
Cas e 2:t = "Fixed"
Case3: t= "Ne twork"
Case4: t= "CD-ROM"
C ase 5: t = "RAM Disk"
EndSelec t
s ="Driv e " & d.Dr iveLe tter& ":- " & t
Ifd.IsR eadyThen
s = s& vbC rLf & "Dri ve is Read y."
El se
s =s & v bCrLf & "D riveis no t Rea dy."
E nd If
MsgBo x s
E nd Su b
IsR ootFo lder属性
描述
如果指定的文件夹是根文件夹，则 Tr ue；否则 Fals e。
语法
obje ct.Is RootF older
obje ct 总是一个 Fo lder对象。
说明
下面的代码举例说明了 Is RootF older属性的用法：
Di m fs
Set f s = C reate Objec t("Sc ripti ng.Fi leSys temOb ject")
Sub Disp layLe velDe pth(p athsp ec)
Di m f,n
Setf = f s.Get Folde r(pat hspec)
If f.IsRo otFol der T hen
Msg Box "The s pecif ied f older is t he ro ot fo lder."
Else
D o Unt il f.IsRoo tFold er
Set f = f.Paren tFold er
n = n + 1
Lo op
MsgB ox "T he sp ecifi ed fo lderis ne sted" & n & "level s dee p."
En d If
End S ub
It em属性
描述
对 Dic tiona ry 对象中指定的Key，设置或一个Item。
对于集合来说，基于指定的K ey ，一个 Ite m 。
读/写属性。
语法
ob ject.Item(key)[= ne witem]
Ite m 属性具有下列部分：
部分描述
ob ject必需的。
总是一个集合或 Dic tiona ry 对象的名称。
key 必需的。
与被检索或添加的条目相关联的 Ke y 。
n ewite m 可选的。
仅用于Dicti onary对象；没有用于集合的应用程序。
如果提供的话，ne witem是与指定的 Key相关联的新值。
说明
如果在改变某个 item时，没有找到 ke y，则用指定的new item创建一个新的 key。
如果在试图某个已存在条目时，没有找到key，则创建一个新 key，且其相应的条目为空。
Key属性
描述
在一个 Dict ionar y 对象中设置一个key。
语法
ob ject.Key(k ey) = newk ey
Ke y 属性具有下列部分：
部分描述
ob ject必需的。
总是一个D ictio nary对象的名字。
key必需的。
被更改的Key值。
newk ey 必需的。
替换指定 key的新值。
说明
如果在更改某个 ke y 时，没有找到k ey，则会出现运行时错误。
L astDL LErro r属性
因调用动态链接库(DLL)而产生的系统错误号。
只读。
说明
La stDLL Error属性只适用于由V isual Basi c 代码进行的 DL L 调用。
在调用时，被调用的函数通常一个表明成功还是失败的代码，同时对 Last DLLEr ror 属性填充数据。
请检查DLL 函数的文档，确定值，表明是成功还是失败。
只要失败代码，Visu al Ba sic 的应用程序就应立即检查 Last DLLEr ror 属性。
在设置 Last DLLEr ror 属性时不会有任何例外。
Line属性
描述
只读属性，一个 Text Strea m 文件中的当前行号。
语法
objec t.Lin e
obj ect 总是一个T extSt ream对象的名字。
说明
文件初次打开后，在写任何东西之前，Lin e 的值为 1。
N ame属性
描述
设置或指定文件或文件夹名。
读/写属性。
语法
o bject.Name [= n ewnam e]
Na me 属性有下列几部分：
部分描述
o bject必需的。
总是某个File或 Fol der 对象的名字。
newn ame 可选的。
如果提供的话，newna me 是指定的 ob ject的新名。
说明
下面的代码举例说明了Name属性的用法：
Sub Show FileA ccess Info(files pec)
D im fs, f,s
Setfs =Creat eObje ct("S cript ing.F ileSy stemO bject")
Set f =fs.Ge tFile(file spec)
s = f.Name & "on Dr ive " & UC ase(f.Driv e) &vbCrL f
s =s & "Creat ed: " & f.DateC reate d & v bCrLf
s = s & "L ast A ccess ed: " & f.DateL astAc cesse d & v bCrLf
s = s & "L ast M odifi ed: " & f.DateL astMo difie d
Ms gBoxs, 0, "Fil e Acc ess I nfo"
End S ub
Nu mber属性
或设置表示错误的数值。
Numbe r 是E rr 对象的缺省属性。
可读/可写。
说明
从对象用户自定义的错误时，把被选作错误代码的数与 vbOb jectE rror常数相加，并由此设置 Err.Numbe r。
例如，用下列代码作为错误代码的数字1051：
Err.Raise Numb er := vbOb jectE rror+ 1051, So urce:= Som eClas s
Par entFo lder属性
描述
指定文件或文件夹的父文件夹对象。
只读。
语法
objec t.Par entFo lder
objec t 总是一个 Fil e 或F older对象。
说明
下面的代码用一个文件举例说明了P arent Folde r 属性的用法：
S ub Sh owFil eAcce ssInf o(fil espec)
Dimfs, f, s
Se t fs= Cre ateOb ject("Scri pting.File Syste mObje ct")
S et f= fs.GetFi le(fi lespe c)
s = UCas e(f.N ame)& " i n " & UCas e(f.P arent Folde r) &vbCrL f
s =s & "Creat ed: " & f.DateC reate d & v bCrLf
s = s & "L ast A ccess ed: " & f.DateL astAc cesse d & v bCrLf
s = s & "L ast M odifi ed: " & f.DateL astMo difie d
Ms gBoxs, 0, "Fil e Acc ess I nfo"
End S ub
Pa th属性
描述
指定文件、文件夹、或驱动器的路径。
语法
obje ct.Pa th
ob ject总是一个File、Folde r、或D rive对象。
说明
对于驱动器字母来说，不包括根驱动器。
例如，C驱动器的路径是 C:，而不是C:\。
下面的代码用一个F ile 对象举例说明了 Pat h 属性的用法：
S ub Sh owFil eAcce ssInf o(fil espec)
Dimfs, d, f,s
Setfs =Creat eObje ct("S cript ing.F ileSy stemO bject")
Set f =fs.Ge tFile(file spec)
s = U Case(f.Pat h) &vbCrL f
s =s & "Creat ed: " & f.DateC reate d & v bCrLf
s = s & "L ast A ccess ed: " & f.DateL astAc cesse d & v bCrLf
s = s & "L ast M odifi ed: " & f.DateL astMo difie d
Ms gBoxs, 0, "Fil e Acc ess I nfo"
End S ub
Ro otFol der属性
描述
一个F older对象，该对象表示一个指定驱动器的根文件夹。
只读属性。
语法
obje ct.Ro otFol der
o bject总是一个 Driv e 对象。
说明
驱动器上所包含的所有文件和文件夹都可以使用的 Fol der 对象进行访问。
Ser ialNu mber属性
描述
用于唯一标识磁盘卷标的十进制序列号。
语法
o bject.Seri alNum ber
o bject总是一个 Driv e 对象。
说明
可以使用S erial Numbe r 属性确保正确的磁盘已插入到某个带有可删除媒体的驱动器中。
下面的代码举例说明了 Ser ialNu mber属性的用法：
Sub Show Drive Info(drvpa th)
Di m fs, d, s, t
Se t fs= Cre ateOb ject("Scri pting.File Syste mObje ct")
S et d= fs.GetDr ive(f s.Get Drive Name(fs.Ge tAbso luteP athNa me(dr vpath)))
Se lectCased.Dri veTyp e
Case0: t= "Un known"
Case1: t= "Re movab le"
Cas e 2:t = "Fixed"
Case3: t= "Ne twork"
Case4: t= "CD-ROM"
C ase 5: t = "RAM Disk"
EndSelec t
s ="Driv e " & d.Dr iveLe tter& ":- " & t
s = s &vbCrL f & "SN: " & d.Seria lNumb er
Msg Box s
EndSub
S hareN ame属性
描述
指定驱动器的网络共享名。
语法
obj ect.S hareN ame
o bject总是一个 Driv e 对象。
说明
如果 obj ect 不是一个网络驱动器，则 Shar eName属性一个 0 字节长度的字符串("")。
下面的代码举例说明了S hareN ame 属性的用法：
SubShowD riveI nfo(d rvpat h)
Dim fs,d, s
Set f s = C reate Objec t("Sc ripti ng.Fi leSys temOb ject")
Setd = f s.Get Drive(fs.G etDri veNam e(fs.GetAb solut ePath Name(drvpa th)))
s = "Drive " &d.Dri veLet ter & ": - " &d.Sha reNam e
MsgB ox s
End S ub
Sh ortNa me属性
描述
需要较早的 8.3命名约定的程序所使用的短名字。
语法
o bject.Shor tName
obje ct 总是一个 Fi le 或Folde r 对象。
说明
下面的代码用一个 Fi le 对象举例说明了 Shor tName属性的用法：
Su b Sho wShor tName(file spec)
Dim f s, f, s
Set fs = Crea teObj ect("Scrip ting.FileS ystem Objec t")
Se t f = fs.G etFil e(fil espec)
s ="Theshort name for" & "" & U Case(f.Nam e)
s = s &"" &vbCrL f
s =s & "is: " & "" & f.Short Name& ""
M sgBox s, 0, "Sh ort N ame I nfo"
End S ub
Sh ortPa th属性
描述
需要较早的 8.3文件命名约定的程序所使用的短路径。
语法
obje ct.Sh ortPa th
ob ject总是一个File或 Fol der 对象。
说明
下面的代码用一个File对象举例说明了 Sh ortNa me 属性的用法：
Sub S howSh ortPa th(fi lespe c)
Dim fs,f, s
S et fs = Cr eateO bject("Scr iptin g.Fil eSyst emObj ect")
Set f = fs.GetF ile(f ilesp ec)
s= "Th e sho rt pa th fo r " & "" & UCas e(f.N ame)
s = s& ""& vbC rLf
s= s & "is: " &"" &f.Sho rtPat h & ""
MsgB ox s, 0, "Short Path Info"
End Sub
Size属性
描述
对于文件来说，以字节为单位的指定文件大小。
对于文件夹来说，以字节为单位的包含在文件夹中所有文件和子文件夹的大小。
语法
obj ect.S ize
o bject总是一个 File或 Fo lder对象。
说明
下面的代码用一个 Fold er 对象举例说明了 Size属性的用法：
Su b Sho wFold erSiz e(fil espec)
Dimfs, f, s
Se t fs= Cre ateOb ject("Scri pting.File Syste mObje ct")
S et f= fs.GetFo lder(files pec)
s = UC ase(f.Name) & " uses " &f.siz e & " byte s."
Ms gBoxs, 0, "Fol der S ize I nfo"
End S ub
So urce属性
或设置一个字符串表达式，指明最初生成错误的对象或应用程序的名称。
可读/可写。
说明
So urce属性是字符串表达式，指定生成错误的对象；此表达式通常是这个对象的类名或程序设计的 ID。
在程序代码无法处理被访问对象产生的错误时，请使
用S ource提供消息。
例如，如果访问M icros oft E xcel时生成了一个“除以零”的错误，则 Mic rosof t Exc el 将Err.N umber设置成代表此错误的错误代码，并将 So urce设置成E xcel.Appli catio n。
在错误生成时，Sourc e 就是应用程序的程序设计I D。
对于类模块，So urce应该包含一个具有p rojec t.cla ss 窗体的名称。
当代码中出现不可预料的错误时，S ource属性会自动填上数据。
对于标准模块中的错误，Sou rce 含有工程名称。
对于类模块中的错误，Sour ce 包含具有 pr oject.clas s 窗体的名称。
S ubFol ders属性
描述
包含所有文件夹的一个 Fo lders集合，这些文件夹包含在某个特定的文件夹中，包括设置了隐藏和系统文件属性的那些文件夹。
语法
obj ect.S ubFol ders
obje ct 总是一个 Fo lder对象。
说明
下面的代码举例说明了 Su bFold ers 属性的用法：
SubShowF older List(folde rspec)
Dimfs, f, f1, s, s f
Setfs =Creat eObje ct("S cript ing.F ileSy stemO bject")
Set f =fs.Ge tFold er(fo lders pec)
S et sf = f.SubFo lders
For E ach f1 insf
s =s & f1.nam e
s =s & vbCrL f
Next
MsgBo x s
E nd Su b
Tot alSiz e属性
描述
以字节为单位，驱动器或网络共享的总空间大小。
语法
objec t.Tot alSiz e
obj ect 总是一个D rive对象。
说明
下面的代码举例说明了 To talSi ze 属性的用法：
Sub S howSp aceIn fo(dr vpath)
Dimfs, d, s
Se t fs= Cre ateOb ject("Scri pting.File Syste mObje ct")
S et d= fs.GetDr ive(f s.Get Drive Name(fs.Ge tAbso luteP athNa me(dr vpath)))
s= "Dr ive " & d.Drive Lette r & ":"
s = s &vbCrL f
s =s & "Total Size: " & Form atNum ber(d.Tota lSize/1024, 0)& " K bytes"
s =s & v bCrLf
s = s & "A vaila ble:" & F ormat Numbe r(d.A vaila bleSp ace/1024,0) &" Kby tes"
M sgBox s
En d Sub
Type属性
描述
关于某个文件或文件夹类型的信息。
例如，对于以.TXT结尾的文件来说，"TextDocum ent"。
语法
o bject.Type
obje ct 总是一个 Fi le 或Folde r 对象。
说明
下面的代码举例说明了某个文件夹类型的 Ty pe 属性的用法。
在这个示例中，试图将Recyc le Bi n 的路径或其他唯一的文件夹提供给过程。
SubShowF ileSi ze(fi lespe c)
Dim fs,f, s
S et fs = Cr eateO bject("Scr iptin g.Fil eSyst emObj ect")
Set f = fs.GetF older(file spec)
s = U Case(f.Nam e) &" isa " & f.Ty pe
Ms gBoxs, 0, "Fil e Siz e Inf o"
En d Sub
Volu meNam e属性
描述
设置或指定驱动器的卷标名。
读/写属性。
语法
obj ect.V olume Name[= ne wname]
Vol umeNa me 属性有下列几部分：
部分描述
o bject必需的。
总是一个Drive对象的名字。
ne wname可选的。
如果提供的话，new name是指定o bject的新名字。
说明
下面的代码举例说明了 Vol umeNa me 属性的用法：
Sub S howVo lumeI nfo(d rvpat h)
Dim fs,d, s
S et fs = Cr eateO bject("Scr iptin g.Fil eSyst emObj ect")
Set d = fs.GetD rive(fs.Ge tDriv eName(fs.G etAbs olute PathN ame(d rvpat h)))s = "D rive" & d.Driv eLett er &": -" & d.Volu meNam e
MsgB ox s
End S ub
。