怎么一次删掉一个目录下的所有文件？

Question

目录下有很多文件，命名没有规则，现在要全部删除掉，但要保存住目录，怎么做呢？

Answer 1

遍历并删除文件：
'引用FSO("工程"->"引用"->Microsoft Scripting Runtime)Private Sub Command1_Click()
    MyProc1 "d:\"
End SubSub MyProc1(ByVal Folder As String)
    Dim fso As New FileSystemObject
    Dim objFile, objFolder
    
    Set objFolder = fso.getFolder(Folder)
    For Each objFile In objFolder.Files
        killFile objFile.Path
    Next
    For Each objFolder In objFolder.SubFolders
        MyProc1 objFolder '递归遍历整颗树
    Next
End SubSub killFile(FileName As String)
    kill FileName
End Sub

Answer 2

Private Sub Command1_Click()
    Dim fso As New FileSystemObject
    fso.DeleteFolder "c:\test"'删除文件夹
    fso.CreateFolder "c:\test"'创建空文件夹
End Sub

Answer 3

参考示例：
Dim FileName As String
FileName = Dir("D:\Demo\*.*", vbNormal)
Do While FileName <> ""
  Kill "D:\Demo\" & FileName
  FileName = Dir
Loop

Answer 4

Pathdir = App.Path
    Set Fso = CreateObject("Scripting.FileSystemObject")
    If Fso.FolderExists(Pathdir & "\Temp") Then Fso.DeleteFolder Pathdir & "\Temp"

Answer 5

Kill strPath & "\*.*"

Answer 6

to  faysky2() 
会提示permission denied