søg efter en xml

Jeg har nogle stumper kode liggende, som søger efter filer her: http://www.makeiteasy.dk/eksempler/VBFunktioner.htm

De skulle kunne hjælpe dig

det er så "Find placering af filer" jeg skal bruge , men jeg kender jo ikke hvad min filer hedder 100%
jeg ved at min stil er c:test/test1
og jeg ved at filen er typen xml
og jeg ved at den starter med "main"  ' dvs den kan hedder main1.xml, eller main2.xml osv.

hvor vil du redigere de her opslysninger  ?:




Public Function FindFiler(strFilename As String, strDrive As String, Optional ReturnAll As Boolean = True) As String

Dim varItm As Variant
Dim strFiles As String
Dim strTmp As String
Dim strResult As String
   
    If InStr(strFilename, ".") = 0 Then
        MsgBox "Du skal angive hele filnavnet!", vbCritical, "Extension mangler!"
        Exit Function
    End If
    'Hvis : mangler
    If InStr(strDrive, ":") = 0 And Len(strDrive) = 1 Then
        strDrive = strDrive & ":"
    End If
   
    With Application.FileSearch
        .NewSearch
        .LookIn = strDrive
        .SearchSubFolders = True
        .Filename = strFilename
        .MatchTextExactly = True
        .FileType = 2 'msoFileTypeAllFiles
        If .Execute > 0 Then
            For Each varItm In .FoundFiles
                strTmp = ExtractFileName(varItm)
                If strFilename = strTmp Then
                    If ReturnAll Then
                        strResult = strResult & varItm & ";"
                    Else
                        FindFiler = varItm
                        Exit Function
                    End If
                End If
            Next varItm
            strResult = Left(strResult, Len(strResult) - 1)
            FindFiler = strResult
        End If
    End With
End Function

den er lidt værre...den må jeg tænke over....måske kan andre bidrage?

Prøv denne:

Public Function FindFiler(strFilename As String, strDrive As String, Optional ReturnAll As Boolean = True) As String

Dim varItm As Variant
Dim strFiles As String
Dim strTmp As String
Dim strResult As String
   
    'Hvis : mangler
    If InStr(strDrive, ":") = 0 And Len(strDrive) = 1 Then
        strDrive = strDrive & ":"
    End If
   
    With Application.FileSearch
        .NewSearch
        .LookIn = strDrive
        .SearchSubFolders = True
        .Filename = strFilename
        .MatchTextExactly = True
        .FileType = 2 'msoFileTypeAllFiles
        If .Execute > 0 Then
            For Each varItm In .FoundFiles
                strTmp = ExtractFileName(varItm)
                If strTmp Like strFilename Then
                    If ReturnAll Then
                        strResult = strResult & varItm & ";"
                    Else
                        FindFiler = varItm
                        Exit Function
                    End If
                End If
            Next varItm
            strResult = Left(strResult, Len(strResult) - 1)
            FindFiler = strResult
        End If
    End With
End Function

Herefter kan du spørge således:

Findfiler("Mail*.xml", "C:", True)

hvad mener du med at spørge ?

når jeg kalder det ved : Findfiler("Mail*.xml", "C:", True) så siger den syntakst error

i debug-vinduet (Ctrl+G) kan du skrive således:

?Findfiler("Mail*.xml", "C:", True)

den melder

compile error:
Expected:list separator )

det her virker hellere ikke
Findfiler("Mail*.xml", "C:", = True)

Er det bare mig der fejlfortolker dit spørgsmål?

For mig ser det ud som du bare skal bruge en CommonDialog til at finde din fil (altså en helt normal standard Åbn funktion, hvor du får returneret stien til den fil du markerer).

Er jeg helt forkert på den?