按键精灵 获取指定文件夹内文件数量。代码怎么写。我用的UIBOT?
1个回答
展开全部
我的是32位XP没办法下载测试UIBOT,应该可能利用VB语句能运行,语句在按键可以运行,代码如下:
MessageBox UBound(所有文件名("d:\我的文档\桌面\"))
Function 所有文件名(文件夹路径)
Dim 文件名,fso,folder,f,files
文件名 = ""
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.getfolder(文件夹路径)
Set files = folder.files
For Each f In files
文件名 = 文件名 & f.name & ","
Next
Set fso = Nothing
所有文件名 = Split(文件名, ",")
End Function
MessageBox UBound(所有文件名("d:\我的文档\桌面\"))
Function 所有文件名(文件夹路径)
Dim 文件名,fso,folder,f,files
文件名 = ""
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.getfolder(文件夹路径)
Set files = folder.files
For Each f In files
文件名 = 文件名 & f.name & ","
Next
Set fso = Nothing
所有文件名 = Split(文件名, ",")
End Function
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询