How do I get a folder to open with latest file.

[ghrek]

Hi

I have a folder that has approx 14 workbooks in and a shortcut button on a different workbook .

Im trying to find a way that I can click on the shortcut button and then it will go into the folder concerned and then open the latest file that has been created. I was advised that it poss open latest file that amended but may not be the latest one created but I dont need that and need the latest file in the folder regardless of when others amended or updated.

Can anyone assist?

Thanks

 

[steve the fish]

This should open the latest created, regardless of modifications, xls file in your folder.

Dim fso As FileSystemObject, fldr As Scripting.Folder, fle As Scripting.File
Dim dte As Double, myFile As File, wb As Workbook

Set fso = New FileSystemObject
Set fldr = fso.GetFolder("C:\Users\Steve\Desktop\New Folder")
For Each fle In fldr.Files
    If InStr(LCase(fle.Name), ".xls") > 0 Then
        If fle.DateCreated > dte Then
            Set myFile = fle
        End If
    End If
Next fle
If Not myFile Is Nothing Then Set wb = Workbooks.Open(myFile)

 

[ghrek]

Thanks for that.

It comes up with complie error- User defined tyoe no defined.

 

[steve the fish]

Go to the vba window and check the checkbox for the Microsoft scripting runtime reference. Think its in tools-references off top of head