現在遞回和檔案夾都可以了
但是
現在這個代碼會用遞回把這個檔案夾都遞回完之后，放到一個組里
再用 fileinfo.filefull回呼全部路徑
也就是它在遞回的時候，我的程式無法比較檔案資訊
也許第16個就是我要的
但是它繼續遞回
直到全部都遞回完之后再回呼
有沒有辦法讓它遍歷一個回呼一個呢？
若要我的那個錯誤的代碼我會發，我現在是手機發的，各位幫忙解決下，我只有20分了，謝謝！十萬火急！
uj5u.com熱心網友回復：
用yield return 回傳IEnumerable<string>uj5u.com熱心網友回復：
Public 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 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
這個不行，1.連逐個輸出檔案完整路徑都不行了
2.還是慢，我搜全盤檔案不得上天了
我是這個，但是很慢
Public Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
Dim timeBegin As Long = GetTickCount()
Dim dir As New DirectoryInfo("D:\")
Dim finfo() As FileInfo = dir.GetFiles("*", SearchOption.AllDirectories)
For Each fChild As FileInfo In finfo
Console.WriteLine(fChild.FullName)'輸出
Next
uj5u.com熱心網友回復：
Directory.EnumerateDirectoriesDirectory.EnumerateFiles
用這些
uj5u.com熱心網友回復：
C#的這個你們看過了嗎你這個還是太慢，有沒有同步的方法呢，就是每遍歷一個檔案，就回傳一次全路徑檔案名
uj5u.com熱心網友回復：
謝謝大家，我自己C#轉換的一個函式，分享一下！逐步逐一檔案Public files
Public files2
Public Sub AddDirFiles(ByVal dir As String)
On Error Resume Next
Dim di As DirectoryInfo = New DirectoryInfo(dir)
Dim fis As FileInfo() = di.GetFiles("*")
For Each fi As FileInfo In fis
files = fi.FullName
If files = files2 Then
Else
Console.WriteLine(files)
End If
files2 = files
Next
Dim dis As DirectoryInfo() = di.GetDirectories()
For Each item As DirectoryInfo In dis
AddDirFiles(item.FullName)
Next
End Sub
uj5u.com熱心網友回復：
可以在陳述句中直接進行比較啊，另外要加上停止遞回的條件。下面是我簡單寫個例子，供你參考：
dim bStop=false'設定一個停止遞回的全域變數
Public Sub GetAllFile(ByVal path As String，ByVal strFindInfo as string)
Dim strDir As String() = System.IO.Directory.GetDirectories(path)
Dim strFile As String() = System.IO.Directory.GetFiles(path)
Dim i As Integer
Dim strTemp as string
if bStop=true then exit sub
If strFile.Length > 0 Then
For i = 0 To strFile.Length - 1
strTemp=strFile(i)
if io.file.GetCreationTime(strTemp)=strFindInfo then'這里按檔案生成時間進行比較，可以根據實際需要修改
bStop=true
Debug.Print(strTemp)'只輸出需要的內容
exit sub
end if
Next
End If
If strDir.Length > 0 Then
For i = 0 To strDir.Length - 1
GetAllFile(strDir(i))
Next
End If
End Sub
更快的遞回要用多行程，這個我不會寫 :-(
uj5u.com熱心網友回復：
多了解一下 #1 樓 #4 樓所說的“迭代器”設計模式。你沒有一個代碼按照迭代器模式編程。uj5u.com熱心網友回復：
你寫的是 vb.net 代碼，我寫 vb.net 稍微有一點點兒“感覺不習慣”（實際上 .net 下不同語言只是體驗不同，沒有大的區別），所以就不舉例了。迭代器模式，以適用于迭代的語法，例如 foreach ....in ...... 的語法，對可列舉的資料源進行“延遲查詢、迭代（注意！）、隨時可提前（注意！）中斷查詢。
uj5u.com熱心網友回復：
唉，摸索著給你寫個 vb.net 的例子吧。雖然說 .net 的語言能力一樣，但是畢竟臨時換種從來不用的語言，寫這類代碼，還是需要花幾十分鐘時間習慣的。Imports System.IO
Module Module1
Sub Main()
Dim cnt As Integer = 0
Dim result = Search(New DirectoryInfo("c:\"), "*.*") _
.Where(Function(file)
Return file.Name.StartsWith("ab")
End Function) _
.Take(20)
For Each file In result
cnt += 1
Console.WriteLine("{0} -- {1}", cnt, file.FullName)
Next
Console.WriteLine("按任意鍵結束")
Console.ReadKey()
End Sub
Iterator Function Search(dir As DirectoryInfo, pattern As String) As IEnumerable(Of FileInfo)
For Each file In dir.EnumerateFiles(pattern)
Yield file
Next
For Each subDir In dir.EnumerateDirectories()
For Each file In Search(subDir, pattern)
Yield file
Next
Next
End Function
End Module
uj5u.com熱心網友回復：
呼叫everything的dll
uj5u.com熱心網友回復：
EnumerateFiles 本身就有遍歷所有子目錄的引數
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/19514.html
標籤：VB.NET