标题: [求助]一个编程问题 [打印本页]

---

作者: chenhui530     时间: 2005-1-26 00:00    标题: [求助]一个编程问题

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

---

作者: chenhui530     时间: 2005-2-3 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)  

[此贴子已经被作者于2005-2-5 14:26:23编辑过]