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