以下代码按照你的要求写的！QQ70989963 可以发我邮件！画一个Command按钮就可以Private FileArray() As StringPrivate DirArray() As StringPrivate TotalDirs As IntegerPrivate TotalFiles As IntegerPrivate Sub Command1_Click()
Dim i As Long
Dim tFolder As Long
Dim tReadLine As String
Dim DirNames As String
Dim DesNames As String...
这个比较麻烦，这样吧，给你一个遍历目录的代码：【需要建立一个ListBox，然后调用EnumFiles函数，传入的参数是你需要遍历的文件夹路径】Private Sub EnumFiles(ByVal sPath As String)'Function Called:'GetFile
Dim fs As New FileSystemObject...
