'Company: ××××
'''''''''''''''''''''''''''''''''''''''''''''''''''''

'自我學習系列

'Author: joan ''
'Product: Test
'Date: 2010.5.5

'''''''''''''''''''''''''''''''''''''''''''''''''''''

Function dirvesmsg
      msg = "驅動器名稱：" & objDrive.DriveLetter & "   "
      msg =msg & "文件系統的類型：" & objDrive.FileSystem &"  "
      msg = msg & "驅動器總容量：" & int(objDrive.TotalSize/(1024*1024*1024)) & "G "
      msg = msg & "剩余空間總量：" & int(objDrive.FreeSpace/(1024*1024*1024)) & "G  "
      msgbox msg  '
End Function

' 創建FileSystemObject對象
Set objFSO = CreateObject("Scripting.FileSystemObject")
' 創建Drives集合，并賦值給colDrives
Set colDrives = objFSO.Drives
' 遍歷Drives集合

For Each objDrive in colDrives
'判斷驅動器是否已準備好
 If objDrive.IsReady Then
      dirvesmsg  ' 調用  Function
  End If
Next
reporter.ReportEvent  micDone ,"遍歷Drives集合",msg

詳細內容原文我的QQ blog