【Excel VBA】FileSystemObjectを使いこなす！（実践編）　第二回目　フォルダ内の最新ファイルを取得する

Private Sub GetLatestFile1()

    'フォルダを選択する(FileDialog)
    'フォルダオブジェクトを取得する(GetFolder)
    '最新日を仮置きする
    'フォルダ内のファイルに対して更新日を確認する。もし更新日が最新日より後ならそのファイル名を取得する
    'フォルダ名＋ファイル名でファイルを開く
    
    Dim FD As FileDialog
    Dim FolderName As String
    Dim FSO As Scripting.FileSystemObject
    Dim objFolder As Scripting.Folder
    Dim objFile As Scripting.File
    Dim LatestFile As Scripting.File
    Dim LatestDate As Date
    
    '
    'フォルダを選択する(FileDialog)
    Set FD = Application.FileDialog(msoFileDialogFolderPicker)
    
    'フォルダオブジェクトを取得する(GetFolder)
    If FD.Show = True Then
        FolderName = FD.SelectedItems(1)
        Set FSO = New Scripting.FileSystemObject
        Set objFolder = FSO.getFolder(FolderName)
    Else
        Exit Sub
    End If
    
    '最新日を仮置きする
    LatestDate = "1900/1/1"
    
 'フォルダ内のファイルに対して更新日を確認する。もし更新日が最新日より後ならそのファイルオブジェクトを取得する
    For Each objFile In objFolder.Files
        If LatestDate < objFile.DateLastModified Then
            Set LatestFile = objFile
            LatestDate = LatestFile.DateLastModified
        End If
    Next objFile
    
    'Workbooks.Openでファイルを開く
    Workbooks.Open LatestFile.Path
    
    Set FSO = Nothing
    
End Sub

    Dim FD As FileDialog
    Dim FolderName As String
    Dim FSO As Scripting.FileSystemObject
    Dim objFolder As Scripting.Folder
    Dim objFile As Scripting.File
    Dim LatestFile As Scripting.File
    Dim LatestDate As Date

     'フォルダを選択する(FileDialog)
    Set FD = Application.FileDialog(msoFileDialogFolderPicker)
    
    'フォルダオブジェクトを取得する(GetFolder)
    If FD.Show = True Then
        FolderName = FD.SelectedItems(1)
        Set FSO = New Scripting.FileSystemObject
        Set objFolder = FSO.getFolder(FolderName)
    Else
        Exit Sub
    End If

    '最新日を仮置きする
    LatestDate = "1900/1/1"
    
 'フォルダ内のファイルに対して更新日を確認する。もし更新日が最新日より後ならそのファイルオブジェクトを取得する
    For Each objFile In objFolder.Files
        If LatestDate < objFile.DateLastModified Then
            Set LatestFile = objFile
            LatestDate = LatestFile.DateLastModified
        End If
    Next objFile

    'Workbooks.Openでファイルを開く
    Workbooks.Open LatestFile.Path