Drives 集合

[code]ShowDriveList [/code]函数[code]    Dim fso, d, dc, s, n[/code][code]    Set fso = CreateObject("Scripting.FileSystemObject")[/code][code]    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 = Remote 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]