按键精灵有什么代码可以删除一个文件夹内的所有文件?
发布网友
发布时间：2022-05-02 00:38
共1个回答
热心网友
时间：2022-06-25 16:06
MyFile = AllFileName(FilePath)
For i = 0 To UBound(MyFile) - 1
Call Plugin.File.DeleteFile(FilePath & "\" & MyFile(i))
Next
Function AllFileName(FilePath)
Dim FileName,fso,folder,f,files
FileName = ""
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.getfolder(FilePath)
Set files = folder.files
For Each f In files
FileName = FileName & f.name & ","
Next
Set fso = Nothing
AllFileName = Split(FileName, ",")
End Function
上面代码，第一行引号内写文件夹目录，就可以删除文件夹内所有的文件，但是，文件夹里面的文件夹是不删除的，由于你只说删除文件，我就写了只删除文件。
