VB如何遍历文件夹？？

如题：在D盘下有一文件夹，文件夹内有很多子文件夹，子文件夹中有一些文本文件，我想用VB批量往文本中写入一个字符，如何遍历文件夹来写入呢？？ --------------------编程问答--------------------

    Dim SearchPath             As String, FindStr                   As String

    Dim FileSize             As Long

    Dim NumFiles             As Integer, NumDirs                   As Integer

    Dim iNull             As Integer, lpIDList                   As Long, lResult                   As Long

    Dim sPath             As String, udtBI                   As BrowseInfo

    With udtBI

                    '设置浏览窗口

                    .hWndOwner = Me.hWnd

                    '返回选中的目录

                    .ulFlags = BIF_RETURNONLYFSDIRS

    End With

          

    '调出浏览窗口

    lpIDList = SHBrowseForFolder(udtBI)

    If lpIDList Then

                    sPath = String$(MAX_PATH, 0)

                    '获取路径

                    SHGetPathFromIDList lpIDList, sPath

                    '释放内存

                    CoTaskMemFree lpIDList

                    iNull = InStr(sPath, vbNullChar)

                    If iNull Then

                                    sPath = Left$(sPath, iNull - 1)

                    End If

    End If

    If sPath <> "" Then

                    Screen.MousePointer = vbHourglass

                    SearchPath = sPath                   '选中的目录为搜索的起始路径

                    FindStr = "*.*"                   '搜索所有类型的文件(此处可另作定义)

                    List1.Clear

                    FindFilesAPI SearchPath, FindStr, NumFiles, NumDirs

                    Screen.MousePointer = vbDefault

                    lblMessage1.Caption = "目标文件数       " & List1.ListCount

    End If

--------------------编程问答-------------------- 要做病毒？ --------------------编程问答-------------------- 应该不会吧，现成的写病毒的软件大把，Av过不去。 --------------------编程问答-------------------- 可以用API,也可以用FSO,还可以用内置的DIR()涵数

基本就是一个树的遍历算法 --------------------编程问答-------------------- DIR嵌套就行...... --------------------编程问答-------------------- 这个应该对你有用，你只需要将tmp文件改为txt文件即可。

如何用Dir()函数来列出C下所有TMP文件并且用文本框输出
问题：如何用Dir()函数列出C:\下所有＊.TMP文件,并且用文本框输出？
　　答：下面是一个列出指定目录下所有符合要求的文件名的函数：
　　Public Function AutoListFiles(ByVal sDirName As String,ByVal FileFilter As String ) As Boolean
　　On Error GoTo RF_ERROR
　　Dim sName As String, sFile As String, sExt As String
　　Dim sDirList() As String, iDirNum As Integer, i As Integer
　　′首先枚举所有文件
　　sFile = Dir(sDirName ＋ FileFilter, vbNormal ＋ vbArchive ＋ vbHidden)
　　Do While Len(sFile) >0
　　sFile = UCase(Trim(sFile))
　　′在此处可以将 sFile 加入到一个 Text 控件...
　　sFile = Dir ′下一个文件
　　Loop
　　iDirNum = 0
　　sName = Dir(sDirName ＋ ″＊.＊″, vbDirectory ＋ vbNormal)
　　Do While Len(sName) >0
　　If sName <> ″.″ And sName <> ″..″ Then
　　iDirNum = iDirNum ＋ 1
　　ReDim Preserve sDirList(1 To iDirNum)
　　sDirList(iDirNum) = sDirName ＋ sName ＋ ″\″
　　End If
　　sName = Dir ′下一个目录
　　Loop
　　For i = 1 To iDirNum
　　AutoListFiles sDirList(i) ′递归调用
　　Next
　　End If
　　RF_EXIT:
　　AutoListFiles = True
　　Exit Function
　　RF_ERROR:
　　MsgBox Err.Description, vbCritical, ″″
　　Resume RF_EXIT
　　End Function
　　调用上述函数的示例：
　　AutoListFiles(″C:\″,″＊.TMP″)
　　之所以采用上述先处理文件，再处理子目录，一是思路较清晰，另外也有模仿 Prolog 语言中的“尾递归”的想法，当然，VB中是不支持尾递归的。
--------------------编程问答-------------------- '引用Microsoft   Scripting   Runtime
  Private   Sub   Command1_Click()
          Dim   pFolder   As   String,   fso   As   New   FileSystemObject
          pFolder   =   "D:"

          Dim   objFile,   objFolder

          Set   objFolder   =   fso.getFolder(pFolder)
          For   Each   objFile   In   objFolder.Files
                  Debug.Print   objFile.Path
          Next
          For   Each   objFolder   In   objFolder.SubFolders
                  Debug.Print   objFolder
          Next
  End   Sub

