Opening unknown File names in known Folder

[Edmond]

Hello everyone,

I am trying to open a xls unknown file in a known folder. But with no success so far. I googled it and find this code:

Sub OpenFiles()Const FOLDER_NAME As String = "c:\Users\Edmond\Documents\Other"
Dim NextFile As String


NextFile = Dir(FOLDER_NAME & "*.xlsx", vbNormal)




If (Len(NextFile) > 0) Then
  MsgBox "found " & NextFile
End If


End Sub

Unfortunately, it doesn't work. Would you have an idea why?

Many thanks in advance for your help

[Jan Karel Pieterse]

There must be a pathseparator between FOLDERNAME and *.xlsx :

NextFile = Dir(FOLDER_NAME & "\*.xlsx", vbNormal)

[Edmond]

Great!! Thanks a lot!