Drives 属性

[code]Function ShowDriveList   Dim fso, d, dc, s, n   Set fso = CreateObject("Scripting.FileSystemObject")   Set dc = [b]fso.Drives[/b][/code]   [code]For Each d in dc[/code][code]      n = ""[/code][code]      s = s & d.DriveLetter & " - " [/code][code]      If d.DriveType = 3 Then[/code][code]         n = d.ShareName[/code][code]      ElseIf d.IsReady Then[/code][code]         n = d.VolumeName[/code][code]      End If[/code][code]      s = s & n & "<BR>"[/code][code]   Next[/code][code]   ShowDriveList = s[/code][code]End Function[/code]