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

2019独角兽企业重金招聘Python工程师标准>>>

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文件即可。

转载于:https://my.oschina.net/u/2391658/blog/708811