在VB。NET或者在VBSCRIPT中如何对文件夹下的子文件夹和文件进行操作
比如列出这些文件夹下所有的文件夹列表和文件列表

自己解决了
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"<img src="images/smilies/face-wink.png" align="absmiddle" border="0">
Set f = fs.GetFolder(win)
Set sf = f.SubFolders
For Each f1 in sf
y=win&amp;"\"&amp;f1.name
set allfile=f1.files
for each c in allfile
x=y&amp;"\"&amp;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)