7 个解决方案
#1
开始->运行->输入
tree /f /a C:\目录名称 >文件树sql.txt
tree /f /a C:\目录名称 >文件树sql.txt
#2
IO.Directory.GetFiles
http://msdn.microsoft.com/zh-cn/library/07wt70x2(VS.80).aspx
IO.Directory.GetDirectories
http://msdn.microsoft.com/zh-cn/library/c1sez4sc(VS.80).aspx
http://msdn.microsoft.com/zh-cn/library/07wt70x2(VS.80).aspx
IO.Directory.GetDirectories
http://msdn.microsoft.com/zh-cn/library/c1sez4sc(VS.80).aspx
#3
不行呀!急急!!!各位帮帮忙
#4
不行?怎么不行?自己代码怎么写的?最起码要贴出来,大家才能帮你看。
#5
我是想要用递归的方法把一个文件夹下的所有文件、文件夹都找出来!
#6
Public Class Form1
Private Sub GetAllFile(ByVal path As String)
Dim strDir As String() = System.IO.Directory.GetDirectories(path)
Dim strFile As String() = System.IO.Directory.GetFiles(path)
Dim i As Integer
If strDir.Length > 0 Then
For i = 0 To strDir.Length - 1
Debug.Print(strDir(i))
Next
End If
If strFile.Length > 0 Then
For i = 0 To strFile.Length - 1
Debug.Print(strFile(i))
Next
End If
If strDir.Length > 0 Then
For i = 0 To strDir.Length - 1
GetAllFile(strDir(i))
Next
End If
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
GetAllFile("e:\PIC")
End Sub
End Class
#7
谢谢!问题解决了!
#1
开始->运行->输入
tree /f /a C:\目录名称 >文件树sql.txt
tree /f /a C:\目录名称 >文件树sql.txt
#2
IO.Directory.GetFiles
http://msdn.microsoft.com/zh-cn/library/07wt70x2(VS.80).aspx
IO.Directory.GetDirectories
http://msdn.microsoft.com/zh-cn/library/c1sez4sc(VS.80).aspx
http://msdn.microsoft.com/zh-cn/library/07wt70x2(VS.80).aspx
IO.Directory.GetDirectories
http://msdn.microsoft.com/zh-cn/library/c1sez4sc(VS.80).aspx
#3
不行呀!急急!!!各位帮帮忙
#4
不行?怎么不行?自己代码怎么写的?最起码要贴出来,大家才能帮你看。
#5
我是想要用递归的方法把一个文件夹下的所有文件、文件夹都找出来!
#6
Public Class Form1
Private Sub GetAllFile(ByVal path As String)
Dim strDir As String() = System.IO.Directory.GetDirectories(path)
Dim strFile As String() = System.IO.Directory.GetFiles(path)
Dim i As Integer
If strDir.Length > 0 Then
For i = 0 To strDir.Length - 1
Debug.Print(strDir(i))
Next
End If
If strFile.Length > 0 Then
For i = 0 To strFile.Length - 1
Debug.Print(strFile(i))
Next
End If
If strDir.Length > 0 Then
For i = 0 To strDir.Length - 1
GetAllFile(strDir(i))
Next
End If
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
GetAllFile("e:\PIC")
End Sub
End Class
#7
谢谢!问题解决了!