Opening a file with VBA

[Snap Happy]

I am trying to open a file from within a macro where part of the file path is unknown ie.e D:Group Files\2011\20110824[unknown variable characters]\epst48.epd.

Does anyone know if there is such a thing as a wild card that can be used to indicate the variable characters that Excel will still recognise?

 

[Case_Germany]

Hi,

just take the API function "SearchTreeForFile". The function searches for a file - including all subfolders. Path and file name change. You write the path until the last known.

Option Explicit
Private Declare Function SearchTreeForFile Lib "imagehlp.dll" ( _
    ByVal RootPath As String, ByVal InputPathName As String, _
    ByVal OutputPathBuffer As String) As Long
Public Sub Main()
    Dim strFileName As String
    Dim strPath As String
    Dim strTMP As String
    strFileName = "2.xls" ' adapt
    strPath = "C:\Temp\" ' adapt
    strTMP = FindFile(strPath, strFileName)
    If strTMP <> "" Then
        MsgBox strTMP
    Else
        MsgBox "No!"
    End If
End Sub
Function FindFile(ByVal Path As String, ByVal File As String) As String
    Dim strFile As String * 1024
    If SearchTreeForFile(Path, File, strFile) Then
        FindFile = Left$(strFile, InStr(strFile, vbNullChar) - 1)
    Else
        FindFile = ""
    End If
End Function

 

[AlphaFrog]

deleted