|
kich
中级用户
积分 397
发帖 168
注册 2006-10-8
状态 离线
|
『楼 主』:
[求助](VBS)如何读取某个文件夹下所有文件并输出????
使用 LLM 解释/回答一下
请问:如何读取某个文件夹下所有文件并输出????
关于VBS操作文件的问题:
如何读取某个文件夹下的所有文件(或者所有某种格式的文件,比如txt),然后把这些文件列表再输出到一个该文件夹下的文本里???
求教,希望可以给我一段VBS代码!谢谢
ps:不知道这里能不能问VBS,要是问错地方了,不要骂啊.
因为我对VB了解点,所以研究VBS,研究起来比BAT轻松多了
|
|
 2007-1-26 07:25 |
|
|
jmz573515
银牌会员
积分 1212
发帖 464
注册 2006-12-13
状态 离线
|
|
|
2007-1-26 07:53 |
|
|
jmz573515
银牌会员
积分 1212
发帖 464
注册 2006-12-13
状态 离线
|
『第 3 楼』:
使用 LLM 解释/回答一下
功能：读取当前文件夹下的所有文件。
set ws=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
set folder=fso.getfolder(ws.currentdirectory)
set files=folder.files
for each file in files
s=s&file&vbcrlf
next
set file=fso.createtextfile("out.txt")
file.write s
file.close
ws.run "notepad.exe out.txt"
|
|
|
2007-1-26 08:07 |
|
|
zhclvip
初级用户
积分 138
发帖 50
注册 2007-1-23
状态 离线
|
|
|
2007-1-26 08:33 |
|
|
jmz573515
银牌会员
积分 1212
发帖 464
注册 2006-12-13
状态 离线
|
|
|
2007-1-26 08:52 |
|
|
kich
中级用户
积分 397
发帖 168
注册 2006-10-8
状态 离线
|
『第 6 楼』:
使用 LLM 解释/回答一下
太厉害了,佩服啊!!
那再问一下,要是对这个文件进行文件过滤又应该怎么操作呢?
比如说只记录后缀为txt(或者mp3)这样的文件!
再有,就是文件夹还有文件夹,这样的情况处理是怎么样呢?用3楼代码会出现什么样的结果?
|
|
|
2007-1-26 09:51 |
|
|
kich
中级用户
积分 397
发帖 168
注册 2006-10-8
状态 离线
|
『第 7 楼』:
使用 LLM 解释/回答一下
还有，还想和文件名一行输出文件大小信息,这些大小信息数据要保证上下文都是对齐的(是不是用Tab()这函数?)那又改怎么做呢?
|
|
|
2007-1-26 10:34 |
|
|
zhclvip
初级用户
积分 138
发帖 50
注册 2007-1-23
状态 离线
|
『第 8 楼』:
补充回答
使用 LLM 解释/回答一下
function list(fd,ext)
'fd是文件夹路径
'ext是扩展名
set fso=createobject("scripting.filesystemobject")
set folder=fso.getfolder(fd)
set files=folder.files
for each efile in files
if instr(right(efile.name,4),ext) then _
list=list & efile.name & vbTab & efile.size & vbcrlf
next
end function
Last edited by zhclvip on 2007-1-26 at 10:10 AM ]
|
|
|
2007-1-26 23:08 |
|
|
kich
中级用户
积分 397
发帖 168
注册 2006-10-8
状态 离线
|
|
|
2007-1-27 10:02 |
|