faysky2    回复于 2005-11-06 02:07:43

Private   Sub   Command1_Click()
          MyProc1   "d:\"
  End   Sub

  Sub   MyProc1(ByVal   Folder   As   String)
          Dim   fso   As   New   FileSystemObject
          Dim   objFile,   objFolder

          Set   objFolder   =   fso.getFolder(Folder)
          For   Each   objFile   In   objFolder.Files
                  MyProc2   objFile.Path
          Next
          For   Each   objFolder   In   objFolder.SubFolders
                  MyProc1   objFolder   '递归遍历整颗树
          Next
  End   Sub

  Sub   MyProc2(FileName   As   String)
          Debug.Print   FileName
  End   Sub --------------------编程问答-------------------- 引用并定义fso
private sub SearchFloder(byval FloderPath as string)
    dim f as file
    dim fd as folder
    for each fd in fso.getfloder(FloderPath).floders
        call SearchFloder(fd.path)
    next

    for each f in fso.getfloder(FloderPath).files
        list.add f.path
    next
end sub --------------------编程问答-------------------- 修正：fso.getfloder(FloderPath).SubFolders

'引用Microsoft  Scripting  Runtime
dim  fso  As  New  FileSystemObject   --------------------编程问答-------------------- 对！FSO是一个不错的选择。

FSO对象模型在VB中的应用

