Hej!

Efter att flyttat över min vb-programmering från en dator med win2000 till en annan med winXP vill inte min Path-fil bli funnen fast den ligger i samma mapp som övriga filer. Provade göra ett helt nytt program och då uppstår samma problem.
Nu är det ett tag sedan jag programmerade så jag kan ha glömt något, men vad?
Letat i böcker och i vb-forum nybörjare och allmänt men sökningen gav inget resultat.
Vad kan jag ha missat? Jag har letat och funderat. Tips mottages.

'*** Path.text innehåller bara databasadressen som lyder:

'*** C:\Databaser\LoggBok.mdb

'*** i den nya datorn


'**********************************************************************
'*** Vid uppstart av program ska av koppling till databas och val av DB ske ***
'*** För att lägga in databasens adress som textdokument i programmet ***
'*** används denna kod. Den anropas av dialDBadress och dialKollaDBadress. ***
'**********************************************************************

'Ange ny databasadress som textsträng vid uppkoppling

Public Function GetFromFile() As Byte
Dim strGet As String
Dim FD As Integer
FD = FreeFile
Open "Path.txt" For Input As FD
Do While Not EOF(1)
Input #FD, strGet
MsgBox strGet
dialDBadress.txtDBadress.Text = strGet
Loop
Close #FD
End Function

'Se vilken vald databas som kopplas mot programmet

Public Function MoveToFile() As Byte
Dim strGive As String
Dim FD As Integer
FD = FreeFile
Open "Path.txt" For Output As FD
Print #FD, dialDBadress.txtDBadress.Text
Close #FD

End Function

Testa:
<code>
Public Sub GetFromFile()
Dim strGet As String
Dim FD As Integer
FD = FreeFile
Open App.Path & "\Path.txt" For Input As FD
Do Until EOF(FD)
Input #FD, strGet
MsgBox strGet
dialDBadress.txtDBadress.Text = strGet
Loop
Close #FD
End Function

'Se vilken vald databas som kopplas mot programmet

Public Sub MoveToFile()
Dim strGive As String
Dim FD As Integer
FD = FreeFile
Open App.Path & "\Path.txt" For Output As FD
Print #FD, dialDBadress.txtDBadress.Text
Close #FD
End Function
</code>

Tusen tack!

Open App.Path & "\Path.txt" For Input As FD
Do Until EOF(FD)

gjorde susen

verkar nyttigt vandra mellan olika OS ibland så man ser vad som kan spöka i koderna

och man borde VB:a oftare än jag gör, man blir ringrostig

Nu ska jag avsluta tråden, det var därför jag gick in i Forumet idag.