VB遍历所有文件.doc

垃圾百度文库,非说我文档质量低,害我复制这么多,双横线以后是复制品,大家不用看这段代码是我在网上找到的,速度很快,有需要的朋友保存下吧执行前先加个command,一个listbox遍历文件夹Private Sub ShowFolderList(folderspec) Dim fs, f, f1, s, sf Dim hs, h, h1, hf Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set sf = f.SubFolders For Each f1 In sf List1.AddItem folderspec & & f1.Name Call ShowFolderList(folderspec & & f1.Name) NextEnd Sub遍历某文件夹下的文件Private Sub Showfilelist(folderspec) Dim fs, f, f1, fc, s Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set fc = f.Files For Each f1 In fc List1.AddItem f1.Name NextEnd Sub遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String)Dim Myname As StringDim a As StringDim B() As StringDim dir_i() As StringDim i, idir As LongIf Right(MyPath, 1) Then MyPath = MyPath + Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)Do While Myname If Myname . And Myname . ThenIf (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then 如果找到的是目录idir = idir + 1ReDim Preserve dir_i(idir) As Stringdir_i(idir - 1) = MynameElseList1.AddItem MyPath & Myname 把找到的文件显示到列表框中End IfEnd IfMyname = Dir 搜索下一项LoopFor i = 0 To idir - 1Call SosuoFile(MyPath + dir_i(i)Next iReDim dir_i(0) As StringEnd Sub附: 在这里可以处理目录中的文件 Fn.Name 得到文件名 Fn.Size 得到文件大小 Fn.Path 得到文件路径 Fn.Type 得到文件类型 Fn.DateLastModified 得到文件最后的修改日期调用方法ShowFolderList (c:a) 查找目录Showfilelist (c:a) 查找文件SosuoFile (c:a) 查找目录+文件遍历文件夹Private Sub ShowFolderList(folderspec) Dim fs, f, f1, s, sf Dim hs, h, h1, hf Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set sf = f.SubFolders For Each f1 In sf List1.AddItem folderspec & & f1.Name Call ShowFolderList(folderspec & & f1.Name) NextEnd Sub遍历某文件夹下的文件Private Sub Showfilelist(folderspec) Dim fs, f, f1, fc, s Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set fc = f.Files For Each f1 In fc List1.AddItem f1.Name NextEnd Sub遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String)Dim Myname As StringDim a As StringDim B() As StringDim dir_i() As StringDim i, idir As LongIf Right(MyPath, 1) Then MyPath = MyPath + Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)Do While Myname If Myname . And Myname . ThenIf (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then 如果找到的是目录idir = idir + 1ReDim Preserve dir_i(idir) As Stringdir_i(idir - 1) = MynameElseList1.AddItem MyPath & Myname 把找到的文件显示到列表框中End IfEnd IfMyname = Dir 搜索下一项LoopFor i = 0 To idir - 1Call SosuoFile(MyPath + dir_i(i)Next iReDim dir_i(0) As StringEnd Sub附: 在这里可以处理目录中的文件 Fn.Name 得到文件名 Fn.Size 得到文件大小 Fn.Path 得到文件路径 Fn.Type 得到文件类型 Fn.DateLastModified 得到文件最后的修改日期调用方法ShowFolderList (c:a) 查找目录Showfilelist (c:a) 查找文件SosuoFile (c:a) 查找目录+文件遍历文件夹Private Sub ShowFolderList(folderspec) Dim fs, f, f1, s, sf Dim hs, h, h1, hf Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set sf = f.SubFolders For Each f1 In sf List1.AddItem folderspec & & f1.Name Call ShowFolderList(folderspec & & f1.Name) NextEnd Sub遍历某文件夹下的文件Private Sub Showfilelist(folderspec) Dim fs, f, f1, fc, s Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set fc = f.Files For Each f1 In fc List1.AddItem f1.Name NextEnd Sub遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String)Dim Myname As StringDim a As StringDim B() As StringDim dir_i() As StringDim i, idir As LongIf Right(MyPath, 1) Then MyPath = MyPath + Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)Do While Myname If Myname . And Myname . ThenIf (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then 如果找到的是目录idir = idir + 1ReDim Preserve dir_i(idir) As Stringdir_i(idir - 1) = MynameElseList1.AddItem MyPath & Myname 把找到的文件显示到列表框中End IfEnd IfMyname = Dir 搜索下一项LoopFor i = 0 To idir - 1Call SosuoFile(MyPath + dir_i(i)Next iReDim dir_i(0) As StringEnd Sub附: 在这里可以处理目录中的文件 Fn.Name 得到文件名 Fn.Size 得到文件大小 Fn.Path 得到文件路径 Fn.Type 得到文件类型 Fn.DateLastModified 得到文件最后的修改日期调用方法ShowFolderList (c:a) 查找目录Showfilelist (c:a) 查找文件SosuoFile (c:a) 查找目录+文件遍历文件夹Private Sub ShowFolderList(folderspec) Dim fs, f, f1, s, sf Dim hs, h, h1, hf Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set sf = f.SubFolders For Each f1 In sf List1.AddItem folderspec & & f1.Name Call ShowFolderList(folderspec & & f1.Name) NextEnd Sub遍历某文件夹下的文件Private Sub Showfilelist(folderspec) Dim fs, f, f1, fc, s Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set fc = f.Files For Each f1 In fc List1.AddItem f1.Name NextEnd Sub遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String)Dim Myname As StringDim a As StringDim B() As StringDim dir_i() As StringDim i, idir As LongIf Right(MyPath, 1) Then MyPath = MyPath + Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)Do While Myname If Myname . And Myname . ThenIf (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then 如果找到的是目录idir = idir + 1ReDim Preserve dir_i(idir) As Stringdir_i(idir - 1) = MynameElseList1.AddItem MyPath & Myname 把找到的文件显示到列表框中End IfEnd IfMyname = Dir 搜索下一项LoopFor i = 0 To idir - 1Call SosuoFile(MyPath + dir_i(i)Next iReDim dir_i(0) As StringEnd Sub附: 在这里可以处理目录中的文件 Fn.Name 得到文件名 Fn.Size 得到文件大小 Fn.Path 得到文件路径 Fn.Type 得到文件类型 Fn.DateLastModified 得到文件最后的修改日期调用方法ShowFolderList (c:a) 查找目录Showfilelist (c:a) 查找文件SosuoFile (c:a) 查找目录+文件遍历文件夹Private Sub ShowFolderList(folderspec) Dim fs, f, f1, s, sf Dim hs, h, h1, hf Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set sf = f.SubFolders For Each f1 In sf List1.AddItem folderspec & & f1.Name Call ShowFolderList(folderspec & & f1.Name) NextEnd Sub遍历某文件夹下的文件Private Sub Showfilelist(folderspec) Dim fs, f, f1, fc, s Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set fc = f.Files For Each f1 In fc List1.AddItem f1.Name NextEnd Sub遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String)Dim Myname As StringDim a As StringDim B() As StringDim dir_i() As StringDim i, idir As LongIf Right(MyPath, 1) Then MyPath = MyPath + Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)Do While Myname If Myname . And Myname . ThenIf (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then 如果找到的是目录idir = idir + 1ReDim Preserve dir_i(idir) As Stringdir_i(idir - 1) = MynameElseList1.AddItem MyPath & Myname 把找到的文件显示到列表框中End IfEnd IfMyname = Dir 搜索下一项LoopFor i = 0 To idir - 1Call SosuoFile(MyPath + dir_i(i)Next iReDim dir_i(0) As StringEnd Sub附: 在这里可以处理目录中的文件 Fn.Name 得到文件名 Fn.Size 得到文件大小 Fn.Path 得到文件路径 Fn.Type 得到文件类型 Fn.DateLastModified 得到文件最后的修改日期调用方法ShowFolderList (c:a) 查找目录Showfilelist (c:a) 查找文件SosuoFile (c:a) 查找目录+文件遍历文件夹Private Sub ShowFolderList(folderspec) Dim fs, f, f1, s, sf Dim hs, h, h1, hf Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set sf = f.SubFolders For Each f1 In sf List1.AddItem folderspec & & f1.Name Call ShowFolderList(folderspec & & f1.Name) NextEnd Sub遍历某文件夹下的文件Private Sub Showfilelist(folderspec) Dim fs, f, f1, fc, s Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set fc = f.Files For Each f1 In fc List1.AddItem f1.Name NextEnd Sub遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String)Dim Myname As StringDim a As StringDim B() As StringDim dir_i() As StringDim i, idir As LongIf Right(MyPath, 1) Then MyPath = MyPath + Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)Do While Myname If Myname . And Myname . ThenIf (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then 如果找到的是目录idir = idir + 1ReDim Preserve dir_i(idir) As Stringdir_i(idir - 1) = MynameElseList1.AddItem MyPath & Myname 把找到的文件显示到列表框中End IfEnd IfMyname = Dir 搜索下一项LoopFor i = 0 To idir - 1Call SosuoFile(MyPath + dir_i(i)Next iReDim dir_i(0) As StringEnd Sub附: 在这里可以处理目录中的文件 Fn.Name 得到文件名 Fn.Size 得到文件大小 Fn.Path 得到文件路径 Fn.Type 得到文件类型 Fn.DateLastModified 得到文件最后的修改日期调用方法ShowFolderList (c:a) 查找目录Showfilelist (c:a) 查找文件SosuoFile (c:a) 查找目录+文件遍历文件夹Private Sub ShowFolderList(folderspec) Dim fs, f, f1, s, sf Dim hs, h, h1, hf Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set sf = f.SubFolders For Each f1 In sf List1.AddItem folderspec & & f1.Name Call ShowFolderList(folderspec & & f1.Name) NextEnd Sub遍历某文件夹下的文件Private Sub Showfilelist(folderspec) Dim fs, f, f1, fc, s Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set fc = f.Files For Each f1 In fc List1.AddItem f1.Name NextEnd Sub遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String)Dim Myname As StringDim a As StringDim B() As StringDim dir_i() As StringDim i, idir As LongIf Right(MyPath, 1) Then MyPath = MyPath + Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)Do While Myname If Myname . And Myname . ThenIf (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then 如果找到的是目录idir = idir + 1ReDim Preserve dir_i(idir) As Stringdir_i(idir - 1) = MynameElseList1.AddItem MyPath & Myname 把找到的文件显示到列表框中End IfEnd IfMyname = Dir 搜索下一项LoopFor i = 0 To idir - 1Call SosuoFile(MyPath + dir_i(i)Next iReDim dir_i(0) As StringEnd Sub附: 在这里可以处理目录中的文件 Fn.Name 得到文件名 Fn.Size 得到文件大小 Fn.Path 得到文件路径 Fn.Type 得到文件类型 Fn.DateLastModified 得到文件最后的修改日期调用方法ShowFolderList (c:a) 查找目录Showfilelist (c:a) 查找文件SosuoFile (c:a) 查找目录+文件遍历文件夹Private Sub ShowFolderList(folderspec) Dim fs, f, f1, s, sf Dim hs, h, h1, hf Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set sf = f.SubFolders For Each f1 In sf List1.AddItem folderspec & & f1.Name Call ShowFolderList(folderspec & & f1.Name) NextEnd Sub遍历某文件夹下的文件Private Sub Showfilelist(folderspec) Dim fs, f, f1, fc, s Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set fc = f.Files For Each f1 In fc List1.AddItem f1.Name NextEnd Sub遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String)Dim Myname As StringDim a As StringDim B() As StringDim dir_i() As StringDim i, idir As LongIf Right(MyPath, 1) Then MyPath = MyPath + Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)Do While Myname If Myname . And Myname . ThenIf (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then 如果找到的是目录idir = idir + 1ReDim Preserve dir_i(idir) As Stringdir_i(idir - 1) = MynameElseList1.AddItem MyPath & Myname 把找到的文件显示到列表框中End IfEnd IfMyname = Dir 搜索下一项LoopFor i = 0 To idir - 1Call SosuoFile(MyPath + dir_i(i)Next iReDim dir_i(0) As StringEnd Sub附: 在这里可以处理目录中的文件 Fn.Name 得到文件名 Fn.Size 得到文件大小 Fn.Path 得到文件路径 Fn.Type 得到文件类型 Fn.DateLastModified 得到文件最后的修改日期调用方法ShowFolderList (c:a) 查找目录Showfilelist (c:a) 查找文件SosuoFile (c:a) 查找目录+文件遍历文件夹Private Sub ShowFolderList(folderspec) Dim fs, f, f1, s, sf Dim hs, h, h1, hf Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set sf = f.SubFolders For Each f1 In sf List1.AddItem folderspec & & f1.Name Call ShowFolderList(folderspec & & f1.Name) NextEnd Sub遍历某文件夹下的文件Private Sub Showfilelist(folderspec) Dim fs, f, f1, fc, s Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set fc = f.Files For Each f1 In fc List1.AddItem f1.Name NextEnd Sub遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String)Dim Myname As StringDim a As StringDim B() As StringDim dir_i() As StringDim i, idir As LongIf Right(MyPath, 1) Then MyPath = MyPath + Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)Do While Myname If Myname . And Myname . ThenIf (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then 如果找到的是目录idir = idir + 1ReDim Preserve dir_i(idir) As Stringdir_i(idir - 1) = MynameElseList1.AddItem MyPath & Myname 把找到的文件显示到列表框中End IfEnd IfMyname = Dir 搜索下一项LoopFor i = 0 To idir - 1Call SosuoFile(MyPath + dir_i(i)Next iReDim dir_i(0) As StringEnd Sub附: 在这里可以处理目录中的文件 Fn.Name 得到文件名 Fn.Size 得到文件大小 Fn.Path 得到文件路径 Fn.Type 得到文件类型 Fn.DateLastModified 得到文件最后的修改日期调用方法ShowFolderList (c:a) 查找目录Showfilelist (c:a) 查找文件SosuoFile (c:a) 查找目录+文件遍历文件夹Private Sub ShowFolderList(folderspec) Dim fs, f, f1, s, sf Dim hs, h, h1, hf Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set sf = f.SubFolders For Each f1 In sf List1.AddItem folderspec & & f1.Name Call ShowFolderList(folderspec & & f1.Name) NextEnd Sub遍历某文件夹下的文件Private Sub Showfilelist(folderspec) Dim fs, f, f1, fc, s Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set fc = f.Files For Each f1 In fc List1.AddItem f1.Name NextEnd Sub遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String)Dim Myname As StringDim a As StringDim B() As StringDim dir_i() As StringDim i, idir As LongIf Right(MyPath, 1) Then MyPath = MyPath + Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)Do While Myname If Myname . And Myname . ThenIf (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then 如果找到的是目录idir = idir + 1ReDim Preserve dir_i(idir) As Stringdir_i(idir - 1) = MynameElseList1.AddItem MyPath & Myname 把找到的文件显示到列表框中End IfEnd IfMyname = Dir 搜索下一项LoopFor i = 0 To idir - 1Call SosuoFile(MyPath + dir_i(i)Next iReDim dir_i(0) As StringEnd Sub附: 在这里可以处理目录中的文件 Fn.Name 得到文件名 Fn.Size 得到文件大小 Fn.Path 得到文件路径 Fn.Type 得到文件类型 Fn.DateLastModified 得到文件最后的修改日期调用方法ShowFolderList (c:a) 查找目录Showfilelist (c:a) 查找文件SosuoFile (c:a) 查找目录+文件遍历文件夹Private Sub ShowFolderList(folderspec) Dim fs, f, f1, s, sf Dim hs, h, h1, hf Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set sf = f.SubFolders For Each f1 In sf List1.AddItem folderspec & & f1.Name Call ShowFolderList(folderspec & & f1.Name) NextEnd Sub遍历某文件夹下的文件Private Sub Showfilelist(folderspec) Dim fs, f, f1, fc, s Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set fc = f.Files For Each f1 In fc List1.AddItem f1.Name NextEnd Sub遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String)Dim Myname As StringDim a As StringDim B() As StringDim dir_i() As StringDim i, idir As LongIf Right(MyPath, 1) Then MyPath = MyPath + Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)Do While Myname If Myname . And Myname . ThenIf (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then 如果找到的是目录idir = idir + 1Re