Delete the contents of a directory
This snippet explains how you can delete the contents of a directory with deleting the contents itself, as the folder could have sharing information etc. It also explains how to do it, the .NET way.
''' <summary>
''' Deletes the contents of a directory.
''' </summary>
''' <param name="dir">Directory to delete the contents of.</param>
Public Sub DeleteDirContents(ByVal dir As IO.DirectoryInfo)
Dim fa() As IO.FileInfo
Dim f As IO.FileInfo
fa = dir.GetFiles
For Each f In fa
f.Delete()
Next
Dim da() As IO.DirectoryInfo
Dim d1 As IO.DirectoryInfo
da = dir.GetDirectories
For Each d1 In da
DeleteDirContents(d1)
Next
End Sub
' To use the subroutine, use this code inside a subroutine.
' "c:\lol" being the path you would like to use.
DeleteDirContents(New IO.DirectoryInfo("c:\lol"))
See Also
Dream In Code Submission - http://www.dreamincode.net/code/snippet1426.htm
page revision: 0, last edited: 19 Nov 2007 09:20