Een map met afbeldingen open (VB6)

[satriano]

dag iedereen

Een map/bestand open met met commodialog is geen probleem.
Maar wat il zoek is een beetje anders:

Ik steek in een setup de hoofdprogramma bv TEST.exe + een tweede map bv FOTO, gevuld met afbeeldingen. Om die map te openen heb ik een button geplaats.

Als iemand anders het setup uitvoert dan kan ik niet weten in welke map TEST.exe en de map FOTO worden geplaats.

Mijn vraag is:

Welke syntax/code moet ik gebruiken in mijn code onder die button (dmv commondialog) om te zorgen dat als iemand dan die button drukt toch altijd de map FOTO wordt geopend, ongeacht in welke directory bij setup is geplaats, samen natuurlijk met TEST.exe?

satriano

 

[satriano]

ik heb zelf opgelost, zo:

Private Sub Command1_Click()
Dim Slash As String
If Right(App.Path, 1) <> "\" Then Slash = "\"
CommonDialog1.InitDir = App.Path & Slash & "foto"
CommonDialog1.ShowOpen

End Sub

toch bedankt.
satriano