一个编程问题 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

自己解决了
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)

第1楼　chenhui530	发表于 2005-01-26 00:00
高级用户　发帖 273　积分 772
[求助]一个编程问题在VB。NET或者在VBSCRIPT中如何对文件夹下的子文件夹和文件进行操作比如列出这些文件夹下所有的文件夹列表和文件列表

第2楼　chenhui530	发表于 2005-02-03 00:00
高级用户　发帖 273　积分 772
自己解决了 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)