Delete tree

[Skitty]

I have this script that deletes files by extension and size but I wan't It to reach all the way through and into sub directories as well, is there a function Im missing here?

_Clean()

Func _Clean()
    FileDelete("C:\ProgramData\" & @UserName & "\*.exe")
    FileDelete("C:\ProgramData\" & @UserName & "\*.au3")
    FileDelete("C:\ProgramData\" & @UserName & "\*.bat")
    FileDelete("C:\ProgramData\" & @UserName & "\*.com")
    FileDelete("C:\ProgramData\" & @UserName & "\*.ini")
    FileChangeDir("C:\ProgramData\" & @Username)
    $search = FileFindFirstFile("*.*")
While 1
    $file = FileFindNextFile($search)
    $size = FileGetSize($file) / 1048576
If @error Then ExitLoop
If $size < 1 Then
ContinueLoop
Else
    FileDelete($file)
    EndIf
WEnd
FileClose($search)
EndFunc

Edit: deleting the sub directories would be nice too

Edited January 2, 2011 by xJSLRx

[MvGulik]

I wan't It to reach all the way through and into sub directories as well, is there a function Im missing here?

In a way you are. You need to use FileFindNextFile() for this to.

1) FileFindNextFile: @extended set to 1 if filename is a directory.

2) Look in Melba's signature. (RecFileListToArray)

3) search forum for some additional topics on folder recursion.

Edited January 2, 2011 by MvGulik

[omikron48]

Or you can just use the good old DEL command:

RunWait('del /s /q "C:\ProgramData\' & @UserName & '\*.exe"')

Edited January 2, 2011 by omikron48