Public Sub Search_file_in_folder(folder_name As String) '遍歷指定檔案夾下的所有文本檔案
Dim Files() As String
Dim a As Integer
FileType = "*.*"
sPath = Dir(folder_name & FileType) '查找第一個檔案
Do While Len(sPath) '回圈到沒有檔案為止
a = a + 1
ReDim Preserve Files(1 To a)
Files(a) = path & sPath '將檔案目錄和檔案名組合,并存放到陣列中
sPath = Dir '查找下一個檔案
DoEvents '讓出控制權
Loop
End Sub
uj5u.com熱心網友回復：
字串陣列類變數或者全域變數Files字串陣列保存了找到的結果;呼叫的時候引數folder_name所對應的字串一定要以"\"為結尾,比如"c:\";
uj5u.com熱心網友回復：
大神能加一下我q嗎？我還有一個問題希望能解決1198745180
uj5u.com熱心網友回復：
就是想問一下，為什么files(a)存不下地址只能存下檔案名
uj5u.com熱心網友回復：
可以存下地址的:Files(a) = path & sPath
改成
Files(a) = folder_name & sPath
應該就可以了.
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/37011.html
標籤：VB基礎類