按键精灵有什么代码可以删除一个文件夹内的全部文件？-ZOL问答

已采纳

FilePath=F:\ //这里写文件夹的目录
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
上面代码，第一行引号内写文件夹目录，就可以删除文件夹内所有的文件，但是，文件夹里面的文件夹是不删除的，由于你只说删除文件，我就写了只删除文件。

取消评论

gloomy

FilePath=F:\ //这里写文件夹的目录
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
上面代码，第一行引号内写文件夹目录，就可以删除文件夹内所有的文件，但是，文件夹里面的文件夹是不删除的，由于你只说删除文件，我就写了只删除文件。

取消评论

algergao

他进入文件夹。。。也就是打开文件夹呵呵

apprun aa.bat

aa.bat是一个批处理文件
里面可以写
CD D:\Program Files

的内容。。。至于进入后干什么。。
那就要看你了。

取消评论

yh21cn

没研究过
我的按键精灵都是用来刷新页面
主要是我们学校那蛋疼的选课系统
自己百度下吧

取消评论

4个回答默认排序

默认排序

按时间排序

相关应用推荐

最新回答更多>

产品比一比查看详情 >>

相关问答

热门笔记本电脑排行

热门推荐

举报

举报成功

私信

删除

数码爱好者必备神器

中关村在线客户端

4个回答 默认排序 默认排序 按时间排序

相关应用推荐

最新回答 更多>

产品比一比查看详情 >>

相关问答

热门笔记本电脑排行

热门推荐

举报

举报成功

私信

删除

4个回答默认排序

默认排序

按时间排序

最新回答更多>