Gruppe
Datei
Bereich
Name
Thema
400 leere Textdateien anlegen
Problem
Wie kann ich im aktuellen Verzeichnis 400 Textdateien anlegen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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