Defragment a drive in vb.net

[BrettW]

Does anyone know any way to defrag a disk in vb.net??

[PlausiblyDamp]

Something like

  Dim ComputerName As String = ""
       Dim wmi As New ManagementObjectSearcher("Select * from Win32_Volume Where Name = 'C:\\'")


       Dim volumes As ManagementObjectCollection

       volumes = wmi.Get()

       For Each Volume As ManagementObject In volumes
           Volume.InvokeMethod("Defrag", Nothing)
       Next

should do the trick, you will need to add a reference to System.Management.dll as well for it to compile.

[BrettW]

Thanks,

 

may I ask what is this bit for:

Dim ComputerName As String = ""

 

??

[BrettW]

Is there any way to get the defrag progress so i can use a Progress Bar?

[PlausiblyDamp]

The ComputerName bit isn't really needed, didn't realise I had left it in - I threw that sample together in a bit of a rush :o

[BrettW]

Ok.

 

Umm, when I tried this, it came up with the exception: Invalid Class ?

 

 Dim wmi As New ManagementObjectSearcher("Select * from Win32_Volume Where Name = 'C:\\'")
       Dim volumes As ManagementObjectCollection
       volumes = wmi.Get()
       For Each Volume As ManagementObject In volumes
           Volume.InvokeMethod("Defrag", Nothing)
       Next

[PlausiblyDamp]

The above code runs with no errors on my laptop...

Which line throws the exception? What os are you running on the computer in question?

[BrettW]

It highlights the 'Next' line when it throws the exception.

I am running Windows XP SP2 on a HP 6730b laptop.

[PlausiblyDamp]

http://msdn.microsoft.com/en-us/library/aa394515%28VS.85%29.aspx - oh well. Depending on what you are doing it might be easier to just schedule a defrag run using the task scheduler included with xp itself.

[BrettW]

Thanks,

but i am making a program that cleans out your pc and defrags it, deletes temp files etc.

 

I could just run Execute defrag.exe but i want a progress bar etc. i wonder if there is any other way since you can't do it in XP.