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

'自我學(xué)習(xí)系列

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

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

Function dirvesmsg
      msg = "驅(qū)動器名稱：" & objDrive.DriveLetter & "   "
      msg =msg & "文件系統(tǒng)的類型：" & objDrive.FileSystem &"  "
      msg = msg & "驅(qū)動器總?cè)萘浚? & int(objDrive.TotalSize/(1024*1024*1024)) & "G "
      msg = msg & "剩余空間總量：" & int(objDrive.FreeSpace/(1024*1024*1024)) & "G  "
      msgbox msg  '
End Function

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

For Each objDrive in colDrives
'判斷驅(qū)動器是否已準(zhǔn)備好
 If objDrive.IsReady Then
      dirvesmsg  ' 調(diào)用  Function
  End If
Next
reporter.ReportEvent  micDone ,"遍歷Drives集合",msg

詳細(xì)內(nèi)容原文我的QQ blog