如何创建VB循环:foreach文件在目录中有前缀?

时间:2014-06-16 14:32:31

标签: vba powerpoint-vba

我必须将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

我有代码添加幻灯片到我的演示文稿,但只有特定的文件名,所以例如打印文件名。

1 个答案:

答案 0 :(得分:2)

For Each fil In fso.GetFolder("C:\*customslide*").Files
  Debug.Print fil.Name
Next