(?) find 'Path'

CurDir()

Hej.

Jelzin101 tager fejl; når en VB-applikation startes via en genvej, kan CurDir udmærket indeholde den sti pointeren sidst stod på. 
Du skal anvende:  App.Path

Husk hvis du vil henvise til andre filer på App.Path at der skal være backslash mellem.   

Open App.Path & "\dinfil.txt" for input......

M.v.h.  Jørn

App.Path henviser til det biblotek hvor din exe/project er, du behøver ikke arbejde med variabler når du bruger den.....

men du kan godt, det gøres sådan her:

Dim myPath AS String
Dim myFile AS String
Dim FilePath AS String

myPath = App.Path & "\undermappe\" 'kan være du har en undermappe der hedder pics
myFile = Combo1.Text 'Hvis du vælger filnavn i en combobox
FilePath = myPath + myFile

/Tubber

Dim progpath as string

Progpath = App.Path

'og så kan du sætte lidt kode ind som f.esk:
Private Sub Form_Load()
MsgBox progpath
End Sub

Private Sub Command1_Click()
Jaja, det er altsammen meget godt, men der er jo forskel på c:\ og c:\vb
Also voila:

If Right(App.Path, 1) <> "\" Then
hent$ = App.Path & "\indhold.txt"
Else
hent$ = App.Path & "indhold.txt"
End If
end sub

Så har vi vist også været alle muligheder igennem :O)

Happy NewYear !
- Mikker

Meget takk for alle svar.
Det er alltid litt vansklig med pointsdeling ...
... så, ... jeg skrudde opp litt ... :)

Godt NyttÅr Alle Sammen!

Hilsen Terra

Siger mange tak og i lige måde :O)

Ilm

Takker :O)

- Mikker