All About TXT.Datein

[TheLuCKer]

DANKE JUNGS,

Private Sub mnuListeLaden_Click()

On Error Resume Next
'// Dieser Befehl bezweckt, wenn eine Sache nicht ausgeführt werden kann, macht er mit dem nächsten Auftrag weiter
CDLaden.Filter = "KeyListen (*.KeL)|*.KeL"
'// Gibt den Filter für den Auswahlbereich an
CDLaden.ShowOpen
'// Zeigt ein AuswahlDialog um die Liste zum Laden

Open CDLaden.FileName For Input As #2
sText = ""
Do While Not EOF(2)
Line Input #2, tmp
sText = sText & tmp & vbCrLf
tmp = ""
Loop 'Wend
Close #2

atxt = Split(sText, vbCrLf)

For e = 0 To UBound(atxt) Step 2
listName.AddItem atxt(e)
Next e

For f = 1 To UBound(atxt) Step 2
listKeys.AddItem atxt(f)
Next f

If Not atxt(e) = "" Then listName.AddItem atxt(e)

If Not atxt(f) = "" Then listKeys.AddItem atxt(f)

End Sub

Also bitte helft mir