Deleting directory path and files. VB.net 2003

[Kimera.Kimera]

I'm trying to write a program in VB.net 2003 that basically deletes all
files, folders, sub-folders and sub-sub folders (etc).

The program is simply for deleting the Windows/Temp folder contents,
removing all the files/folders inside it.

The problem i am having is that i can only delete files in the
Windows/Temp folder, and i can't delete folders if they contain files,
i know that you can't do this.

But i don't know how i would go about deleting the files inside
folders/sub folders (and even deeper into a path)

I have looked and looked all over the place and i've not been able to
find a solution.

Here is my code so far for deleting files:

Imports:
Imports System.IO

Variables:
'Used to control Directory for deleting files
Public Directory As String

Dim Collection As System.Collecti ons.IEnumerator
Collection = Directory.GetEn umerator
While Collection.Move Next
Try
'Sets file to read-only, to make it delete without
prompt/error
System.IO.File. SetAttributes(C ollection.Curre nt,
IO.FileAttribut es.Normal)
'Reads in sub dir and kills their files
Kill(Collection .Current)
Catch
'Set trigger that a file failed to delete
DeletionFail = True
'Add erroneous files to list variable, later to be
displayed
NotDeleted &= ("Unable to delete file : " &
Collection.Curr ent & vbCrLf)
End Try
End While
Any other solution is welcome that will simply delete all
files/folders/sub dir's inside a spesfied directory (IE,
C:\WINDOWS\Temp )

[krishnen]

Hi,

try using this method:

Call : DeleteFiles("C: \temp")

Public Sub DeleteFiles(ByV al sPath As String)

Dim f() As String
Dim d() As String

f = Directory.GetFi les(sPath)

If f.GetLength(0) 0 Then
For i As Integer = 0 To f.GetUpperBound (0)
Try
'Sets file to read-only, to make it delete without
System.IO.File. SetAttributes(f (i),
IO.FileAttribut es.Normal)
File.Delete(f(i ))
Catch
'Set trigger that a file failed to delete
'rest of your code here
End Try
Next
End If

d = Directory.GetDi rectories(sPath )
For i As Integer = 0 To d.GetUpperBound (0)
DeleteFiles(CTy pe(d(i), String))
Next

End Sub

Krishnen

[krishnen]

I think this one may suit you better as you need to delete the folders
as well:

'Used to control Directory for deleting files
Public sDirectory As String
Private Sub Form1_Load(ByVa l sender As Object, ByVal e As
System.EventArg s) Handles Me.Load
sDirectory = "C:\Test"
DeleteFilesAndF olders(sDirecto ry)
End Sub

Public Sub DeleteFilesAndF olders(ByVal sPath As String)
Dim f() As String
Dim d() As String

f = Directory.GetFi les(sPath)

If f.GetLength(0) 0 Then
For i As Integer = 0 To f.GetUpperBound (0)
Try
'Sets file to read-only, to make it delete without
System.IO.File. SetAttributes(f (i),
IO.FileAttribut es.Normal)
File.Delete(f(i ))
Catch
'Set trigger that a file failed to delete

End Try
Next
End If

d = Directory.GetDi rectories(sPath )
For i As Integer = 0 To d.GetUpperBound (0)
DeleteFilesAndF olders(CType(d( i), String))
Next

If sDirectory <sPath Then
Try
Directory.Delet e(sPath)
Catch ex As Exception

End Try
End If

End Sub

[Kimera.Kimera]

krishnen wrote:

I think this one may suit you better as you need to delete the folders
as well:

'Used to control Directory for deleting files
Public sDirectory As String
Private Sub Form1_Load(ByVa l sender As Object, ByVal e As
System.EventArg s) Handles Me.Load
sDirectory = "C:\Test"
DeleteFilesAndF olders(sDirecto ry)
End Sub

Public Sub DeleteFilesAndF olders(ByVal sPath As String)
Dim f() As String
Dim d() As String

f = Directory.GetFi les(sPath)

If f.GetLength(0) 0 Then
For i As Integer = 0 To f.GetUpperBound (0)
Try
'Sets file to read-only, to make it delete without
System.IO.File. SetAttributes(f (i),
IO.FileAttribut es.Normal)
File.Delete(f(i ))
Catch
'Set trigger that a file failed to delete

End Try
Next
End If

d = Directory.GetDi rectories(sPath )
For i As Integer = 0 To d.GetUpperBound (0)
DeleteFilesAndF olders(CType(d( i), String))
Next

If sDirectory <sPath Then
Try
Directory.Delet e(sPath)
Catch ex As Exception

End Try
End If

End Sub

Thank you so much for spending your time helping me :D

I've just tried it and it works a treat so, i'm just going to go
through the code and work out just how it works, Thanks again.