按键精灵怎么读取指定目录下所有文件夹名?

2024-11-01 14:10:17
推荐回答(1个)
回答1:

读取文件夹名,参考实例如下:
文件夹="C:\百度\"
Set F = CreateObject("Scripting.FileSystemObject")
If Not F.FolderExists(文件夹) Then
MsgBox "未检测到文件夹"
End If
Set oF = F.GetFolder(文件夹)
For Each a In oF.Files
MSGBOX a.NAME
NEXT