WER KANN MIR DEN CODE REPARIEREN, BIN ÜBERFORERT
20.07.2004 12:39:39
DELPHI_NE
Text:
Sub CreateTextFiles()
Const csMsg As String = " Die nicht " & _
" Arbeitsmappe " & _
"Erneut "
Dim iCounter As Interger
Dim sFile As String
On Error GoTo Errorhandler
For iCounter = 1 To 10
sFile = Format(iCounter, "0000")
sFile = CurDir & "\" & sFile & ".txt"
Open sFile For Output As #1
Print #1, " Datei Nummer " & iCounter
Close
Next iCounter
MsgBox prombt:=" Die wurden Angelegt" & vbLf & _
"Im Verzeichniss " & CurDir
Exit Sub
Errorhandler:
Close
MsgBox promt:=csMsg
End Sub