ezzetabi Posted January 15, 2005 Share Posted January 15, 2005 WinXP only. Local $sLog = 'c:\DefragAll-log.txt' Local $aD, $c, $c2 For $c2 = 1 To 2 Select Case $c2 = 1 $aD = DriveGetDrive("RAMDISK") Case $c2 = 2 $aD = DriveGetDrive("FIXED") EndSelect If Not @error Then For $c = 1 To $aD[0] FileWriteLine($sLog, 'Drive ' & $aD[$c] & ' started : ' & _DateTime()) RunWait(@ComSpec & ' /c defrag ' & $aD[$c] & ' /f') FileWriteLine($sLog, 'Drive ' & $aD[$c] & ' finished : ' & _DateTime()) RunWait(@ComSpec & ' /c defrag ' & $aD[$c] & ' -a -v >> "' & $sLog & '"') FileWrite($sLog, @CRLF) Next EndIf Next Func _DateTime() Return @YEAR & '-' & @MON & '-' & @MDAY & ' ' & @HOUR & ':' & @MIN EndFunc ;==>_DateTime Link to comment Share on other sites More sharing options...
DirtyBanditos Posted January 15, 2005 Share Posted January 15, 2005 WinXP only.Local $sLog = 'c:\DefragAll-log.txt' Local $aD, $c, $c2 For $c2 = 1 To 2 Select Case $c2 = 1 $aD = DriveGetDrive("RAMDISK") Case $c2 = 2 $aD = DriveGetDrive("FIXED") EndSelect If Not @error Then For $c = 1 To $aD[0] FileWriteLine($sLog, 'Drive ' & $aD[$c] & ' started : ' & _DateTime()) RunWait(@ComSpec & ' /c defrag ' & $aD[$c] & ' /f') FileWriteLine($sLog, 'Drive ' & $aD[$c] & ' finished : ' & _DateTime()) RunWait(@ComSpec & ' /c defrag ' & $aD[$c] & ' -a -v >> "' & $sLog & '"') FileWrite($sLog, @CRLF) Next EndIf Next Func _DateTime() Return @YEAR & '-' & @MON & '-' & @MDAY & ' ' & @HOUR & ':' & @MIN EndFunc ;==>_DateTime<{POST_SNAPBACK}>Hello löl great i wörks very nice i use it and he defrag nice thx you ezzetabi ! Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now