iT邦幫忙

DAY 25
5

WSH研習記錄系列 第 27

WSH研習記錄--磁碟操作篇(取得磁碟的容量)

磁碟的容量也是很重要的一個環節
那要如何取得呢??
利用Drive物件的FreeSpace屬性來取得剩餘的磁碟空間大小
利用Drive物件的TotalSize屬性可取的磁碟的總容量...
一樣,看範例...

Option Explicit

Private FSO
Private d
Private FSize, TSize
Private Ftemp, Ttemp

Set FSO = CreateObject("Scripting.FileSystemObject")
For Each d In FSO.Drives
  If d.IsReady Then
    FSize = d.FreeSpace
    TSize = d.TotalSize
    If FSize > 0 Then
      Ftemp = Fix(Log(FSize) / (10 * Log(2)))
    Else
      Ftemp = 0
    End If
    If TSize > 0 Then
      Ttemp = Fix(Log(TSize) / (10 * Log(2)))
    Else
      Ttemp = 0
    End If
    WScript.Echo d.DriveLetter & vbCrLf & "Free Size:" _
    , CLng(FSize / 2^(Ftemp * 10)) & Split(" K M G T")(Ftemp) & "B" _
    , "(" & FormatNumber(FSize, 0, vbTrue, vbFalse, vbTrue) & "位元組)" & vbCrLf & "Total Size:" _
    , CLng(TSize / 2^(Ttemp * 10)) & Split(" K M G T")(Ttemp) & "B" _
    , "(" & FormatNumber(TSize, 0, vbTrue, vbFalse, vbTrue) & "位元組)"
  End If
Next
Set FSO = Nothing

執行之後,你就可以看到你的電腦裡的所有磁碟的容量
當然這也包含了你目前所有連線的網路磁碟機的容量..

提供給有需要的人..


上一篇
WSH研習記錄--磁碟操作篇(取得磁碟的種類)
下一篇
WSH研習記錄--Office應用程式操作篇(Excel應用一)
系列文
WSH研習記錄42

尚未有邦友留言

立即登入留言