millerch

¦^´_ 2# Andy2483
ÁÂÁ«e½ú¦^ÂÐ
§ÚVBA
' «Ø¥ß¥Ø¿ýª«¥ó
Set oFolder = oFSO.GetFolder("D:\Dropbox\Swap\")
§Ú¤£ª¾¦p¦ó²£¥ÍÃþ¦ü
Set oFolder = oFSO.GetFolder("D:\Dropbox\Swap\*.xlsmªº®ÄªG")   

§Úµ{¦¡¦p¤U
Sub FM()
Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
Dim i, j As Integer
RegexKill "D:\Dropbox\Swap\", "^[~]+.xlsm"
' «Ø¥ß FileSystemObject ª«¥ó
Set oFSO = CreateObject("Scripting.FileSystemObject")
' «Ø¥ß¥Ø¿ýª«¥ó
Set oFolder = oFSO.GetFolder("D:\Dropbox\Swap\")
i = 4
j = 3
' ¥H°j°é¦C¥X©Ò¦³ÀÉ®×
For Each oFile In oFolder.Files
    If Left(oFile.name, 1) <> "~" Then
    Cells(i, j) = oFile.name              ' ÀɮצWºÙ
    j = j + 1
    'Cells(i, j) = oFile.Path              ' Àɮ׸ô®|
    ' j = j + 1
    Cells(i, j) = oFile.Size              ' Àɮפj¤p¡]¦ì¤¸²Õ¡^
     j = j + 1
    'Cells(i, j) = oFile.Type              ' ÀÉ®×Ãþ«¬
    ' j = j + 1
    Cells(i, j) = oFile.DateCreated       ' Àɮ׫إ߮ɶ¡
     j = j + 1
    'Cells(i, j) = oFile.DateLastAccessed  ' ÀɮפW¦¸¦s¨ú®É¶¡
    ' j = j + 1
    Cells(i, j) = oFile.DateLastAccessed  ' ÀɮפW¦¸­×§ï®É¶¡

    i = i + 1
    j = 3
    End If

Next oFile
End Sub

Andy2483

¦^´_ 1# millerch


    ÁÂÁ«e½úµoªí¦¹¥DÃD
GetExtensionName ¤èªk ,·|¶Ç¦^¥]§t¸ô®|¤¤³Ì«á¤@­Ó¤¸¥óªº°ÆÀɦWªº¦r¦ê¡C
https://learn.microsoft.com/zh-tw/office/vba/language/reference/user-interface-help/getextensionname-method