Hallo,
ich bitte um Hilfe bei folgendem VBA Excel Problem:
Ich möchte mit dem Folderpicker einen Ordner auswählen. Dieser Ordner (rootverz) enthält Unterordner (variable Anzahl).
Diese Unterordner enthalten Dateien (ebenfalls variable Anzahl), diese Dateien möchte ich fortlaufend durchnummerieren.

Ich habe Probleme mit dem folderpicker:
Nach der Auswahl des Ordners kommt die Laufzeitfehlermeldung "424 - Objekt erforderlich".

Was mache ich falsch?

Vielen Dank für die Hilfe im Voraus - alleine komme ich nicht mehr weiter...
Viele Grüße,
Jörg 

Sub num()
Dim fso As FileSystemObject
Dim pfadrootverz As String
Dim rootverz As folder
Dim ordner As folder
Dim datei As file
Dim i As Integer
Dim fd As FileDialog
Dim gewItem As String

Set fso = CreateObject("Scripting.FileSystemObject")

'Pfad auswählen
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
        .Title = "Ordner auswählen"
        .AllowMultiSelect = False
        .InitialFileName = "D:\"
        If .Show <> -1 Then GoTo NextCode
        gewItem = .SelectedItems(1)
    End With
NextCode:
    GetFolder = gewItem
    Set fd = Nothing

 
i = 1
For Each ordner In rootverz
    For Each datei In ordner
        datei.Name = i
    Next datei
Next ordner

End Sub