Gruppe
Datei
Problem
Wie kann ich im aktuellen Verzeichnis 400 Textdateien anlegen?
StandardModule: basMain
Sub CreateTextFiles()
Const csMsg As String = "Die Dateien können nicht " & _
"auf CD-ROM angelegt werden. Speichern Sie die " & _
"Arbeitsmappe auf Ihrer Festplatte und versuchen " & _
"Sie es erneut."
Dim iCounter As Integer
Dim sFile As String
On Error GoTo ERRORHANDLER
For iCounter = 1 To 400
sFile = Format(iCounter, "0000")
sFile = CurDir & "\" & sFile & ".txt"
Open sFile For Output As #1
Print #1, "Datei Nummer " & iCounter
Close
Next iCounter
MsgBox prompt:="Die Textdateien wurden angelegt" & vbLf & _
"im Verzeichnis " & CurDir
Exit Sub
ERRORHANDLER:
Close
MsgBox prompt:=csMsg
End Sub