A little Defrag all drives script.

[ezzetabi 3]

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

[DirtyBanditos 0]

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 !