Function ShowFileList(folderspec)
Dim fso, f, f1,f2,v1,fc, s ,N ,s1 ,s2 ,s3
Set fso = CreateObject("scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("filename.txt", True)
N = 0
For Each f1 in fc
N = N + 1
s1 = s& f1.name
f2= mid(f1.name,instr(f1.name,"号")+1)
MyFile.WriteLine(f1.name)
s2 = "第 "&N&" 个："&s1&vbCrLf
s3 = s3+s2
Next
ShowFileList = "该文件夹中总共 "&N&" 个文件："&vbCrLf&s3&vbcrlf
End Function
Set ws=WScript.CreateObject("wscript.shell")
w=ws.CurrentDirectory
wenjian=ShowFileList(w)
MsgBox wenjian
vbs列出当前脚本所在目录的所有文件名
最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
- 文/潘晓璐 我一进店门，熙熙楼的掌柜王于贵愁眉苦脸地迎上来，“玉大人，你说我怎么就摊上这事。” “怎么了？”我有些...
- 文/花漫 我一把揭开白布。 她就那样静静地躺着，像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上，一...
- 文/苍兰香墨 我猛地睁开眼，长吁一口气：“原来是场噩梦啊……” “哼！你这毒妇竟也来了？” 一声冷哼从身侧响起，我...
