Hi zusammen :)
leider sind meine VBA Künste noch begrenzt, vielleicht kann mir da jemand helfen :)
Es geht hier darum alle PDFs aus einem Ordner H:/Test in einen darin liegenden Ordner mit dem Monat/ Jahr (z.B. 09_2022) versehen, zu verschieben.
Alle PDFs verschieben klappt nur leider das mit dem akutellen Ordner nicht.
Kann mir dabei jemand helfen? Danke im Voraus
Option Explicit
Private Sub SearchInFolder(ByVal Folderspec As String, ByVal Zielordner As String)
Dim StTyp As String
Dim FSO As Object
Dim FI As Object
Dim Anfangdatei As String
Set FSO = CreateObject("Scripting.Filesystemobject")
If Not FSO.FolderExists(Folderspec) Then
MsgBox Folderspec & " ist nicht vorhanden."
Set FSO = Nothing
Exit Sub
End If
StTyp = "pdf"
For Each FI In FSO.GetFolder(Folderspec).Files
If UCase(FSO.GetExtensionName(FI)) = UCase(StTyp) Then
If UCase(FSO.GetFileName(FI)) Like UCase(Anfangdatei & "*") Then
FSO.MoveFile FI, Zielordner & "\"
End If
End If
Next
Set FSO = Nothing
End Sub
Sub Verschieben()
Call SearchInFolder("H:\Test", -->in Ordner aktueller Monat_aktuelles Jahr
End Sub
|