使用vbs列出文件夹下所有的文件及文件名

原创
2016/07/09 11:14
阅读数 1.4K

1、源码

Function ShowFileList(folderspec)

   Dim fso, f, f1, fc, s ,N ,s1 ,s2 ,s3

   Set fso = CreateObject("scripting.FileSystemObject")

   Set f = fso.GetFolder(folderspec)

   Set fc = f.Files
   
   N = 0

   For Each f1 in fc
      
      N = N + 1

      s1 = s& f1.name 

      s2 = "第 "&N&" 个:"&s1&vbCrLf
      
      s3 = s3+s2

   Next
   
   ShowFileList = "该文件夹中总共 "&N&" 个文件:"&vbCrLf&s3&vbcrlf

End Function

wenjian=ShowFileList("G:\xxx\VbsEdit_cn\VbsEdit_cn\")

MsgBox wenjian

2、演示

如列出:G:\xxx\VbsEdit_cn\VbsEdit_cn\ 文件夹下所有的文件名,双击以上vbs文件即可。

展开阅读全文
vbs
加载中
点击引领话题📣 发布并加入讨论🔥
打赏
0 评论
1 收藏
0
分享
返回顶部
顶部