應用 Excel 讀取檔案清單的屬性

要讀取一堆檔案屬性的方法，除了可以用 DOS 的 DIR 指令轉向外，也可以直接用 Excel ，直接將檔案的屬性讀出來。

其中，可能會用到 FileLen(), FileDateTime()
相關用法示例如下：

=====================
Row = 3         '資料寫入的啟始位置

MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\*.PDF")    ' 找尋第一個 *.pdf
Do While MyName <> ""    ' 執行迴圈。
    Cells(Row, 1) = "工程"
    Cells(Row, 2) = "承認書"
    Cells(Row, 3) = UCase(MyName)                   '寫入檔案名稱
    Cells(Row, 4) = Left(MyName, 11)                'fl_id
    Cells(Row, 5) = Mid(MyName, 10, 2)              'fl_ver
    Cells(Row, 6) = UCase(Right(MyName, 3))         'fl_ext
    Cells(Row, 7) = FileLen(MyPath & "\" & MyName)  'fl_size
    Cells(Row, 8) = "杭州"
    Cells(Row, 9) = "sz"
    Cells(Row, 10) = "N"
    Cells(Row, 11) = Format(FileDateTime(MyPath & "\" & MyName), "YYYY/MM/DD")
    Cells(Row, 12) = Format(FileDateTime(MyPath & "\" & MyName), "HH:MM:SS")
    MyName = Dir
    Row = Row + 1
Loop

MsgBox "檔案資料，已讀取完成。"