---

"R2-D2" <junk@mail.com> wrote in
news:3f357b2e$0$24651$edfadb0f@dread14.news.tele.dk:

> Er der nogle der har lavet en elektronisk pin-kode-husker, som man
> lige kan skrive ud ?

Jeg har lavet "en ny tråd", da den gamle er lidt gammel.

<code>
Option Explicit
Const PinCodeFile As String = "C:\MinPinkode.txt" 'Fil med din pinkode
Dim S As String
Dim S2 As String

Private Sub Form_Load()
Open PinCodeFile For Input As #1
Do Until EOF(1) = True
Line Input #1, S
S2 = S2 & S & vbCrLf
Loop

'Fjerner sidste linieskift lavet
'af ovenstående kode:
S2 = Left(S2, Len(S2) - 2)
Text1.Text = ""
Text1.Text = S2
End Sub
</code>

Jeg kan bare ikke lave en kode der laver en ny fil, hvis PinCodeFile ikke
findes.

---

Mathias <mathias@nonne.tld> wrote in
news:Xns9417D5B3872425q738hgq@212.54.64.134:

> Jeg har lavet "en ny tråd", da den gamle er lidt gammel.

Næh, det virkede ikke...