我必须将vb用于powerpoint宏。我很难搞清楚如何在foreach中添加带vb通配符的前缀。
我需要用C:/中的foreach文件说明前缀" customlide"。幻灯片将被枚举为0-无限。 Jpg格式如果重要的话。我怀疑它会增加字母数字,但如果没有,请告知如何补救。
即使是指向正确教程的链接也表示赞赏。
Dim fso As New FileSystemObject
Dim fil As File
For Each fil In fso.GetFolder("C:\").Files
Debug.Print fil.Name
Next
我有代码添加幻灯片到我的演示文稿,但只有特定的文件名,所以例如打印文件名。
答案 0 :(得分:2)
For Each fil In fso.GetFolder("C:\*customslide*").Files
Debug.Print fil.Name
Next