Testcomplete中删除文件夹中的所有文件

Delete all files in a floder

在文件夹中删除所有的文件，在Tc中好像没有直接的函数可以做到，
Utilities.Deletefile(filename)只能删除单个的文件，这里可以自定义函数，思路是删除文件夹，再创立一个相同名字的文件夹
例如：
'函数
sub DeleteAllFiles(folder)
call BuiltIn.RemoveFolders(folder)  
call Utilities.ForceDirectories(folder)
end sub
'主程序
sub test
call DeleteAllFiles("D:/新建文件夹")
end sub