Defragger for Vista

[kiddingguy]

Hello,

I have bought a license for O&O Software's Defrag.

This version is also compatible with Vista.

I was wondering... is any 3rd party defragging tool better than Windows' Vista build-in one?

For XP I have noticed much improvement using O&O's Software version.

[Mark Schieldrop]

The built in Vista defragger is tops.

http://blogs.technet.com/filecab/archive/2...ag-is-cool.aspx

[BoDEAN]

Stay away from the built in one.

Perfect Disk is what I use, and its rock solid

[Slimy]

It is sure as hell less informative, but it does a solid job.

[1Frothy]

Yeah I noticed that the defragger in Vista is actually good, I just wish it had a nice block graph that I could look at.

[.Markus]

Works like a charm here, don't need all the bells and whistles myself...

[Stingray]

Stay away from the built in one.

Perfect Disk is what I use, and its rock solid

If you say so. :rolleyes:

[-Pats]

Ive tried them all. For Vista, UltimateDefrag is the best Ive used. You can find a trial version on softpedia.com

Diskeeper 2007 is pretty good as long as you dont use the system slowing "auto defrag" or "ifaast"

[Doli]

The built in Vista defragger is tops.

http://blogs.technet.com/filecab/archive/2...ag-is-cool.aspx

Wow, the 4th reply on that site.

Please, as a user, my highest priority is speed of defrag, not the efficiency...

:blink:

The only problem I have with Vista Defrag is that when I do a manual defrag my computer will go to sleep mode during the defrag so I have to set the sleep time to "never". Other than that my computer runs smooth when im defrag is running with other programs open.

[null_]

I just ran JkDefrag on my Windows Vista installation, seemed to have done a good job. http://www.kessels.com/JkDefrag/ is the URL for it.

[MrBear5587]

I'd recommend PerfectDisk 8, but if you can tolerate the lack of information from the Vista defrag, then it'll do just fine.

[Kasteo]

The problem of build in Vista defrager is that you can't select which drive you want it to defrag... when you click defragment, it will defrag every drive your system has at the moment... which is a really bad thing for me. Don't know why it is a step back from Windows XP.

[Infinione]

'Auslogics Disk Defrag' all the way!

I use it on Vista, and have turned off the built in defragger. I added a sheduled task to run Auslogics disk defrag once a month.

Reviews: http://www.snapfiles.com/opinions/auslogic...isk-defrag.html

Very very fast, you get a nice block graph, and it reports the improvement in your system speed when it's done. Best of all, it's completely free!

Download it here:-

http://www.auslogics.com/disk-defrag/index.php

Auslogics also do a registry defrag, which I haven't tried on Vista (little bit scared to do so), however I ran it on my XP work laptop with no problems at all.

Download it here: http://www.auslogics.com/registry-defrag/index.php

[Nicholas-c Veteran]

windows default one is fine but doesnt tell you what % it has done so you have no idea when its done (or going to be)

[Plarkster]

Another vote for Auslogics Disk Defrag - works great!

[simmorya]

Im pretty sure that Microsoft tweaked the defragger in Longhorn Server so its more informative. I could be wrong but I swear I read this somewhere. If its true, atleast with a bit of luck, Defrag.exer will be updated with Vista SP1.

[Banne]

diskeeper myself works great

[Viper101]

Perfect Disc works fine with Vista.

I have also tried the built in Vista defrag program. But I still believe you cant beat a 3rd party application, as Vista seems to take ages to defrag when a 3rd party application can take 10 minutes.

[Brian M. Veteran]

I use the inbuilt one. If you're having trouble selecting a disk to defrag, open up command prompt, and type:

defrag c:

where C is the drive letter you want to defrag.

You can also just get a starts report by adding /a to that

[TomHall]

Diskeeper 2007 for me

[jake1eye]

I just use Vista built in defrag and a VBS script to run it.

Save As DefragDrive.vbs

strComputer = "." 
 Dim Wmi : Set Wmi = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
 Dim Act : Set Act = CreateObject("Wscript.Shell")
 Dim ObjItem,ColItems,GB, Var1
  GB = Int(1073741824)
