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

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、演示