Opgelost zoeken naar bestanden

[Egbert12345]

Beste forummers, heel lang geleden heb ik onderstaande macro gekregen, maar deze werkt niet meer. Wat ik graag wil is dat er word gezocht of er meerdere bestanden in mijn directorie staan met de naam CSV met een variabel naam (bijvoorbeeld CSV1 en CSV2. Als ik de macro test dan loopt die vast op Set fs

Hebben jullie suggesties?

groet Egbert

Sub Bestands_naam_met_Asterix_teken()
Set fs = Application.FileSearch
DitPad = ActiveWorkbook.Path
With fs
.LookIn = DitPad:
.Filename = "*CSV*"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
bestand = .FoundFiles(i): Workbooks.Open Filename:=bestand:
Next i
End If
End With
End Sub

 

[edmoor]

Application.FileSearch bestaat al een tijd niet meer.
Probeer dit eens:

Sub Bestands_naam_met_Asterix_teken()
    bst = Dir(ThisWorkbook.Path & "\*CSV*")
    While bst <> ""
        Workbooks.Open ThisWorkbook.Path & "\" & bst
        bst = Dir()
    Wend
End Sub

 

[Egbert12345]

Bedankt Edmoor, je bent weer geweldig.
groet Egbert

 

[Egbert12345]

Nog even een vraag Edmoor: als er nu maar 1 bestand wordt gevonden, kan dan worden teruggekoppeld welke bestandsnaam dat is? Ik wil een keuze inbouwen of dat betreffende bestand moet worden geopend.

 

[edmoor]

Maak er dan zoiets van:

Sub Bestands_naam_met_Asterix_teken()
    Pad = ThisWorkbook.Path
    bst = Dir(ThisWorkbook.Path & "\*CDO*")
    While bst <> ""
        Select Case MsgBox(Pad & "\" & bst, vbYesNoCancel, "Dit bestand openen?")
            Case vbYes:     Workbooks.Open Pad & "\" & bst
            Case vbNo:      bst = Dir()
            Case vbCancel:  Exit Sub
        End Select
    Wend
End Sub

 

[Egbert12345]

bedankt