用程式控制 Win Server 2003 做磁碟重組
如何用程式控制 Win Server 2003 做磁碟重組
DefragDrv "C:" ' 呼叫磁碟重組 , 並傳入磁碟機代號
Private Sub DefragDrv(strDrv As String)
Dim Volumes, Volume
strDrv = strDrv & "\\"
' 使用 WMI 物件 的 Win32_Volumn 類別
Set Volumes = GetObject("winmgmts:").ExecQuery _
("Select * from Win32_Volume Where Name = '" & strDrv & "'")
For Each Volume In Volumes ' 列舉 Volume
Volume.Defrag ' 進行重組
Next
End Sub