Vorraussetzung ist, dass der Ordner "H:\Fotos\Eigene Fotos\Fotoalbum" bereits existiert. Wenn das der Fall ist, wird des Fehlers Ursache sein, dass der Odrner "H:\Fotos\Eigene Fotos\Fotoalbum\$" & Jahr" schon existiert. Einen bereits existierenden Ordener kann man so nicht überschreiben. Untersuche das mal und versuche folgenden Prozedur-Vorschlag:
Private Sub Ausführen_Click()
Dim Tag$, Monat$, Jahr$
Set fs = CreateObject("Scripting.FileSystemObject")
Jahr = CStr(Fotomanagement.Jahr.Text)
Monat = CStr(Fotomanagement.Monat.Text)
Tag = CStr(Tage.Text)
If Not fs.folderexists("H:\Fotos\Eigene Fotos\Fotoalbum\$" & Jahr) = True Then
MkDir ("H:\Fotos\Eigene Fotos\Fotoalbum\$" & Jahr)
MkDir ("H:\Fotos\Eigene Fotos\Fotoalbum\$" & Jahr & "\$" & Monat)
MkDir ("H:\Fotos\Eigene Fotos\Fotoalbum\$" & Jahr & "\$" & Monat & "\$" & Tag)
Else
MsgBox "c:\$" & Jahr & " existiert bereits!", vbInformation, "Bereits vorhanden"
End If
End Sub
EDIT: hatte bei der Abfrage, ob der Ordner bereits existiert, vergessen, den Pfad zu ändern, sorry
