The defrag screen is useless compared to XP where it at least showed what percent it was done and showed colour co-ordinated files etc etc. In Vista this isnt the case any reg tweak or something to have it like XP or am i stuck with it?
thanks
Full Version: Defragmentation
The only way to get something more XP-like is to install a defrag program.
I opt for Vopt8. It is fast, reliable and scheduleable. The program is lite and nimble and if you like to watch it provides a good show! :^) It's made by Golden Bow, one of the oldest and best in the business. Oh, and it's built for Vista.
There is a free defrag tool for download here: http://www.auslogics.com/disk-defrag/index.php
It works fine and gives back the ability to defrag individual partitions/disks
See screen shots here: http://www.auslogics.com/disk-defrag/screenshot.php
It works fine and gives back the ability to defrag individual partitions/disks
See screen shots here: http://www.auslogics.com/disk-defrag/screenshot.php
I've always been on Diskeeper, i love the new GUI and freedom from scheduling defrags in the new edition. Its runs fine on the Vista too.
I do my defragmentation at night. No need to third-party. Let windows do it's job at night.
wow i havnt defragged for a couple of months! i use diskeeper beta for vista.
QUOTE (spacesurfer @ Jun 11 2007, 05:28 PM) 
I do my defragmentation at night. No need to third-party. Let windows do it's job at night.
I am a bit confused by that. Are you saying that you have found a way of defragging an individual partition or a disk from within Vista ?
At the moment if I leave it running overnight it just runs through all five HDD's and would still be running way into the next day.
The only way I've found I can do a selective defrag it is with third party software, am I missing some important information here ?
Anybody know how to do this from within Vista please pass the info on . Thanks.
As far as I know, Vista does not defrag all drives (or partitions). You select which drive (or partitions) to defrag. I run defrag by right-clicking on the drive --> tools --> defrag. (I'm not in Vista right now so I can't confirm these steps). It actually analyzes the partition you select first and recommends whether to defrag or not to defrag.
When I defrag, I only do the OS drive.
When I defrag, I only do the OS drive.
Thanks for the reply. I must say that I didn't think of right clicking and choosing, I just went straight into Defrag.
I'll have another go when I go back to Vista.
Thanks.
I'll have another go when I go back to Vista.
Thanks.
QUOTE (ripken204 @ Jun 11 2007, 03:43 PM)
wow i havnt defragged for a couple of months! i use diskeeper beta for vista.
+1 Diskeeper is the fastest and it's very good
I think VOPT is good too but Vista defrag runs at idle and undoes all the work.
QUOTE (garnet @ Jun 11 2007, 10:16 AM)
I've always been on Diskeeper, i love the new GUI and freedom from scheduling defrags in the new edition. Its runs fine on the Vista too.
im with you, ive always used diskeeper ever since i found out about it back in 03 or 04. i tried raxco's perfect disk but i still like diskeeper better. the only thing i dont like about the new version (2007) is how the analyze/defrag screen isnt integrated into the program (it makes a pop-up, which annoys me, if i want to analyze and defragment i dont want to switch between windows). as for the windows defrag tool ive barely ever used it, it seems like it does an inferior job compared to diskeeper.
I use the default defrag on Vista works fine I havnt had any problems using it.
This is the script I use, it clears the recent folder, user temp then defrag all drives.
Save as SysMaintence.vbs
This is the script I use, it clears the recent folder, user temp then defrag all drives.
Save as SysMaintence.vbs
QUOTE
CODE
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 Clearing Recent, User Temp, Defrag",7,"Finshed",4128
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 Clearing Recent, User Temp, Defrag",7,"Finshed",4128
This is a "lo-fi" version of our main content. To view the full version with more information, formatting and images, please click here.