回復 1#Hsieh
09.檔案操作範例 (Dir / Filesystem Object),十分受用,25000個file就3秒就完成,很想使用,改了多時,,對遞歸不太瞭解,不得要領,所以求你幫助,看能不能幫我改改:
1. folder要讓user選擇,我寫了個function,如下,基本可以使用
Function GetFolderName() As String
Dim fds As Object
Set fds = CreateObject("Scripting.FileSystemObject")
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "請選擇資料夾"
.AllowMultiSelect = False
.Show
GetFolderName = .SelectedItems(1) & "\"
End With
End Function
2. 我需要得到user選擇的資料夾里所有文件(包括子資料夾里)清單,用數列傳回Arr(1 to n),每個文件包括路徑和文件名
3. vb里可以寫幾句用資料夾名和文件名來篩選所需要的資料夾和所需要的文件.
自己實在改不好,請求幫手,謝謝你作者: fifi0217 時間: 2015-12-9 09:49
