怎么删除指定文件夹下的文件!?

Question

我想知道怎么删除指定文件夹app.path & "/DatFile"下面的所有文件以及指定文件名的文件希望能用模块来实现。模块：
Public Sub DelFile（FilName as String）
  If 文件夹非空 Then
         If FilName = "all" Then
              '删除所有文件
         Else
              '删除文件FilName
         End If
  End If
End Sub

Answer 1

Kill path & "\" & filename '删除单个文件
Kill path & "\" & "*.*" '删除所有文件

Answer 2

用不着自定义函数，用 Kill，支持通配符：kill "c:\temp\*.*"
kill "c:\my documents\*.txt"
kill app.path & "\test.txt"