Hej Gubbor och gummor och alla andra.

Det är så att jag har en form (kalla den form1) och en textbox i den, texten jag skriver i den textboxen, sparas i en fil på HD, (text1.txt) Jag har sedan en form till (kalla den form2) där jag har en textbox där jag vill att filen, texten som är sparad i filen skall visas när form2 laddas. Hur gör jag? Tacksam för svar...

vad menar du med sparas i en fil på HD?
//Petter

FILEN SPARAS PÅ HÅRDDISKEN, SEDAN VILL JAG ATT VB SKALL LÄSA IN DEN NÄR FORMEN LADDAS. FÖRSTÅR NI???

testa detta om det är så här du vill ha det:

'I första formen:

'källkod:

Option Explicit

Private Sub Command1_Click()
Dim FileNum As Long
FileNum = FreeFile
Open App.Path & "\text.txt" For Output As FileNum
Print #FileNum, Text1.Text
Close #FileNum

End Sub

Private Sub Command2_Click()
Form2.Show
End Sub

'behövs till:
'två commandbuttons
'en textbox


I andra formen:

'Källkod:

Option Explicit

Private Sub Form_Load()
Dim FileNum As Long
Dim strFil As String
FileNum = FreeFile
If Not Len(Dir(App.Path & "\text.txt")) = 0 Then
Open App.Path & "\text.txt" For Input As FileNum
Input #FileNum, strFil
Close #FileNum
Text1.Text = strFil
End If
End Sub

'behövs till:
en textbox

du kan ju testa detta exempel och meddela om det är ungefär så här du ska ha?
meddela om det är så annars får jag fila lite till på källkoden.

uppskattas om du kan svara på inlägget innan kl 01:00 för jag har skola imorgon.
//Petter

Tackar,....det verkar fungeare bra...jag filar vidare....tackar så mycket för hjälpen....

Varsågod, alltid bra när man kan hjälpa till med något. :-)
//Petter

Petter...något som inte stämmer som jag inte får knas på....skriver jag fem rader i textbox, trycker på knappen spara (filen sparas på Hårdisken) och sedan när jag går in i den andra formen så kanske bara 2 rader syns, ibland och ibland bara 2 ord...vad är fel...jag har kollat men hittar inget fel....använder din kod.

hmm... ska testa ihop nånting på ca 5 min från detta inläggets tid kommer strax med en lösning hoppas jag.
//Petter

Puuuh det tog inte ens 5 min... jag var lite för snabb:-)
Testa detta och se om det är så här du vill ha. Det ska skrivas i form2.

Option Explicit

Private Sub Form_Load()
Dim FileNum As Integer
Dim strFil As String
FileNum = FreeFile

If Not Len(Dir(App.Path & "\text.txt")) = 0 Then
Open App.Path & "\text.txt" For Input As FileNum
While Not EOF(FileNum)
Input #FileNum, strFil
Text1.Text = Text1.Text & strFil & vbCrLf
Wend
Close #FileNum

End If
End Sub

//Petter

Fungerar bättre....eller bra presic som jag ville...tack så mycket för hjälpen...

Hej
Undrar varför Ni ofta skriver så här
While Not EOF(FileNum)
Input #FileNum, strFil
Text1.Text = Text1.Text & strFil & vbCrLf
Wend

En helt onödig Not negation.
Undrar varför överhuvudtaget While Wend finns kvar.

Do Until EOF(FileNum)
Input #FileNum, strFil
Text1.Text = Text1.Text & strFil & vbCrLf
Loop

En kommentar i all vänlighet bägge exempeln fungerar bra.
Mvh
Sven

Håller fullständigt med Sven!

Alltid glad att hjälpa till :-)

Till Sven:
Jag vet att båda fungerar, men det är:

While Not EOF(filenum)
Input #FileNum, strFil
Text1.Text = Text1.Text & strFil & vbCrLf
Wend

som jag lärde mig först och sedan dess har jag hållit mig till den. Vet ej varför men det har bara blivit så.
//Petter