Set ColItems = Wmi.ExecQuery("SELECT * FROM Win32_LogicalDisk",,48) 
   For Each ObjItem in ColItems 
	If ObjItem.DriveType = 3 Then 
	Var1 = objItem.Size - objItem.FreeSpace
	 Act.Popup "Preparing To Defrag This Drive" & vbCrLf &_
	 Space(3) & "Drive Letter"& vbTab & ObjItem.Caption & vbCrLf &_
	 Space(3) & "Volume Name" & vbTab & objItem.VolumeName & vbCrLf &_
	 Space(3) & "Total Size" & vbTab & FormatNumber(objItem.Size/GB,2) & " GB" & vbCrLf &_
	 Space(3) & "Free Space" & vbTab & FormatNumber(objItem.FreeSpace/GB,2) & " GB" & vbCrLf &_
	 Space(3) & "Used Space" & vbTab & FormatNumber(Var1/GB,2) & " GB", 3,"Defrag",4128
	 Act.Run("Defrag.exe " & ObjItem.Caption &"\"),2,True 
	End If 
   Next
  Act.Popup "Finished The Defrag",7,"Finshed Defrag",4128

I use this script to clear resent, temp and Defrag all drives

Save As SysMaintence.vbs

 Const MY_RECENT_DOCUMENTS = &H8&
 Dim Arg1, ColItems, File, GB, ObjItem, StrF, StrFItem, strComputer, Var1
  strComputer = "." 
 Dim Shell :Set Shell = CreateObject("Shell.Application")
 Dim Act   :Set Act = CreateObject("Wscript.Shell")
 Dim Fso   :Set Fso = CreateObject("Scripting.FileSystemObject")
 Dim Wmi   :Set Wmi = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
  Set StrF = Shell.Namespace(MY_RECENT_DOCUMENTS)
  Set StrFItem = StrF.Self
  Set ColItems = StrF.Items
'/-> Clear Recent List 
   If ColItems.Count = 0 Then
	Act.Popup "Recent is Empty, Nothing To Delete",3,"Clear Recent",4128
   Else 
	Act.Popup "Preparing To Clean Up The Recent Folder",3,"Clear Recent",4128
   For Each ObjItem in ColItems
	Set Arg1 = Fso.GetFile(ObjItem.Path)
	Arg1.Delete()
   Next
  End If 
'/-> Clears User Tmp Folder
  Set Var1 = Fso.GetFolder(Fso.GetSpecialFolder(2))
  Set File = Var1.Files 
  Act.Popup "Preparing To Clean Up User Temp" & vbCrLf & Var1.Path,3,Var1.Name,4128 
  For Each StrF In File
   If InStr(StrF.Name,".bmp") Then 
	Else 
	 Set Arg1 = Fso.GetFile(StrF.Path) 
	 On Error Resume Next 
	Arg1.Delete()
   End If 
  Next
'/-> Defrag All Drives
  GB = Int(1073741824)
  Set ColItems = Wmi.ExecQuery("SELECT * FROM Win32_LogicalDisk",,48) 
  For Each ObjItem in ColItems 
   If ObjItem.DriveType = 3 Then 
	Var1 = objItem.Size - objItem.FreeSpace
	Act.Popup "Preparing To Defrag This Drive" & vbCrLf &_
	Space(3) & "Drive Letter"& vbTab & ObjItem.Caption & vbCrLf &_
	Space(3) & "Volume Name" & vbTab & objItem.VolumeName & vbCrLf &_
	Space(3) & "Total Size" & vbTab & FormatNumber(objItem.Size/GB,2) & " GB" & vbCrLf &_
	Space(3) & "Free Space" & vbTab & FormatNumber(objItem.FreeSpace/GB,2) & " GB" & vbCrLf &_
	Space(3) & "Used Space" & vbTab & FormatNumber(Var1/GB,2) & " GB", 3,"Defrag",4128
	Act.Run("Defrag.exe " & ObjItem.Caption &"\"),2,True 
   End If 
  Next
  Act.Popup "Finished The Defrag",7,"Finshed Defrag",4128

[OPaul]

What method does Vista's built in one use to reorganize blocks? i.e frequency of use, last used... etc.

[andy_rose]

I just use Vista built in defrag and a VBS script to run it.

Save As DefragDrive.vbs

Does this only defrag disk C ?

[xsliver]

What method does Vista's built in one use to reorganize blocks? i.e frequency of use, last used... etc.

https://blogs.technet.com/filecab/articles/440717.aspx

[jake1eye]

Does this only defrag disk C ?

It defrag all local drives on the computer.

If you want to only degrag C here is a script.

Save As Defrag_C.vbs

strComputer = "." 
Dim Wmi : Set Wmi = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
Dim Act : Set Act = CreateObject("Wscript.Shell")
Dim ObjItem,ColItems,GB, Var1
  GB = Int(1073741824)
Set ColItems = Wmi.ExecQuery("SELECT * FROM Win32_LogicalDisk",,48) 
   For Each ObjItem in ColItems 
	If ObjItem.DriveType = 3 Then 
	 If InStr(ObjItem.Caption,"C") Or InStr(ObjItem.Caption,"c") Then 
	  Var1 = objItem.Size - objItem.FreeSpace
	  Act.Popup "Preparing To Defrag This Drive" & vbCrLf &_
	  Space(3) & "Drive Letter"& vbTab & ObjItem.Caption & vbCrLf &_
	  Space(3) & "Volume Name" & vbTab & objItem.VolumeName & vbCrLf &_
	  Space(3) & "Total Size" & vbTab & FormatNumber(objItem.Size/GB,2) & " GB" & vbCrLf &_
	  Space(3) & "Free Space" & vbTab & FormatNumber(objItem.FreeSpace/GB,2) & " GB" & vbCrLf &_
	  Space(3) & "Used Space" & vbTab & FormatNumber(Var1/GB,2) & " GB", 3,"Defrag",4128
	  Act.Run("Defrag.exe " & ObjItem.Caption &"\"),2,True
	 End If  
	End If 
   Next
  Act.Popup "Finished The Defrag",7,"Finshed Defrag",4128