Thema: 400 leere 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

Beiträge aus dem Excel-Forum zu den Themen Datei und Name