document wordt niet gevonden

[JEPEDEWE]

Beste allemaal,

In volgende code ga ik op zoek naar een bepaald document

If derde_betaler = "Ja" Then
    CreateObject("shell.application").Namespace("G:\").Items.Item(derde_naam & "_3de_jan" & Year(Date) & ".pdf").InvokeVerb "print"
    DoCmd.OpenReport ("derde_betaler_mutualiteit")
End If

Stel dat het gevraagde document niet gevonden wordt, hoe krijg ik dat verwerkt in mijn code zodat er een msgbox getoond wordt waarin dit gerapporteerd wordt

Bedankt

JP

 

[OctaFish]

Waarom gebruik je niet het DIR commando? Lijkt mij een stuk simpeler. Ik gebruik zoiets: (wel omgekeerd aan wat jij doet, maar dat is simpel op te lossen)

Dim sFile As String, sDoc As Variant
    sFile = BestandOpzoeken
    If sFile = "Annuleren" Then Exit Sub
    If Not Dir(sFile) = "" Then
        If InStr(1, sFile, "") = 0 Then Exit Sub
        sDoc = Split(sFile, "")
        Me.kopie_cv = sDoc(UBound(sDoc))
        FileCopy sFile, Me.DossierPad & "" & sDoc(UBound(sDoc))
    Else
        MsgBox "Je hebt geen bestand geselecteerd", vbCritical
    End If

Daar zit wel een functie bij om een bestand op te zoeken, maar daar gaat het nu niet om.