VB遍历所有文件

垃圾百度文库,非说我文档质量低,害我复制这么多,双横线以后是复制品,大家不用看这段代码是我在网上找到的,速度很快,有需要的朋友保存下吧

执行前先加个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 & "\" & https://www.wendangku.net/doc/369139789.html,

Call ShowFolderList(folderspec & "\" & https://www.wendangku.net/doc/369139789.html,)

Next

End 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 https://www.wendangku.net/doc/369139789.html,

Next

End Sub

'遍历某文件夹及子文件夹中的所有文件

Sub SosuoFile(MyPath As String)

Dim Myname As String

Dim a As String

Dim B() As String

Dim dir_i() As String

Dim i, idir As Long

If Right(MyPath, 1) <> "\" Then MyPath = MyPath + "\"

Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)

Do While Myname <> ""

If Myname <> "." And Myname <> ".." Then

If (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then '如果找到的是目录idir = idir + 1

ReDim Preserve dir_i(idir) As String

dir_i(idir - 1) = Myname

Else

List1.AddItem MyPath & Myname '把找到的文件显示到列表框中

End If

End If

Myname = Dir '搜索下一项

Loop

For i = 0 To idir - 1

Call SosuoFile(MyPath + dir_i(i))

Next i

ReDim dir_i(0) As String

End Sub

'附:

'在这里可以处理目录中的文件

'https://www.wendangku.net/doc/369139789.html, '得到文件名

'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 & "\" & https://www.wendangku.net/doc/369139789.html,

Call ShowFolderList(folderspec & "\" & https://www.wendangku.net/doc/369139789.html,)

Next

End 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 https://www.wendangku.net/doc/369139789.html,

Next

End Sub

'遍历某文件夹及子文件夹中的所有文件

Sub SosuoFile(MyPath As String)

Dim Myname As String

Dim a As String

Dim B() As String

Dim dir_i() As String

Dim i, idir As Long

If Right(MyPath, 1) <> "\" Then MyPath = MyPath + "\"

Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)

Do While Myname <> ""

If Myname <> "." And Myname <> ".." Then

If (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then '如果找到的是目录idir = idir + 1

ReDim Preserve dir_i(idir) As String

dir_i(idir - 1) = Myname

Else

List1.AddItem MyPath & Myname '把找到的文件显示到列表框中

End If

End If

Myname = Dir '搜索下一项

Loop

For i = 0 To idir - 1

Call SosuoFile(MyPath + dir_i(i))

Next i

ReDim dir_i(0) As String

End Sub

'附:

'在这里可以处理目录中的文件

'https://www.wendangku.net/doc/369139789.html, '得到文件名

'Fn.Size '得到文件大小

'Fn.Path '得到文件路径

'Fn.Type '得到文件类型

'Fn.DateLastModified '得到文件最后的修改日期

'调用方法

'ShowFolderList ("c:\a") 查找目录

'Showfilelist ("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 & "\" & https://www.wendangku.net/doc/369139789.html,

Call ShowFolderList(folderspec & "\" & https://www.wendangku.net/doc/369139789.html,) Next

End 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 https://www.wendangku.net/doc/369139789.html,

Next

End Sub

'遍历某文件夹及子文件夹中的所有文件

Sub SosuoFile(MyPath As String)

Dim Myname As String

Dim a As String

Dim B() As String

Dim dir_i() As String

Dim i, idir As Long

If Right(MyPath, 1) <> "\" Then MyPath = MyPath + "\"

Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)

Do While Myname <> ""

If Myname <> "." And Myname <> ".." Then

If (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then '如果找到的是目录idir = idir + 1

ReDim Preserve dir_i(idir) As String

dir_i(idir - 1) = Myname

Else

List1.AddItem MyPath & Myname '把找到的文件显示到列表框中

End If

End If

Myname = Dir '搜索下一项

Loop

For i = 0 To idir - 1

Call SosuoFile(MyPath + dir_i(i))

Next i

ReDim dir_i(0) As String

End Sub

'附:

'在这里可以处理目录中的文件

'https://www.wendangku.net/doc/369139789.html, '得到文件名

'Fn.Size '得到文件大小

'Fn.Path '得到文件路径

'Fn.Type '得到文件类型

'Fn.DateLastModified '得到文件最后的修改日期

'调用方法

'ShowFolderList ("c:\a") 查找目录

'Showfilelist ("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 & "\" & https://www.wendangku.net/doc/369139789.html,

Call ShowFolderList(folderspec & "\" & https://www.wendangku.net/doc/369139789.html,)

Next

End 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 https://www.wendangku.net/doc/369139789.html,

Next

End Sub

'遍历某文件夹及子文件夹中的所有文件

Sub SosuoFile(MyPath As String)

Dim Myname As String

Dim a As String

Dim B() As String

Dim dir_i() As String

Dim i, idir As Long

If Right(MyPath, 1) <> "\" Then MyPath = MyPath + "\"

Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)

Do While Myname <> ""

If Myname <> "." And Myname <> ".." Then

If (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then '如果找到的是目录idir = idir + 1

ReDim Preserve dir_i(idir) As String

dir_i(idir - 1) = Myname

Else

List1.AddItem MyPath & Myname '把找到的文件显示到列表框中

End If

End If

Myname = Dir '搜索下一项

Loop

For i = 0 To idir - 1

Call SosuoFile(MyPath + dir_i(i))

Next i

ReDim dir_i(0) As String

End Sub

'附:

'在这里可以处理目录中的文件

'https://www.wendangku.net/doc/369139789.html, '得到文件名

'Fn.Size '得到文件大小

'Fn.Path '得到文件路径

'Fn.Type '得到文件类型

'Fn.DateLastModified '得到文件最后的修改日期

'调用方法

'ShowFolderList ("c:\a") 查找目录

'Showfilelist ("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 & "\" & https://www.wendangku.net/doc/369139789.html,

Call ShowFolderList(folderspec & "\" & https://www.wendangku.net/doc/369139789.html,) Next

End 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 https://www.wendangku.net/doc/369139789.html,

Next

End Sub

'遍历某文件夹及子文件夹中的所有文件

Sub SosuoFile(MyPath As String)

Dim Myname As String

Dim a As String

Dim B() As String

Dim dir_i() As String

Dim i, idir As Long

If Right(MyPath, 1) <> "\" Then MyPath = MyPath + "\"

Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)

Do While Myname <> ""

If Myname <> "." And Myname <> ".." Then

If (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then '如果找到的是目录idir = idir + 1

ReDim Preserve dir_i(idir) As String

dir_i(idir - 1) = Myname

Else

List1.AddItem MyPath & Myname '把找到的文件显示到列表框中

End If

End If

Myname = Dir '搜索下一项

Loop

For i = 0 To idir - 1

Call SosuoFile(MyPath + dir_i(i))

Next i

ReDim dir_i(0) As String

End Sub

'附:

'在这里可以处理目录中的文件

'https://www.wendangku.net/doc/369139789.html, '得到文件名

'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 & "\" & https://www.wendangku.net/doc/369139789.html,

Call ShowFolderList(folderspec & "\" & https://www.wendangku.net/doc/369139789.html,)

Next

End 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 https://www.wendangku.net/doc/369139789.html,

Next

End Sub

'遍历某文件夹及子文件夹中的所有文件

Sub SosuoFile(MyPath As String)

Dim Myname As String

Dim a As String

Dim B() As String

Dim dir_i() As String

Dim i, idir As Long

If Right(MyPath, 1) <> "\" Then MyPath = MyPath + "\"

Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)

Do While Myname <> ""

If Myname <> "." And Myname <> ".." Then

If (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then '如果找到的是目录idir = idir + 1

ReDim Preserve dir_i(idir) As String

dir_i(idir - 1) = Myname

Else

List1.AddItem MyPath & Myname '把找到的文件显示到列表框中

End If

End If

Myname = Dir '搜索下一项

Loop

For i = 0 To idir - 1

Call SosuoFile(MyPath + dir_i(i))

Next i

ReDim dir_i(0) As String

End Sub

'附:

'在这里可以处理目录中的文件

'https://www.wendangku.net/doc/369139789.html, '得到文件名

'Fn.Size '得到文件大小

'Fn.Path '得到文件路径

'Fn.Type '得到文件类型

'Fn.DateLastModified '得到文件最后的修改日期

'调用方法

'ShowFolderList ("c:\a") 查找目录

'Showfilelist ("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 & "\" & https://www.wendangku.net/doc/369139789.html,

Call ShowFolderList(folderspec & "\" & https://www.wendangku.net/doc/369139789.html,)

Next

End 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 https://www.wendangku.net/doc/369139789.html,

Next

End Sub

'遍历某文件夹及子文件夹中的所有文件

Sub SosuoFile(MyPath As String)

Dim Myname As String

Dim a As String

Dim B() As String

Dim dir_i() As String

Dim i, idir As Long

If Right(MyPath, 1) <> "\" Then MyPath = MyPath + "\"

Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)

Do While Myname <> ""

If Myname <> "." And Myname <> ".." Then

If (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then '如果找到的是目录idir = idir + 1

ReDim Preserve dir_i(idir) As String

dir_i(idir - 1) = Myname

Else

List1.AddItem MyPath & Myname '把找到的文件显示到列表框中

End If

End If

Myname = Dir '搜索下一项

Loop

For i = 0 To idir - 1

Call SosuoFile(MyPath + dir_i(i))

Next i

ReDim dir_i(0) As String

End Sub

'附:

'在这里可以处理目录中的文件

'https://www.wendangku.net/doc/369139789.html, '得到文件名

'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 & "\" & https://www.wendangku.net/doc/369139789.html,

Call ShowFolderList(folderspec & "\" & https://www.wendangku.net/doc/369139789.html,) Next

End 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 https://www.wendangku.net/doc/369139789.html,

Next

End Sub

'遍历某文件夹及子文件夹中的所有文件

Sub SosuoFile(MyPath As String)

Dim Myname As String

Dim a As String

Dim B() As String

Dim dir_i() As String

Dim i, idir As Long

If Right(MyPath, 1) <> "\" Then MyPath = MyPath + "\"

Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)

Do While Myname <> ""

If Myname <> "." And Myname <> ".." Then

If (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then '如果找到的是目录idir = idir + 1

ReDim Preserve dir_i(idir) As String

dir_i(idir - 1) = Myname

Else

List1.AddItem MyPath & Myname '把找到的文件显示到列表框中

End If

End If

Myname = Dir '搜索下一项

Loop

For i = 0 To idir - 1

Call SosuoFile(MyPath + dir_i(i))

Next i

ReDim dir_i(0) As String

End Sub

'附:

'在这里可以处理目录中的文件

'https://www.wendangku.net/doc/369139789.html, '得到文件名

'Fn.Size '得到文件大小

'Fn.Path '得到文件路径

'Fn.Type '得到文件类型

'Fn.DateLastModified '得到文件最后的修改日期

'调用方法

'ShowFolderList ("c:\a") 查找目录

'Showfilelist ("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 & "\" & https://www.wendangku.net/doc/369139789.html,

Call ShowFolderList(folderspec & "\" & https://www.wendangku.net/doc/369139789.html,)

Next

End 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 https://www.wendangku.net/doc/369139789.html,

Next

End Sub

'遍历某文件夹及子文件夹中的所有文件

Sub SosuoFile(MyPath As String)

Dim Myname As String

Dim a As String

Dim B() As String

Dim dir_i() As String

Dim i, idir As Long

If Right(MyPath, 1) <> "\" Then MyPath = MyPath + "\"

Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)

Do While Myname <> ""

If Myname <> "." And Myname <> ".." Then

If (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then '如果找到的是目录idir = idir + 1

ReDim Preserve dir_i(idir) As String

dir_i(idir - 1) = Myname

Else

List1.AddItem MyPath & Myname '把找到的文件显示到列表框中

End If

End If

Myname = Dir '搜索下一项

Loop

For i = 0 To idir - 1

Call SosuoFile(MyPath + dir_i(i))

Next i

ReDim dir_i(0) As String

End Sub

'附:

'在这里可以处理目录中的文件

'https://www.wendangku.net/doc/369139789.html, '得到文件名

'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 & "\" & https://www.wendangku.net/doc/369139789.html,

Call ShowFolderList(folderspec & "\" & https://www.wendangku.net/doc/369139789.html,) Next

End 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 https://www.wendangku.net/doc/369139789.html,

Next

End Sub

'遍历某文件夹及子文件夹中的所有文件

Sub SosuoFile(MyPath As String)

Dim Myname As String

Dim a As String

Dim B() As String

Dim dir_i() As String

Dim i, idir As Long

If Right(MyPath, 1) <> "\" Then MyPath = MyPath + "\"

Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)

Do While Myname <> ""

If Myname <> "." And Myname <> ".." Then

If (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then '如果找到的是目录idir = idir + 1

ReDim Preserve dir_i(idir) As String

dir_i(idir - 1) = Myname

Else

List1.AddItem MyPath & Myname '把找到的文件显示到列表框中

End If

End If

Myname = Dir '搜索下一项

Loop

For i = 0 To idir - 1

Call SosuoFile(MyPath + dir_i(i))

Next i

ReDim dir_i(0) As String

End Sub

'附:

'在这里可以处理目录中的文件

'https://www.wendangku.net/doc/369139789.html, '得到文件名

'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 & "\" & https://www.wendangku.net/doc/369139789.html,

Call ShowFolderList(folderspec & "\" & https://www.wendangku.net/doc/369139789.html,) Next

End 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 https://www.wendangku.net/doc/369139789.html,

Next

End Sub

'遍历某文件夹及子文件夹中的所有文件

Sub SosuoFile(MyPath As String)

Dim Myname As String

Dim a As String

Dim B() As String

Dim dir_i() As String

Dim i, idir As Long

If Right(MyPath, 1) <> "\" Then MyPath = MyPath + "\"

Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)

Do While Myname <> ""

If Myname <> "." And Myname <> ".." Then

If (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then '如果找到的是目录idir = idir + 1

ReDim Preserve dir_i(idir) As String

dir_i(idir - 1) = Myname

Else

List1.AddItem MyPath & Myname '把找到的文件显示到列表框中

End If

End If

Myname = Dir '搜索下一项

Loop

For i = 0 To idir - 1

Call SosuoFile(MyPath + dir_i(i))

Next i

ReDim dir_i(0) As String

End Sub

'附:

'在这里可以处理目录中的文件

'https://www.wendangku.net/doc/369139789.html, '得到文件名

'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 & "\" & https://www.wendangku.net/doc/369139789.html,

Call ShowFolderList(folderspec & "\" & https://www.wendangku.net/doc/369139789.html,)

Next

End 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 https://www.wendangku.net/doc/369139789.html,

Next

End Sub

'遍历某文件夹及子文件夹中的所有文件

Sub SosuoFile(MyPath As String)

Dim Myname As String

Dim a As String

Dim B() As String

Dim dir_i() As String

Dim i, idir As Long

If Right(MyPath, 1) <> "\" Then MyPath = MyPath + "\"

Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)

Do While Myname <> ""

If Myname <> "." And Myname <> ".." Then

If (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then '如果找到的是目录idir = idir + 1

ReDim Preserve dir_i(idir) As String

dir_i(idir - 1) = Myname

Else

List1.AddItem MyPath & Myname '把找到的文件显示到列表框中

End If

End If

Myname = Dir '搜索下一项

Loop

For i = 0 To idir - 1

Call SosuoFile(MyPath + dir_i(i))

Next i

ReDim dir_i(0) As String

End Sub

'附:

'在这里可以处理目录中的文件

'https://www.wendangku.net/doc/369139789.html, '得到文件名

'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 & "\" & https://www.wendangku.net/doc/369139789.html,

Call ShowFolderList(folderspec & "\" & https://www.wendangku.net/doc/369139789.html,) Next

End 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 https://www.wendangku.net/doc/369139789.html,

树的遍历：文件目录结构的显示

数据结构课程设计报告 树的遍历：文件目录结构的显示 专业 计算机科学与技术 学生姓名 **** 班级 计算机*** 学号 ***** 指导教师 徐燕萍 完成日期 2014年7月4日

目录 1、设计内容 (2) 2、设计分析 (3) 2.1建立树形链表结构的函数PARSE() (3) 2.2目录大小重新计算函数RE S IZE() (4) 2.3输出树形结构的函数OUT P UT() (5) 3、设计实践 (5) 4、测试方法 (14) 4.1测试目的 (14) 4.2测试输入 (15) 4.3正确输出 (15) 4.4实际输出 (17) 5 程序运行效果 (19) 5.1测试结果分析 (19) 5.2探讨与改进 (19) 6 设计心得 (20) 1

树的遍历：文件目录结构的显示 1、设计内容 给出Unix下目录和文件信息，要求编程实现将其排列成一定缩进的树。具体要求如下。输入要求： 输入数据包含几个测试方案。每一个案例由几行组成，每一行都代表了目录树的层次结构。第一行代表目录的根节点。若是目录节点，那么它的孩子节点将在第二行中被列出，同时用一对圆括号“()”界定。同样，如果这些孩子节点钟某一个也是目录的话，那么这个目录所包含的内容将在随后的一行中列出，有一对圆括号将首位界定。目录的输入格式为：*name size,文件的输入格式为：name size，其中*代表当前节点的目录，name代表文件或目录的名称，由一串长度不大于10的字符组成，并且name字符串中不能包含有‘(’,‘)’,‘[’,‘]’,‘*’。size是该文件/目录的大小，为大于0的整数。每一个案例中最多只能包含10层，每一层最多有10个文件/目录。 输出要求： 对每一个测试案例，输出时要求：第d层的文件/目录名前面需要插入8*d个空格，兄弟节点之间要在同一列上。不要使用Tab(制表符)来统一输出的缩进。每一个目录的大小(size)是它包含的所有子目录和文件大小以及它自身大小的总和。 输入例子： */usr1 (*mark 1 *alex 1) (hw.c3 *course 1)(hw.c 5) (aa.txt 12) */usr 1 () 表示含有两个不同的根目录，目录名都是/usr,第一个根目录/usr 下包含mark和alex两个子目录，mark目录下包含大小为3的文件hw.c和子目录course,alex目录下有一个大小为5的文件hw.c，子目录course下包含文件aa.txt，其大小为12；第二个根目录/usr下为空。 2

Linux C ：遍历输出指定目录下的所有文件

Linux C ：遍历输出指定目录下的所有文件 在Linux下opendir()、readdir()和closedir()这三个函数主要用来遍历目录。在使用这三个函数前必须先包括以下两个头文件： #include #include opendir函数的原型为： DIR *opendir(const char *name); 它返回一个DIR*类型，这就是一个句柄啦，你不用管它的内部结构是什么样的，只要知道这个句柄就是等一下要传给readdir()函数的参数就行了。 readdir函数的原型为： struct dirent *readdir(DIR *dir); 看它的参数就知道该参数是opendir函数返回的句柄，而该函数的返回值是struct dirent* 类型，这里我们必须了解一下这个结构体： struct dirent { ino_t d_ino; /* inode number */ off_t d_off; /* offset to the next dirent */ unsigned short d_reclen; /* length of this record */ unsigned char d_type; /* type of file */ char d_name[256]; /* filename */ }; 这个结构体的d_name存放的就是文件的名字，这里的文件包括普通文件，目录文件等等，在linux的思想中，所有的东西都是文件。 closedir函数的原型为： int closedir(DIR *dir); 这个函数就不用多说了，一般有开（open），就有关（close），这样的结构经常可出看到，如fopen，fclose等等。 三个函数介绍完了，直接来一个例子吧： SearchDir.c#include #include #include #include #include char filename[256][256]; int len = 0; int trave_dir(char* path, int depth) { DIR *d; //声明一个句柄 struct dirent *file; //readdir函数的返回值就存放在这个结构体中 struct stat sb;

C#遍历目录下的所有文件夹

//这个是网上转的上一个也是仿照这个改的同样是win32控制台程序学习！ using System; using System.Collections.Generic; using System.Text; using System.IO; namespace TestFileInfo { class Program { static void Main(string[] args) { string pathNames=null; do { Console.Write("请输入目录路径名(输入x退出程序):"); pathNames = Console.ReadLine(); if ((pathNames == "X") || (pathNames == "x")) break; DirectoryInfo dirPath = new DirectoryInfo(pathNames); CDirectoryInfo dirObject = new CDirectoryInfo(); Console.Write(dirObject.GetDirectoryInfos(dirPath)); Console.WriteLine("______________________________________________ ________/n"); //dirObject.pathNameProp = null; //Console.Write(dirObject.GetDirectoryInfos(pathNames)); //Console.WriteLine("_____________________________________________ ________"); } while (true);//((pathName == "X") || (pathName == "x")); Console.Write("/n程序已终止，按任意键退出程序!"); Console.ReadKey(); } }

用vba遍历文件夹和子文件夹中的所有文件

在VBA遍历文件夹和子文件夹中所有文件，常用两种方法，一种是使用VBA的filesercth 对象，另外一种是使用FileSystemObject(windows文件管理工具)和递归方法。兰色对代码进行了注解，希望对大家有所帮助 第二种方法：引用FileSystemObject对象 注意：要使用FileSystemObject对象，需要首先引用一下，具体方法，VBE--工具--引用--找到miscrosoft scription runtime项目并选中 代码及注释： Dim ArrFiles(1 To 10000) '创建一个数组空间,用来存放文件名称 Dim cntFiles% '文件个数 Public Sub ListAllFiles() Dim strPath$ '声明文件路径 Dim i% 'Set fso = CreateObject("Scripting.FileSystemObject") Dim fso As New FileSystemObject, fd As Folder '创建一个FileSystemObject对象和一个文件夹对象 strPath = ThisWorkbook.Path & "\" '"设置要遍历的文件夹目录 cntFiles = 0 Set fd = fso.GetFolder(strPath) '设置fd文件夹对象 SearchFiles fd '调用子程序查搜索文件 Sheets(1).Range("A1").Resize(cntFiles) = Application.Transpose(ArrFiles) '把数组内的路径和文件名放在单元格中 End Sub Sub SearchFiles(ByVal fd As Folder) Dim fl As File Dim sfd As Folder For Each fl In fd.Files '通过循环把文件逐个放在数组内 cntFiles = cntFiles + 1 ArrFiles(cntFiles) = fl.Path Next fl If fd.SubFolders.Count = 0 Then Exit Sub 'SubFolders返回由指定文件夹中所有子文件夹（包括隐藏文件夹和系统文件夹）组成的Folders 集合 For Each sfd In fd.SubFolders '在Folders 集合进行循环查找 SearchFiles sfd '使用递归方法查找下一个文件夹 Next End Sub

c#遍历一个文件夹下的所有文件包括子文件夹

c#遍历一个文件夹下的所有文件包括子文件夹 using System; using System.IO; class ListAllFilesDemo { public static void Main() { Console.Write( "请输入要查询的目录: "); string dir = Console.ReadLine(); try { ListFiles(new DirectoryInfo(dir)); } catch(IOException e) { Console.WriteLine(e.Message); } } public static void ListFiles(FileSystemInfo info)

{ if (!info.Exists) return; else { DirectoryInfo dirInfo = info as DirectoryInfo; if (dirInfo != null) { foreach (var file in dirInfo.GetFileSystemInfos()) { FileInfo fileInfo = file as FileInfo; if (fileInfo != null) Console.WriteLine(fileInfo.FullName); else { listFiles(file as DirectoryInfo); } } }

} } } C#中遍历目录下的目录的文件(二) 1、遍历一个目录下的全部目录，要用到System.IO.DirectoryInfo 类的GetDirectories方法： DirectoryInfo dir = new DirectoryInfo(@"c:\"); foreach(DirectoryInfo dChild in dir.GetDirectories("*")) {//如果用GetDirectories("ab*"),那么全部以ab开头的目录会被显示 Response.Write(https://www.wendangku.net/doc/369139789.html, + "
");//打印目录名 Response.Write(dChild.FullName + "
");//打印路径和目录名} 2、遍历一个目录下的全部文件，要用到System.IO.DirectoryInfo 类的GetFiles方法： DirectoryInfo dir = new DirectoryInfo(@"c:\"); foreach(DirectoryInfo dChild in dir.GetFiles("*")) {//如果用GetFiles("*.txt"),那么全部txt文件会被显示 Response.Write(https://www.wendangku.net/doc/369139789.html, + "
");//打印文件名

递归遍历目录的实现(c)

由于工作中需要使用到遍历目录，所以就自己收集整理相关资料，写了下面的函数，希望对大家有所帮助。 #include #include #include #include //将数组myarray的内容复制到数组S中 void initarray(char s[],char myarray[]) { int i; for(i=0;i

使用boost中的filesystem类库遍历某个目录所有的文件

使用boost中的filesystem类库遍历某个目录所有的文件 #include #include 使用boost中的filesystem类库遍历某个目录所有的文件 int GetAllFileOfPath(const string strPath) { namespace fs = boost::filesystem; // 得到配置文件夹. if ( strPath.size() < 2 ) { return 0; } fs::path full_path( fs::initial_path() ); full_path = fs::system_complete( fs::path( strPath, fs::native ) ); unsigned long file_count = 0; unsigned long dir_count = 0; unsigned long err_count = 0; if ( !fs::exists( full_path ) ) { std::cout << "找不到配置文件目录,请检查该目录是否存在:" std::cout << full_path.native_file_string() << std::endl; return -1; } // 遍历配置文件所在的文件夹,得到所有的配置文件名. if ( fs::is_directory( full_path ) ) { fs::directory_iterator end_iter; for ( fs::directory_iterator dir_itr( full_path ); dir_itr != end_iter; ++dir_itr ) { try { if ( fs::is_directory( *dir_itr ) ) {

VBA遍历所有文件夹的两种方法(filesearch和FileSystemObject)

VBA遍历所有文件夹的两种方法（filesearch和FileSystemObject） 在VBA遍历文件夹和子文件夹中所有文件，常用两种方法，一种是使用VBA的filesercth对象，另外一种是使用FileSystemObject(windows文件管理工具)和递归方法。兰色对代码进行了注解，希望对大家有所帮助 第一种方法：使用filesearch对象 Sub mysearch() Dim fs, i, arr(1 To 10000) Set fs = Application.FileSearch '设置一个搜索对象 With fs .LookIn = ThisWorkbook.Path & "/" '设置搜索路径 .Filename = "*.xls" '要搜索文件名和类型 .SearchSubFolders = True '是否需要搜索子文件夹 If .Execute > 0 Then '如果找不到文件 MsgBox "There were " & .FoundFiles.Count & _ " file(s) found." '显示文件找不到 For i = 1 To .FoundFiles.Count '通过循环把所有搜索到的文件存入到数组中 arr(i) = .FoundFiles(i) Next i Sheets(1).Range("A1").Resize(.FoundFiles.Count) = Application.Transpose(arr) ' '把数组内的路径和文件名放在单元格中 Else MsgBox "There were no files found." End If End With End Sub 第二种方法：引用FileSystemObject对象 注意：要使用FileSystemObject对象，需要首先引用一下，具体方法，VBE--工具--引用--找到miscrosoft scription runtime项目并选中 代码及注释： Dim ArrFiles(1 To 10000) '创建一个数组空间,用来存放文件名称 Dim cntFiles% '文件个数 Public Sub ListAllFiles() Dim strPath$ '声明文件路径 Dim i% 'Set fso = CreateObject("Scripting.FileSystemObject") Dim fso As New FileSystemObject, fd As Folder '创建一个FileSystemObject对象和一个文件夹对象 strPath = ThisWorkbook.Path & "/" '"设置要遍历的文件夹目录 cntFiles = 0 Set fd = fso.GetFolder(strPath) '设置fd文件夹对象 SearchFiles fd '调用子程序查搜索文件 Sheets(1).Range("A1").Resize(cntFiles) = Application.Transpose(ArrFiles) '把数组内的路径和文件名放在单元格中 End Sub Sub SearchFiles(ByVal fd As Folder) Dim fl As File Dim sfd As Folder For Each fl In fd.Files '通过循环把文件逐个放在数组内 cntFiles = cntFiles + 1 ArrFiles(cntFiles) = fl.Path Next fl If fd.SubFolders.Count = 0 Then Exit Sub 'SubFolders返回由指定文件夹中所有子文件夹（包括隐藏文件夹和系统文件夹）组成的Folders 集合 For Each sfd In fd.SubFolders '在Folders 集合进行循环查找 SearchFiles sfd '使用递归方法查找下一个文件夹 Next End Sub

c#遍历一个文件夹下的所有文件包括子文件夹

using System; using System.IO; class ListAllFilesDemo { public static void Main() { Console.Write( "请输入要查询的目录: "); string dir = Console.ReadLine(); try { ListFiles(new DirectoryInfo(dir)); } catch(IOException e) { Console.WriteLine(e.Message); } } public static void ListFiles(FileSystemInfo info) { if(!info.Exists) return; DirectoryInfo dir = info as DirectoryInfo; //不是目录 if(dir == null) return; FileSystemInfo [] files = dir.GetFileSystemInfos(); for(int i = 0; i < files.Length; i++) { FileInfo file = files[i] as FileInfo; //是文件 if(file != null)

Console.WriteLine(file.FullName + "\t " + file.Length); //对于子目录，进行递归调用 else ListFiles(files[i]); } } } C#中遍历目录下的目录的文件(二) 1、遍历一个目录下的全部目录，要用到System.IO.DirectoryInfo 类的GetDirectories方法： DirectoryInfo dir = new DirectoryInfo(@"c:\"); foreach(DirectoryInfo dChild in dir.GetDirectories("*")) {//如果用GetDirectories("ab*"),那么全部以ab开头的目录会被显示 Response.Write(https://www.wendangku.net/doc/369139789.html, + "
");//打印目录名 Response.Write(dChild.FullName + "
");//打印路径和目录名} 2、遍历一个目录下的全部文件，要用到System.IO.DirectoryInfo 类的GetFiles方法： DirectoryInfo dir = new DirectoryInfo(@"c:\"); foreach(DirectoryInfo dChild in dir.GetFiles("*")) {//如果用GetFiles("*.txt"),那么全部txt文件会被显示 Response.Write(https://www.wendangku.net/doc/369139789.html, + "
");//打印文件名 Response.Write(dChild.FullName + "
");//打印路径和文件名}

用vba遍历文件夹和子文件夹中的所有文件

精品文档 在VBA遍历文件夹和子文件夹中所有文件，常用两种方法，一种是使用VBA的filesercth 对象，另外一种是使用FileSystemObject(windows文件管理工具)和递归方法。兰色对代码进行了注解，希望对大家有所帮助 第二种方法：引用FileSystemObject对象 注意：要使用FileSystemObject对象，需要首先引用一下，具体方法，VBE--工具--引用--找到miscrosoft scription runtime项目并选中 代码及注释： Dim ArrFiles(1 To 10000) '创建一个数组空间,用来存放文件名称 Dim cntFiles% '文件个数 Public Sub ListAllFiles() Dim strPath$ '声明文件路径 Dim i% 'Set fso = CreateObject("Scripting.FileSystemObject") Dim fso As New FileSystemObject, fd As Folder '创建一个FileSystemObject对象和一个文件夹对象 strPath = ThisWorkbook.Path & "\" '"设置要遍历的文件夹目录 cntFiles = 0 Set fd = fso.GetFolder(strPath) '设置fd文件夹对象 SearchFiles fd '调用子程序查搜索文件 Sheets(1).Range("A1").Resize(cntFiles) = Application.Transpose(ArrFiles) '把数组内的路径和文件名放在单元格中 End Sub Sub SearchFiles(ByVal fd As Folder) Dim fl As File Dim sfd As Folder For Each fl In fd.Files '通过循环把文件逐个放在数组内 cntFiles = cntFiles + 1 ArrFiles(cntFiles) = fl.Path Next fl If fd.SubFolders.Count = 0 Then Exit Sub 'SubFolders返回由指定文件夹中所有子文件夹（包括隐藏文件夹和系统文件夹）组成的Folders 集合 For Each sfd In fd.SubFolders '在Folders 集合进行循环查找 SearchFiles sfd '使用递归方法查找下一个文件夹 Next End Sub .

C++遍历目录下所有文件名

#include "stdlib.h" #include "direct.h" #include "string.h" #include "string" #include "io.h" #include "stdio.h" #include #include "iostream" using namespace std; /******************说明********************* 能够读出指定目录下所有指定类型的文件名，而且 支持通配符过滤特定类型文件。同时也能够输出文件总数和子目录总数**************************************/ class CBrowseDir { protected: //存放初始目录的绝对路径，以'\'结尾 char m_szInitDir[_MAX_PATH]; public: //缺省构造器 CBrowseDir(); //设置初始目录为dir，如果返回false，表示目录不可用 bool SetInitDir(const char *dir); //开始遍历初始目录及其子目录下由filespec指定类型的文件 //filespec可以使用通配符* ?，不能包含路径。 //如果返回false，表示遍历过程被用户中止 bool BeginBrowse(const char *filespec); vector BeginBrowseFilenames(const char *filespec); protected: //遍历目录dir下由filespec指定的文件 //对于子目录,采用迭代的方法 //如果返回false,表示中止遍历文件 bool BrowseDir(const char *dir,const char *filespec); vector GetDirFilenames(const char *dir,const char *filespec); //函数BrowseDir每找到一个文件,就调用ProcessFile //并把文件名作为参数传递过去 //如果返回false,表示中止遍历文件 //用户可以覆写该函数,加入自己的处理代码 virtual bool ProcessFile(const char *filename);

QT遍历文件夹目录图片文件的实现

数码相框实现遍历文件夹图片文件 一、功能介绍： 在为数码相框所在文件系统实现U盘自动挂载之后，将U盘自动挂载在开发板上文件系统中的/mnt/usb目录，故还需为数码相框添加遍历/mnt/usb路径下的文件夹内图片文件，暂定为扫描指定目录下一层文件夹内的图片文件。 二、参考资料： 以下一段代码为使用QT实现遍历文件夹和文件目录（递归法） bool FindFile(const QString & path) { QDir dir(path); if (!dir.exists()) return false; dir.setFilter(QDir::Dirs|QDir::Files); dir.setSorting(QDir::DirsFirst); QFileInfoList list = dir.entryInfoList(); int i=0; do{ QFileInfo fileInfo = list.at(i); if(fileInfo.fileName()=="."|fileInfo.fileName()=="..") { i++; continue; } bool bisDir=fileInfo.isDir(); if(bisDir) { nFiles++; std::cout << qPrintable(QString("%1 %2 %3").arg(fileInfo.size(), 10) .arg(fileInfo.fileName(),10).arg(fileInfo.path()))<

Python中如何遍历一个目录 输出所有的文件名

Python中如何遍历一个目录输出所有的文件名 如今想要学习Python的小伙伴越来越多，不论是参加Python培训还是自学Python开发的小伙伴都有。本篇文章给喜欢Python开发的小伙伴分享一下Python中如何遍历一个目录输出所有的文件名，希望能帮到对Python开发感兴趣的小伙伴们。 python 获取一个文件夹内(包括子文件夹)所有文件的名字和路径 import os dir = "e:\\" for root, dirs, files in os.walk(dir): for file in files: print os.path.join(root,file) 或： import os path = r'e:\case' fns = [os.path.join(root,fn) for root, dirs, files in os.walk(path) for fn in files] for f in fns: print(f) print(len(fns)) #coding=utf-8 import os def GetFileList(dir, fileList): newDir = dir if os.path.isfile(dir): fileList.append(dir.decode('gbk')) elif os.path.isdir(dir): for s in os.listdir(dir): #如果需要忽略某些文件夹，使用以下代码 #if s == "xxx": #continue newDir=os.path.join(dir,s) GetFileList(newDir, fileList) return fileList

下面这段代码可以遍历指定文件夹下所有XLS文件

下面这段代码可以遍历指定文件夹下所有xls文件，但： 1.文件夹下的xls文件可以返回到工A列，但子文件夹下的xls文件就不行 2.想同时在B列后能返回xls文件名下的工作表名称 Private Sub CommandButton1_Click() Dim fn As String Dim r As Long fn=Dir(ThisWorkbook.Path&"\*.xls") While fn<>"" r=r+1 Cells(r,1)=fn fn=Dir() Wend End Sub Sub汇总() Dim sh As Worksheet,FileName As String,rng As Range,sht As Worksheet Set sht=ActiveSheet FileName=Dir(ThisWorkbook.Path&"\*.xls")'待汇总文件 Do If FileName<>https://www.wendangku.net/doc/369139789.html, Then'如果当前文件不是汇部表，则处理此文件Set rng=sht.Range("A5").End(xlDown)'确定合计最上方的空单元格 If rng="合计"Then'如果当前单元格是“合计”项 rng.EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove'插入空行 Set rng=rng.Offset(-2,0)'调整单元格的位置 End If Set sh=Workbooks.Open(ThisWorkbook.Path&"\"& FileName).Worksheets("Sheet1")'打开待汇总文件 rng.Offset(1,0)=sh.[M4]'填充编号 rng.Offset(1,1)=sh.[C4]'填充姓名 rng.Offset(1,2)=sh.[M18]'填充总价 sh.Parent.Close(False)'关闭文件 End If FileName=Dir()'遍历下一个文件 Loop While FileName<>"" End Sub 这段小程序就把一个EXCEL文件中每个工作表的A1单元格填上了a Sub tt() For i=1To ActiveWorkbook.Worksheets.Count

C#遍历指定文件夹中的所有文件

C#遍历指定文件夹中的所有文件 DirectoryInfo TheFolder=new DirectoryInfo(folderFullName); //遍历文件夹 foreach(DirectoryInfo NextFolder in TheFolder.GetDirectories()) this.listBox1.Items.Add(https://www.wendangku.net/doc/369139789.html,); //遍历文件 foreach(FileInfo NextFile in TheFolder.GetFiles()) this.listBox2.Items.Add(https://www.wendangku.net/doc/369139789.html,); ================================================== ================= 如何获取指定目录包含的文件和子目录 1. DirectoryInfo.GetFiles()：获取目录中（不包含子目录）的文件，返回类型为FileInfo[]，支持通配符查找； 2. DirectoryInfo.GetDirectories()：获取目录（不包含子目录）的子目录，返回类型为DirectoryInfo[]，支持通配符查找； 3. DirectoryInfo. GetFileSystemInfos()：获取指定目录下（不包含子目录）的文件和子目录，返回类型为FileSystemInfo[]，支持通配符查找； 如何获取指定文件的基本信息； FileInfo.Exists：获取指定文件是否存在； https://www.wendangku.net/doc/369139789.html,，FileInfo.Extensioin：获取文件的名称和扩展名； FileInfo.FullName：获取文件的全限定名称（完整路径）； FileInfo.Directory：获取文件所在目录，返回类型为DirectoryInfo； FileInfo.DirectoryName：获取文件所在目录的路径（完整路径）； FileInfo.Length：获取文件的大小（字节数）； FileInfo.IsReadOnly：获取文件是否只读； FileInfo.Attributes：获取或设置指定文件的属性，返回类型为FileAttributes枚举，可以是多个值的组合 FileInfo.CreationTime、https://www.wendangku.net/doc/369139789.html,stAccessTime、https://www.wendangku.net/doc/369139789.html,stWriteTime：分别用于获取文件的创建时间、访问时间、修改时间；