从 Visual Basic 的第一版至今，VB中有关文件的处理都是通过使用 Open 、Write以及其它一些相关的语句和函数来实现的。随着软件技术的不断发展，加上面向对象编程概念的日臻成熟，这些文件操作语句已经不能适应软件不断增加的复杂程度的需要了。因此，从VB6.0开始，微软提出了一个全新的文件系统对象FSO。
一、简介
文件系统对象FSO的英文全称是File System Object ，这种对象模型提出了有别于传统的文件操作语句处理文件和文件夹的方法。通过采用object.method这种在面向对象编程中广泛使用的语法，将一系列操作文件和文件夹的动作通过调用对象本身的属性直接实现。
FSO 对象模型不仅可以象使用传统文件操作语句那样实现文件的创建、改变、移动和删除，而且可以检测是否存在指定的文件夹，如果存在，那么，这个文件夹又位于磁盘上的什么位置。更令人高兴的是FSO 对象模型还可以获取关于文件和文件夹的信息，如名称、创建日期或最近修改日期等以及当前系统中使用的驱动器的信息，如驱动器的种类是CD－ROM还是可移动磁盘，当前磁盘的剩余空间还有多少。而以前要获取这些信息必须通过调用Windows API函数集中的相应函数才能实现。
FSO对象模型包含在Scripting 类型库 (Scrrun.Dll)中，它同时包含了Drive、Folder、File、FileSystemObject和TextStream五个对象。其中Drive用来收集驱动器的信息，如可用磁盘空间或驱动器的类型；Folder用于创建、删除或移动文件夹，同时可以进行向系统查询文件夹的路径等操作；File的基本操作和Folder基本相同，所不同的是Files的操作主要是针对磁盘上的文件进行的；FileSystemObject是FSO对象模型中最主要对象，它提供了一套完整的可用于创建、删除文件和文件夹，收集驱动器、文件夹、文件相关信息的方法。需要注意的是，FSO对象模型提供的方法是冗余的，也就是说在实际使用中，FSO对象模型中包含的不同对象的不同方法进行的却是同样的操作，而且FileSystemObject对象的方法直接作用于其余对象，所以在后面的文章中并没有单独提到FileSystemObject对象，千万不要以为没有提到就不重要，事实上FileSystemObject对象在整个FSO对象模型中无处不在；最后的TextStream对象则是用来完成对文件的读写操作的。
在初步了解了FSO对象模型之后，下面我们通过实际的代码对不同的对象进行进一步的阐述。
二、FSO对象模型的应用
（一）创建FSO对象模型
由于FSO对象包含在Scripting 类型库 (Scrrun.Dll)中，所以在使用前首先需要在在工程中引用这个文件，单击“工程”，“引用”，然后在“引用”对话框中选中“Microsoft Scripting Runtime”前的复选框，然后单击“确定”。
要创建FSO对象可以采用两种方法，一种是将一个变量声明为FSO对象类型：Dim fsoTest As New FileSystemObject；另一种是通过CreateObject方法创建一个FSO 对象：Set fsoTest = CreateObject(“Scripting.FileSystemObject")。在实际使用中具体采用哪种声明方法，可根据个人的使用习惯而定。
完成了FSO对象模型的创建之后，就可以利用创建的对象模型的方法访问下属各个对象的属性来获取所需信息或进行相关操作了，具体的方法在下面结合各个对象分别讲述。
（二）Drive对象
上面已经提到Drive对象是用来获取当前系统中各个驱动器的信息的。由于Drive对象没有方法，其应用都是通过属性表现出来的，所以我们必须熟悉Drive对象的属性：
AvailableSpace：返回在指定的驱动器或网络共享上的用户可用的空间容量。
DriveLetter ：返回某个指定本地驱动器或网络驱动器的字母，这个属性是只读的。
DriveType：返回指定驱动器的磁盘类型。
FileSystem：返回指定驱动器使用的文件系统类型。
FreeSpace：返回指定驱动器上或共享驱动器可用的磁盘空间，这个属性是只读的。
IsReady：确定指定的驱动器是否准备好。
Path ：返回指定文件、文件夹、或驱动器的路径。
RootFolder ：返回一个 Folder 对象，该对象表示一个指定驱动器的根文件夹。只读属性。
SerialNumber：返回用于唯一标识磁盘卷标的十进制序列号。
ShareName：返回指定驱动器的网络共享名
TotalSize ：以字节为单位，返回驱动器或网络共享的总空间大小。
VolumeName ：设置或返回指定驱动器的卷标名。
从上面的属性可以看到Drive对象基本上包含了日常操作所需的全部的驱动器信息，因此在使用中是非常方便的。下面通过一个实例讲述Drive对象的使用。首先在VB中建立一个工程，然后添加一个命令按钮，将其Caption设置为“TestDrive”，然后在click事件中加入以下代码：
Dim fsoTest As New FileSystemObject
Dim drv1 As Drive, sReturn As String
Set drv1 = fsoTest.GetDrive(“C:\")
sReturn = “Drive " ＆ “C:\" ＆ vbCrLf
sReturn = sReturn ＆ “VolumeName" ＆ drv1.VolumeName ＆ vbCrLf
sReturn = sReturn ＆ “Total Space: " ＆ FormatNumber(drv1.TotalSize / 1024, 0)
sReturn = sReturn ＆ “Kb" ＆ vbCrLf
sReturn = sReturn ＆ “Free Space: " ＆ FormatNumber(drv1.FreeSpace / 1024, 0)
sReturn = sReturn ＆“Kb" ＆ vbCrLf
sReturn = sReturn ＆“FileSystem:" ＆ drv1.FileSystem ＆ vbCrLf
MsgBox sReturn
其中GetDrive方法返回一个与指定路径中的驱动器相对应的 Drive 对象。该方法的语法格式为object.GetDrive drivespec，object是一个FSO对象的名称，drivespec用于指定驱动器的名称。
按F5运行上述代码，按下TestDrive按钮就会弹出一个消息框显示C盘的信息。
（三）Folder对象
在FSO 对象模型中，提供了丰富的有关文件夹操作的方法，这些方法分别是：
FileSystemObject对象有关文件夹的方法：
CreateFolder ：创建一个文件夹。
DeleteFolder：删除一个文件夹。
MoveFolder ：移动一个文件夹。
CopyFolder：复制一个文件夹。
FolderExists：查找一个文件夹是否在驱动器上。
GetFolder ：获得已有Folder对象的一个实例。
GetParentFolderName：找出一个文件夹的父文件夹的名称。
GetSpecialFolder：找出系统文件夹的路径。
Folder对象的方法：
Delete ：创建一个文件夹。
Move ：移动一个文件夹。
Copy：复制一个文件夹。
Name：检索文件夹的名称。
在此需要强调一点，前面我们曾经提到过FSO对象模型包含的方法是冗余的，所以Folder对象的Delete、Move、Copy方法和FileSystemObject对象的DeleteFolder、MoveFolder、CopyFolder方法实际上是相同的，因此在实际使用中可以任选其中的一种。
和Drive对象一样，下面通过实例演示Folder对象的应用。在VB下新建一个工程，然后在上面添加三个命令按钮，然后在Form1的通用部分加入以下代码：
Option Explicit
Dim fsoTest As New FileSystemObject
Dim folder1 As Folder
并且分别在三个命令按钮的click事件输入以下代码：
Private Sub CmdCreate_Click()
' 获取 Folder 对象。
Set folder1 = fsoTest.GetFolder(“C:")
'创建文件夹
fsoTest.CreateFolder (“C:\Test")
MsgBox “folder C:\Test has created"
End Sub
Private Sub CmdDelete_Click()
' 获取 Drive 对象。
Set folder1 = fsoTest.GetFolder(“C:")
'删除文件夹
fsoTest.DeleteFolder (“C:\Test")
MsgBox“folder C:\Test has deleted"
End Sub
Private Sub CmdGetPro_Click()
'获取文件夹的有关信息
Dim sReturn As String
Set folder1 = fsoTest.GetFolder(“C:\Windows")
'sReturn = “The folder's Attributes is " ＆ folder1.Attributes ＆ vbCrLf
'获取最近一次访问的时间
sReturn = sReturn ＆ “The folder's last access time is " ＆ folder1.DateLastAccessed ＆ vbCrLf
'获取最后一次修改的时间
sReturn = sReturn ＆ “The folder's last modify time is " ＆ folder1.DateLastModified ＆ vbCrLf
'获取文件夹的大小
sReturn = sReturn ＆ “The folder's size is " ＆ FormatNumber(folder1.Size / 1024, 0)
sReturn = sReturn ＆ “Kb" ＆ vbCrLf
'判断文件或文件夹类型
sReturn = sReturn ＆ “The type is " ＆ folder1.Type ＆ vbCrLf
MsgBox sReturn
End Sub
上述代码中提到的CreateFolder方法的语法形式为object.CreateFolder(foldername)。foldername指定了要创建的文件夹的名称，而DeleteFolder方法的语法形式为object.DeleteFolder folderspec[,force]，其中，folderspec用来指定要删除的文件夹的名称，force是一个可选的布尔型参数，如果希望删除只读属性的文件夹则将该值设为TRUE，默认为FALSE。至于代码中用到的 Folder 对象的属性限于篇幅，就不详细介绍了，读者可参考VB文档中的相关内容。
（四）File对象和TextStream对象
由于有关File对象的复制，删除，移动等操作和Folder对象类似，所以这部分内容就不再重复。这里主要讲述利用File对象和TextStream对象操作文本文件。
通常对文本文件的操作包括在文本文件中创建数据，在文本文件中添加数据，删除文本文件的数据等操作。这些操作都可以通过File对象和FileSystemObject对象的相关方法完成。不过在使用之前，首先要创建一个文本文件，这可以通过三种方法完成。一种方法是使用FileSystemObject对象的 CreateTextFile 方法。要创建一个空文本文件，可以用以下语句：
Dim fsoTest As New FileSystemObject, fil1 As File
Set fil 1= fsoTest.CreateTextFile(“c:\testfile.txt", True)
第二种方法是使用 FileSystemObject 对象带 ForWriting 标志设置的 OpenTextFile 方法，
Dim fsoTest As New FileSystemObject, ts1 As New TextStream
Set ts1 = fsoTest.OpenTextFile(“c:\testfile.txt", ForWriting)
第三种方法是使用File对象的带 ForWriting 标志设置的 OpenAsTextStream 方法：
Dim fsoTest As New FileSystemObject, fil 1As File, ts 1As TextStream
Set fsoTest = CreateObject(“Scripting.FileSystemObject")
fsoTest.CreateTextFile (“c:\testfile.txt")
Set fil1 = fsoTest.GetFile(“c:\testfile.txt")
Set ts1 = fil1.OpenAsTextStream(ForWriting)
其中CreateTextFile方法的第一个参数用来指定，第二个参数用来指定如果磁盘上已经存在要创建的文件是否覆盖，TRUE表示覆盖，FALSE表示不覆盖，省略表示不覆盖；OpenTextFile方法的第一个参数确定要打开的文本文件，第二个参数表示对该文件进行写操作；OpenAsTextStream方法的参数和OpenTextFile方法的第二个参数含义相同。
在创建了写入数据的文本之后就可以利用TextStream 对象的 Write 或 WriteLine 方法了，它们之间的区别在于 WriteLine 在指定的字符串末尾添加换行符，而Write方法没有。如果想要向文本文件中添加一个空行，可以使用 WriteBlankLines 方法。在完成写的动作之后，用Close方法关闭打开的文本文件。如果要读取一个存在的文本文件的内容，就要用到 TextStream 对象的 Read、 ReadLine 或 ReadAll 方法；这些方法的区别是 Read：从一个文件中读取指定数量的字符；ReadLine：读取一整行（紧跟，但不包括，换行符）； ReadAll ：读取一个文本文件的所有内容。下面在一个VB的工程中演示上述的效果。
在VB中新建一个工程，然后在Form1上添加两个命令按钮，然后输入以下代码：
Private Sub CmdRead_Click()
Dim fsoTest As New FileSystemObject, file1 As File, ts As TextStream, s As String
Set file1 = fsoTest.GetFile(“C:\testfile.txt")
Set ts = file1.OpenAsTextStream(ForReading)
'读取一行
s = ts.ReadLine
MsgBox s
ts.Close
End Sub
Private Sub CmdWrite_Click()
Dim txtfile As File, ts As TextStream
Set txtfile = fsoTest.GetFile(“c:\testfile.txt")
Set ts = txtfile.OpenAsTextStream(ForWriting)
'使用Write方法写入一行。
ts.Write (“This is only a Test")
' 写入一行带有换行符的文本。
ts.WriteLine (“Testing 1, 2, 3.")
' 向文件中写入三个换行符。
ts.WriteBlankLines (3)
ts.Close
End Sub
在这里我们假设已经在磁盘上建立了一个名为testfile.txt的文件。在按下F5运行时，先单击Write写入数据，然后按下Read读取数据。
三、结束语
通过上面的介绍，我们可以看到FSO对象模型的确在传统的文件操作语句之外，提供了一种更方便，功能更强大的访问文件的操作方法。不过，我们还需要注意到FSO对象模型目前还不完善，当前使用的FSO对象模型还不支持创建随机文件或二进制文件。要创建随机文件和二进制文件，仍然要使用带 Random 或 Binary 标志的 Open 命令。但从目前FSO对象模型的实际应用来看，我们仍然可以将FSO对象模型作为一种比较简便的文件操作解决方案。

--------------------编程问答-------------------- 标签
学习 --------------------编程问答--------------------

引用 5 楼 myjian 的回复:

DIR嵌套就行......



'递归得到所有需要的文件

Public Sub ListFiles(ByVal myDir As String)

    On Error Resume Next

    Dim N As Integer, DirLevel As Integer, FName As String, DirList() As String

    myDir = IIf(Right(myDir, 1) = "\", myDir, myDir & "\")

    FName = Dir(myDir)

    Do While FName <> ""

        ReDim Preserve f_PathList(NUM)

        f_PathList(NUM) = myDir & FName

        frmShow.lblShow.Caption = f_PathList(NUM)

        '        Debug.Print f_PathList(NUM)

        NUM = NUM + 1

        FName = Dir

        DoEvents

    Loop

    FName = LCase(Dir(myDir, vbDirectory))

    Do While FName <> ""

        If FName <> "." And FName <> ".." Then

            If GetAttr(myDir & FName) And vbDirectory Then

                DirLevel = DirLevel + 1

                ReDim Preserve DirList(DirLevel)

                DirList(DirLevel) = myDir & FName

            End If

        End If

        FName = Dir

        DoEvents

    Loop

    For N = 1 To DirLevel

        ListFiles DirList(N) & "\"

    Next N



    'Debug.Print "目录:" & myDir & "   共有:" & Num & "个文件"



End Sub

下班了。累啊，再顶几个贴就去洗澡睡觉了

--------------------编程问答-------------------- 友情UP --------------------编程问答-------------------- dir,file system object等均可。 --------------------编程问答-------------------- 去我博客找找吧 --------------------编程问答-------------------- 声明：绝对不是病毒！工作中需要的 --------------------编程问答-------------------- 路过 --------------------编程问答-------------------- 最简单的还是用控件dirlistbox和filelistbox --------------------编程问答-------------------- 不是搞病毒吧？看头像怪吓人的

引用楼主 cp_hacer 的回复:

如题：在D盘下有一文件夹，文件夹内有很多子文件夹，子文件夹中有一些文本文件，我想用VB批量往文本中写入一个字符，如何遍历文件夹来写入呢？？

--------------------编程问答-------------------- 看那熊猫样子就知道了.... --------------------编程问答-------------------- --------------------编程问答-------------------- 名不正则言不顺，
头像邪恐行不端。

shell("dir d:\subdir\*.txt /a-d /b /s >c:\alltxtfile.txt")
'然后从文件c:\alltxtfile.txt里面逐行读出每个文件名作处理，处理完后
kill "c:\alltxtfile.txt" '毁尸灭迹 --------------------编程问答-------------------- 路过学习回复内容太短了！回复内容太短了！回复内容太短了！回复内容太短了！ --------------------编程问答-------------------- 用控件dirlistbox和filelistbox --------------------编程问答--------------------



'先引用microsoft scripting Runtime

Private Sub Command1_Click()

Dim fso As New FileSystemObject

    Set objFolder = fso.GetFolder("E:\media")

    For Each Path In objFolder.SubFolders

        Debug.Print Path

        For Each Files In fso.GetFolder(Path).Files

            Debug.Print Files

        Next

    Next

End Sub

--------------------编程问答-------------------- 挖坟掘墓

引用 25 楼 ptzxzc 的回复:

VB code

'先引用microsoft scripting Runtime
Private Sub Command1_Click()
Dim fso As New FileSystemObject
    Set objFolder = fso.GetFolder("E:\media")
    For Each Path In objFolder.SubFolders
   ……

--------------------编程问答--------------------

引用 25 楼 ptzxzc 的回复:

VB code

'先引用microsoft scripting Runtime
Private Sub Command1_Click()
Dim fso As New FileSystemObject
    Set objFolder = fso.GetFolder("E:\media")
    For Each Path In objFolder.SubFolders
        ……

我很想知道，你是怎么翻到这个帖的 --------------------编程问答--------------------

引用 27 楼 sysdzw 的回复:

我很想知道，你是怎么翻到这个帖的

呵呵,没有翻那个贴,刚自己写了个....写的有点点问题的,没有显示指定目录的文件,补一下



Private Sub Command1_Click()

Dim fso As New FileSystemObject

    Set objFolder = fso.GetFolder("E:\media")

    For Each Path In objFolder.SubFolders

        Debug.Print Path

        For Each Files In fso.GetFolder(Path).Files

            Debug.Print Files

        Next

    Next

 For Each Filess In fso.GetFolder(path).Files

            Debug.Print Filess

    Next

End Sub

--------------------编程问答-------------------- 额!~粘错了...

#26,#27 咋感觉你们说话怪怪的...汗,褒义还是贬义啊...

Dim fso As New FileSystemObject

    Set objFolder = fso.GetFolder("E:\media")

    For Each path In objFolder.SubFolders

        Debug.Print path

        For Each Files1 In fso.GetFolder(path).Files

            Debug.Print Files1

        Next

    Next

    For Each Files2 In objFolder.Files

        Debug.Print Files2

    Next

End Sub

--------------------编程问答--------------------

引用 29 楼 ptzxzc 的回复:

VB code
Dim fso As New FileSystemObject
    Set objFolder = fso.GetFolder("E:\media")
    For Each path In objFolder.SubFolders
        Debug.Pr……

+1
每一个优雅的借口后面都有一个龌龊的行为 --------------------编程问答--------------------

引用 30 楼 yiguangqiang88 的回复:

每一个优雅的借口后面都有一个龌龊的行为

哇!~~才男啊.... --------------------编程问答-------------------- --------------------编程问答--------------------

引用 29 楼 ptzxzc 的回复:

额!~粘错了...

#26,#27 咋感觉你们说话怪怪的...汗,褒义还是贬义啊...

VB code
Dim fso As New FileSystemObject
    Set objFolder = fso.GetFolder("E:\media")
    For Each path In objFolder.SubFolders
        Debug.Pr……

一般来说个把月之前的帖子要翻很多页才能翻到的，没别的意思，只是好奇而已。。 --------------------编程问答--------------------

这几天我回的贴咋都没人结啊...晕哦. --------------------编程问答-------------------- 严重鄙视改楼主!不结贴,我靠! --------------------编程问答-------------------- 发表于：2009-10-30 17:54:58

09年的贴，LZ恐怕都失踪了，他会结贴？ --------------------编程问答--------------------

楼上厉害!今天我才看懂26,27楼说话的意思...不是我翻出来的贴...是zhao4zhong1...他太贱了...我晕啊... --------------------编程问答-------------------- --------------------编程问答--------------------

补充：VB ,  基础类