Hallo SoftAid,
heb de oplossing gevonden.
heb de bn gesplitst met een mid$ vanaf positie 29, zodat alleen de 3dir en 4dir zichtbaar worden en heb die in de vairabele SUBDIR geplaatst.
dir 1 = pdfbestanden
dir 2 = klantnummer
dir 3 = een getal tussen 1 en 9999
dir 4 = file1.filenaam
dir 3 en dir 4 zijn variabele gegevens.
Hieronder het hele prog.
Groetjes Math en bedankt voor je hulp
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
File1.Path = Dir1.Path
If Right$(File1.Path, 1) <> "\" Then
BN = File1.Path + "\" + File1.FileName
SUBDIR = Mid(BN, 29, 22)
Shell "d:\adobereader\Reader\AcroRd32.exe c:\PDFBESTANDEN\klantnummer\" & SUBDIR, 4
Else
BN = File1.Path + File1.FileName
End If
End Sub