ich habe ein Makro erstellt und weiss jetzt nicht, wie ich eine Abfrage erstellen soll, dass wenn in die Unterordner leer sind dann soll nichts geschehen, wenn Dateien vorhanden sind, dann sollen diese übertragen werden.
Sub verschieben()
Dim strPfad As String
Dim strTeilPfad1 As String
Dim strTeilPfad2 As String
Dim strTeilPfad3 As String
Dim strTeilPfad4 As String
Dim strTeilPfad5 As String
Dim strTeilPfad6 As String
Dim strDatei1 As String
Const bolUeberschreiben As Boolean = True
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
strPfad = Range("A8").Value
strTeilPfad1 = Range("J4").Value
strTeilPfad2 = Range("J5").Value
strTeilPfad3 = Range("J6").Value
strTeilPfad4 = Range("J7").Value
strTeilPfad5 = Range("J8").Value
strTeilPfad6 = Range("J9").Value
strDatei1 = "*.xlsm"
'Debug.Print strPfad & strTeilPfad1 & "\" & "*.xlsm", strPfad & strTeilPfad2
'Debug.Print strPfad & strTeilPfad3 & "\" & "*.docm", strPfad & strTeilPfad4
'Debug.Print strPfad & strTeilPfad5 & "\" & "*.docm", strPfad & strTeilPfad6
objFSO.MoveFile strPfad & strTeilPfad1 & "\" & "*.xlsm", strPfad & strTeilPfad2
objFSO.MoveFile strPfad & strTeilPfad3 & "\" & "*.docm", strPfad & strTeilPfad4
objFSO.MoveFile strPfad & strTeilPfad5 & "\" & "*.docm", strPfad & strTeilPfad6
Set objFSO = Nothing
End Sub
strTeilPfad1,3 und 5 sind die Unterordner welche leer bzw. gefüllt sind und an strTeilPfad2,4 und 6 übertragen werden.Besten Dank für Eure Hilfe.
Gruss Peter