i found this in the udfs at http://jokeli.isa-geek.com/UDF/
i may try this if cleandirectory doesnt work.

Function DelDir($Pathname)
Dim $Filename $Filename = Dir($Pathname + "\*.*")
While $Filename <> "" And @ERROR = 0
If $Filename <> "." And $Filename <> ".."
If (GetFileAttr($Pathname + "\" + $Filename) & 16)
DelDir($Pathname + "\" + $Filename)
SetFileAttr($Pathname + "\" + $Filename, 128)
Rd ($Pathname + "\" + $Filename)
Else
SetFileAttr($Pathname + "\" + $Filename, 128)
Del ($Pathname + "\" + $Filename)
EndIf
EndIf
$Filename = Dir()
Loop
EndFunction