<p>FSO系列之六**示例代码之详细代码1</p>
<p>''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''<br />
'<br />
' ShowDriveType<br />
'<br />
' 目的： <br />
'<br />
' 生成一个字符串，来描述给定 Drive 对象的驱动器类型。<br />
'<br />
' 示范下面的内容<br />
'<br />
' - Drive.DriveType<br />
'<br />
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''</p>
<p>Function ShowDriveType(Drive)</p>
<p> Dim S<br />
<br />
Select Case Drive.DriveType<br />
Case DriveTypeRemovable<br />
S = "Removable"<br />
Case DriveTypeFixed<br />
S = "Fixed"<br />
Case DriveTypeNetwork<br />
S = "Network"<br />
Case DriveTypeCDROM<br />
S = "CD-ROM"<br />
Case DriveTypeRAMDisk<br />
S = "RAM Disk"<br />
Case Else<br />
S = "Unknown"<br />
End Select</p>
<p> ShowDriveType = S</p>
<p>End Function</p>
<p>''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''<br />
'<br />
' ShowFileAttr<br />
'<br />
' 目的： <br />
'<br />
' 生成一个字符串，来描述文件或文件夹的属性。<br />
'<br />
' 示范下面的内容<br />
'<br />
' - File.Attributes<br />
' - Folder.Attributes<br />
'<br />
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''</p>
<p>Function ShowFileAttr(File) ' File 可以是文件或文件夹</p>
<p> Dim S<br />
Dim Attr<br />
<br />
Attr = File.Attributes</p>
<p> If Attr = 0 Then<br />
ShowFileAttr = "Normal"<br />
Exit Function<br />
End If</p>
<p> If Attr And FileAttrDirectory Then S = S & "Directory "<br />
If Attr And FileAttrReadOnly Then S = S & "Read-Only "<br />
If Attr And FileAttrHidden Then S = S & "Hidden "<br />
If Attr And FileAttrSystem Then S = S & "System "<br />
If Attr And FileAttrVolume Then S = S & "Volume "<br />
If Attr And FileAttrArchive Then S = S & "Archive "<br />
If Attr And FileAttrAlias Then S = S & "Alias "<br />
If Attr And FileAttrCompressed Then S = S & "Compressed "</p>
<p> ShowFileAttr = S</p>
<p>End Function</p>
<p><br />
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''<br />
'<br />
' GenerateDriveInformation<br />
'<br />
' 目的： <br />
'<br />
' 生成一个字符串，来描述可用驱动器的当前状态。<br />
'<br />
' 示范下面的内容<br />
'<br />
' - FileSystemObject.Drives <br />
' - Iterating the Drives collection<br />
' - Drives.Count<br />
' - Drive.AvailableSpace<br />
' - Drive.DriveLetter<br />
' - Drive.DriveType<br />
' - Drive.FileSystem<br />
' - Drive.FreeSpace<br />
' - Drive.IsReady<br />
' - Drive.Path<br />
' - Drive.SerialNumber<br />
' - Drive.ShareName<br />
' - Drive.TotalSize<br />
' - Drive.VolumeName<br />
'<br />
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''</p>
<p>Function GenerateDriveInformation(FSO)</p>
<p> Dim Drives<br />
Dim Drive<br />
Dim S</p>
<p> Set Drives = FSO.Drives</p>
<p> S = "Number of drives:" & TabStop & Drives.Count & NewLine & NewLine</p>
<p> ' 构造报告的第一行。<br />
S = S & String(2, TabStop) & "Drive" <br />
S = S & String(3, TabStop) & "File" <br />
S = S & TabStop & "Total"<br />
S = S & TabStop & "Free"<br />
S = S & TabStop & "Available" <br />
S = S & TabStop & "Serial" & NewLine</p>
<p> ' 构造报告的第二行。<br />
S = S & "Letter"<br />
&</p>