DirRemove w/ Wildcard

[ViciousXUSMC 61]

I found this thread w/ a non working example: '?do=embed' frameborder='0' data-embedContent>>

I made a few changes and now it appears it is working.

#RequireAdmin

$path = "C:\Users\frpatrmo\desktop\home\"
$search = FileFindFirstFile("C:\Users\frpatrmo\desktop\home\test*")
While 1
    $file = FileFindNextFile($search)
    If @Error then ExitLoop
    ;debug current file name
    ;MsgBox(0, "", $file)
    $ats = FileGetAttrib($path & $file)
    ;debug current file attribute
    ;MsgBox(0, "", $ats)
    If StringInStr($ats, "D") Then
        DirRemove($path & $file, 1)
    EndIf
WEnd

Anybody know a better way to do a "wildcard" file/dir delete? I know the FileDelete() supports them by default, so this would be mostly for directory removal. I used it to clean up these oracle folders that had random names.