HTGeorge

我是這樣用的
Dim TPP(300, 2) As String
            Dim myFolder1 As String, myFile1 As String
                       myFolder1 = "D:\查詢用資料庫\"
                       myFile1 = Dir(myFolder1)  ‘指定目錄
                J = 0
                Do While myFile1 <> ""
                    If myFile1 Like "*.xlsm" Or myFile2 Like "*.XLSM" Then
                        TPP(M, 0) = "舊版"
                        TPP(M, 1) = myFile1
                        TPP(M, 2) = " D:\查詢用資料庫\" & myFile1
                        M = M + 1
                    End If
                    myFile1 = Dir()
                    J = J + 1
                Loop
            List_item.List() = TPP  ‘List_item 為列表物件

millerch

回復 10# HTGeorge


    寫得很簡潔，謝謝大大