Ausdrucken von mehreren Verzeichnis über VBA

ich brauch a bisserl hilfe! Und zwar bekomm ich bei dem Versuch Dateinamen auszudrucken, die sich in vier Verschiedenen Verzeichnissen befinden, immer einen Fehler. Warum?

Sub Verzeichnisse_drucken()
Dim i%
Dim Datei1 As String
Dim Datei2 As String
Dim Datei3 As String
Dim Datei4 As String
Dim Dateiname As String
Dim Alle As String
Dim Verzeichnis As String
i = 3
Verzeichnis = "G:\mein\"

Datei1 = Dir(Verzeichnis & "Titel1\")
Datei2 = Dir(Verzeichnis & "Titel2\")
Datei3 = Dir(Verzeichnis & "Titel3\")
Datei4 = Dir(Verzeichnis & "Titel4\")

Do While Datei1 <> ""
Range("A" & i).Value = Datei1
i = i + 1
Datei1 = Dir
Loop
i = i + 1

Do While Datei2 <> ""
Range("A" & i).Value = Datei2
i = i + 1
Datei2 = Dir
Loop
i = i + 1

Do While Datei3 <> ""
Range("A" & i).Value = Datei3
i = i + 1
Datei3 = Dir
Loop
i = i + 1

Do While Datei4 <> ""
Range("A" & i).Value = Datei4
i = i + 1
Datei4 = Dir
Loop

Range("A1").Value = "Gesamtanzahl:" & i - 3
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

Es dankt Euch 1000mal und öfter

Robert