Keskustelu: Koodit: VB6: Hakemiston selville saanti VB:ssä

Joskus tarvitsee saada oman ohjelman hakemisto selville, se ei ole todellakaan vaikeaa, vain yksi rivi riittää. Tämä koodivinkki toimii ainakin Visual Basicin versiossa 5

Private Sub Form_Load()
  hakemisto = App.Path
  Print hakemisto
End Sub

Toimii tietääkseni kaikissa versioissa.

Kyllä ainakin mulla toimii VB 3 ja VB 6 -versioissa.

monimutkaisuuden riemuvoitto.

Ton voisi arvata :)

ei kyl hyvin me jos ei tota tienny =D

niin ja ei taida toimia vb1 (dos = melkein qb) =)

Lähettäjä: Rykker
Lähetysaika: 26.2.2002 22:58:35
Kommentti: ei kyl hyvin me jos ei tota tienny =D
----------------------------------------
Mää en esim tienny!!

Jeee. Maailman pisin koodi!

Ite arvasin kun vb6 näyttää lähimmän koodin listassa ja valitsin sieltä...

Itse asiassa tuo on parempi tehdä näin, koska tuo ei toimi, jos asentaa aseman juureen:

Dim AppPath As String

//Formin lataus
AppPath = App.Path
If Right$(AppPath, 1) <> "\" Then
    AppPath = AppPath & "\"
End If

Näköjään julkaisematon