Deleting all files in a folder [RESOLVED]

[Blinky Bill]

Hi Guys,
I want to delete the contents of a directory and i don't really know how to go about doing that. The directory may or may not contain files and it will contain an unknown number of files.

Any help would be greatly appreciated.

[crptcblade]

On Error Resume Next
 
    Kill "C:\SomeDir\*.*"

[Harvester]

The FileSystemObject would be the easiest way although it will require a reference to the scrrun.dll.

Private Sub KillFiles()
Dim fso as FileSystemObject
Dim myFolder as Folder
Dim myFile as File
 
    Set fso = new FileSystemObject
    Set myFolder = fso.GetFolder(<FolderPath Here>)
 
    For Each myFile in myFolder.Files
        myFile.Delete(True)
    Next myFile
 
 
End Sub

try that out..

[Blinky Bill]

Thanks crptcblade. Too simple a solution to have occured to me.

[Sastraxi]

If you want another piece of code:

Shell "Kill C:\SomeDir\*.*"

[Blinky Bill]

Sastraxi, Isn't that pretty much the same code crptcblade posted?

[Sastraxi]

Yeh, but meh. Just stating that you can still use the commandline, even though it's Windows