---

Jeg er nybegynder og ved at lave et program der skal kunne gemme teksten fra
en textbox til et tekst dokument (*.txt)
er der nogle der kan hjælpe?

---

Dim filenavn As String
Dim Filenr As Integer
On Error GoTo Gemfejl
filenavn = InputBox("Indtast filenavn", "Gem file")
If Len(filenavn) > 0 Then
Screen.MousePointer = 11
Filenr = FreeFile
'Åben filen til skrivning
Open filenavn For Output As Filenr
Print #Filenr, TxtEdit.Text
Close (Filenr)
Screen.MousePointer = 0
End If
Exit Sub

GemFejl:
Screen.Mousepointer=1
Msgbox "Der opstod fejl under forsøg på at gemme file"

"Carsten Larsen" <lasselarsen@mail.dk> skrev i en meddelelse news:9e3ihc$k0g$1@news.inet.tele.dk...
> Jeg er nybegynder og ved at lave et program der skal kunne gemme teksten fra
> en textbox til et tekst dokument (*.txt)
> er der nogle der kan hjælpe?
>
>

---

mange tak for besvarelsen