在VB。NET或者在VBSCRIPT中如何对文件夹下的子文件夹和文件进行操作
比如列出这些文件夹下所有的文件夹列表和文件列表
比如列出这些文件夹下所有的文件夹列表和文件列表
http://www.msfans.net/bbs/
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS疑难解答 & 问题讨论 （解答室） » [求助]一个编程问题
查看 900 回复 1
楼 主
[求助]一个编程问题
发表于 2005-01-26 00:00 · 中国 浙江 杭州 电信
第 2 楼
发表于 2005-02-03 00:00 · 中国 浙江 杭州 电信
自己解决了
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
dim win
win="c:"
Function ShowFileList(win)
Dim fs, f, f1, s, sf
Set fs = CreateObject("Scripting.FileSystemObject"
Set f = fs.GetFolder(win)
Set sf = f.SubFolders
For Each f1 in sf
y=win&"\"&f1.name
set allfile=f1.files
for each c in allfile
x=y&"\"&c.name
set g=fs.opentextfile("c:\filelist.txt",8,true)
g.writeline(x)
g.close
next
ShowFileList(y)
next
End Function
call ShowFileList(win)
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
dim win
win="c:"
Function ShowFileList(win)
Dim fs, f, f1, s, sf
Set fs = CreateObject("Scripting.FileSystemObject"
Set f = fs.GetFolder(win)
Set sf = f.SubFolders
For Each f1 in sf
y=win&"\"&f1.name
set allfile=f1.files
for each c in allfile
x=y&"\"&c.name
set g=fs.opentextfile("c:\filelist.txt",8,true)
g.writeline(x)
g.close
next
ShowFileList(y)
next
End Function
call ShowFileList(win)
http://www.msfans.net/bbs/
论坛跳转: