用VBA列出檔案所有資訊

以下VBA會列出所有檔案資訊

(不論是否該檔有沒有開啟,都可以得到正確檔案資訊)

Sub getDetailsOfFile()
Dim myShl As New Shell
Dim curFolder As Folder
Dim theItm As FolderItem
Dim Fn As Variant
Dim theTitle As String
Dim outStr As String
Dim i As Long
Fn = Application.GetOpenFilename
If Fn = "False" Then Exit Sub
Set curFolder = myShl.Namespace(CurDir)
Fn = Split(Fn, "\"): Fn = Fn(UBound(Fn))
With curFolder
theTitle = .GetDetailsOf(0, i)
Do While theTitle <> ""
outStr = outStr & theTitle & ": " & vbTab & .GetDetailsOf(.Items.Item(Fn), i) & vbCrLf
Debug.Print i & .GetDetailsOf(.Items.Item(Fn), i)
i = i + 1
theTitle = .GetDetailsOf(0, i)
Loop
End With
Set myShl = Nothing
MsgBox outStr
End Sub

請設定引用項目Microsoft Shell Controls and Automation
VBE=>工具=>設定引用項目=>勾選Microsoft Shell Controls and Automation

VBE Hot-Key(熱鍵)

VBE Hot-Key

Function - 資訊

資訊 CELL CELL(info_type,reference) 傳回有關儲存格格式、位置或內容的資訊
資訊 COUNTBLANK COUNTBLANK(range) 計算區域中空儲存格的個數
資訊 ERROR.TYPE ERROR.TYPE (error_val)    傳回對應到錯誤類型的數字
資訊 INFO INFO (type_text) 傳回有關目前操作環境的資訊
資訊 ISBLANK ISBLANK (value) 如果值空白，則傳回 TRUE。
資訊 ISERR ISERR (value) 如果值為除 #N/A 以外的錯誤值，則傳回 TRUE。
資訊 ISERROR ISERROR (value) 如果值為任何錯誤值，則傳回 TRUE。
資訊 ISEVEN ISEVEN (number) 如果數為偶數，則傳回 TRUE。
資訊 ISLOGICAL ISLOGICAL (value) 如果值為邏輯值，則傳回 TRUE。
資訊 ISNA ISNA (value) 如果值為 #N/A 錯誤值，則傳回 TRUE。
資訊 ISNONTEXT ISNONTEXT (value) 如果值不是文字，則傳回 TRUE。
資訊 ISNUMBER ISNUMBER (value) 如果值為數字，則傳回 TRUE。
資訊 ISODD ISODD (number) 如果數字為奇數，則傳回 TRUE。
資訊 ISREF ISREF (value) 如果值為參照，則傳回 TRUE。
資訊 ISTEXT ISTEXT (value) 如果值為文字，則傳回 TRUE。
資訊 N N(value) 傳回轉換為數字的值
資訊 NA NA( ) 傳回錯誤值 #N/A
資訊 TYPE TYPE(array) 傳回表示值的資料類型的數字