VBA Excel- How to select and open the latest added file in a folder

[JoharahF]

VBA excel-How to select and open the latest added file in a folder

 

[t0ny84]

Is the "latest added file" another Excel workbook? Or do you just want to open up the most recent file within a folder.

This code should open the file with which has most recently been added to a directory.

You will need to add a button to your worksheet and link it to this macro.

Sub OpenMostRecentFile()
    Dim folderPath As String
    Dim fileName As String
    Dim fileDate As Date
    Dim mostRecentDate As Date
    Dim mostRecentFile As String
    Dim file As Object
    
    ' Set the folder path
    folderPath = "C:\test\"
    
    ' Initialize variables
    mostRecentDate = DateSerial(1900, 1, 1)
    
    ' Check each file in the folder
    fileName = Dir(folderPath & "*.*")
    Do While fileName <> ""
        Set file = CreateObject("Scripting.FileSystemObject").GetFile(folderPath & fileName)
        fileDate = file.DateCreated
        
        ' Check if the file's creation date is more recent
        If fileDate > mostRecentDate Then
            mostRecentDate = fileDate
            mostRecentFile = fileName
        End If
        
        fileName = Dir
    Loop
    
    ' Open the most recent file
    If mostRecentFile <> "" Then
        Shell "explorer.exe " & folderPath & mostRecentFile, vbNormalFocus
    Else
        MsgBox "No files found in the folder.",
 vbExclamation
    End If
End Sub