VBA フォルダー内ファイルの更新日時を一括取得

FileSystemObjectでフォルダー内ファイルの更新日時を一括取得

Sub test()
 ’　FileSystemObjectでフォルダー内ファイルの更新日時を一括取得

Dim FolderPath  As String
Dim FSO         As Object
Dim FileName    As Object
Dim FileTime    As String
Dim fileName2 As String

 'ファイルシステムオブジェクトをセットする
Set FSO = CreateObject("Scripting.FileSystemObject")

FolderPath = "C:\Users\Admin\Desktop\test" 'フォルダを指定する

 '取得したフォルダ内のファイルをループ
For Each FileName In FSO.GetFolder(FolderPath).Files
    ' パスを除いたファイル名を取得
    fileName2 = Replace(FileName, FolderPath & "\", "")
    
    FileTime = FileDateTime(FileName)
    Debug.Print fileName2 & "　:" & FileTime
    
Next

End Sub

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

参考記事

『VBA　FileDateTime関数でファイルの更新日時を取得』

『VBA 文字列の置き換え　Replace関数』

『VBA　ファイルの存在を確認』

『VBA　Killステートメントでフアイルを削除』

『VBA DateSerial関数 日付データを求める　』

『VBA　現在時刻から年月日時分（yyyymmddhhmm）を取得』