Om jag har ett formulär som har åtta textboxar som jag vill öppna och spara på hårddisken. Hur gör jag då?
MVH
Ivan Larsson

hej
Jag kommer ihåg att jag svarat på detta nyligen.

Slog sökning på Spara som ,fick 6 träffar och det
var ditt namn som kom upp. Vad var det för fel på
dom svar du fick.Försök precisera din fråga lite mer.

Text1.Text Spara som till vad textfil ? eller

kom igen så fixar Vi detta

mvh
Sven

Jag har alltså åtta textboxar med olika artiklar som jag vill spara som en textfil på hårddisken. Jag vill inte spara det i en databas. När jag öppnar filen ska jag få in mina artiklar i textboxarna på formuläret.
mvh
Ivan Larsson

Hej igen
Testa detta ,När du skall hämta tillbaka så
använder du Open For Input As #FileNum
Line Input #Filenum,Text1(0).Text
samma princip som Spara som härunder.

Option Explicit
Private Sub Command1_Click()
'Du har en CommonDialog CMDialog , 8 TextBoxar
'Text1(0) - Text1(7)
Dim SaveName As String
Dim FileNum As Long, i As Long
FileNum = FreeFile
'Cancel Error är True
On Error GoTo SaveAsError
CMDialog.Filter = "TextFil|*.txt"
CMDialog.InitDir = App.Path
CMDialog.DefaultExt = "*.txt"
CMDialog.DialogTitle = " Spara som..."
CMDialog.Flags = &H2
CMDialog.FileName = ""
CMDialog.ShowSave
SaveName = CMDialog.FileName
Open SaveName For Append As #FileNum
For i = 0 To 7
Print #FileNum, Text1(i).Text
Next 'i
Close #FileNum
SaveAsError:
End Sub

mvh
Sven