Application Path veranderd

[Jan Van Haaren]

Hoi,

Weer een vraagje van mij . Ik heb een klein Visual Basic programmaatje gemaakt met daarop een commandbutton waarmee je een bestand kan selecteren. Dat werkt via Common Dialog. Wanneer ik dan later in het programmaatje App.Path gebruik, heeft die de waarde naar de directory waarin het bestand geselecteerd is en niet naar de directory waarin het programmaatje staat.

Dank bij voorbaat. Groeten, Jan

 

[aartvg]

ja dat klopt
al maak jij een snel koppeling dan is app.pat die plaats waar de snelkoppeling staat
je zouw ik jouw vb programma de eksakte plaats neer kunnen zeteen weet het programma zig bevind
of in het register een plek aan maken waar je in zet waar hij staat
goerten aart

 

[vaat]

zip het even en post je code is ..

of plak het hier ...

 

[Jan Van Haaren]

Private Sub cmdOpenPic1_Click()
Dim pic1 As String

    With dlgCommonDialog
        .DialogTitle = "Choose your file"
        .CancelError = False
        .Filter = "BMP|*.bmp"
        .ShowOpen
        If Len(.FileName) = 0 Then
            Exit Sub
        End If
        pic1 = .FileName
    End With
    
picShow1.Picture = LoadPicture(pic1)

eFile = App.Path + "\" + "adbea0.BMP"
FileCopy pic1, eFile
End Sub

Private Sub cmdInstall_Click()
Shell ("install adbea.fsh")
End Sub

Met de commandbutton selecteer je gewoon een BMP file en die wordt dan als adbea0.bmp gekopieerd naar de directory van de applicatie. "install.exe" is een klein extern programmaatje dat het bestand adbea0.bmp importeert in een ander bestand, maar dat is nu niet echt van belang. Het probleem is dat App.Path veranderd is naar de map waarin het BMP bestand eerst stond. Dus laat ons zeggen dat als ik de BMP selecteer in de root van mijn HD (C:\test.bmp), dan gaat hij trachten C:\install.exe te openen ipv het bestand install.exe in de directory van mijn programmaatje.

Ik hoop dat je het begrijpt en alvast bedankt voor meedenken :thumb:

 

[aartvg]

ik zie nergens
Shell App.Path & "install.exe"
om het programma install.exe te starten

 

[Jan Van Haaren]

Geplaatst door aartvg
ik zie nergens
Shell App.Path & "install.exe"
om het programma install.exe te starten

Zelfs dan werkt het niet. Dan heeft de waarde App.Path nog altijd het path naar de dir waarin je het bestand selecteert... Toch bedankt.

 

[aartvg]

dan zouw ik een sting maken waar je app.path in zet bij het op starten
mechein is dat een op lossieng

 

[vaat]

vreemd bij mij doet hij het wel gewoon. Heb je het programma wel opgeslagen ?

maar goed doe dan dit :

Private Sub cmdOpenPic1_Click()
Dim pic1 As String
Dim progPath As String

progPath = App.Path

    With dlgCommonDialog
        .DialogTitle = "Choose your file"
        .CancelError = False
        .Filter = "BMP|*.bmp"
        .ShowOpen
        If Len(.FileName) = 0 Then
            Exit Sub
        End If
        pic1 = .FileName
    End With
    
picShow1.Picture = LoadPicture(pic1)

eFile = progPath + "\" + "adbea0.BMP"
FileCopy pic1, eFile
End Sub