Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Datei in Ordner mit heutigem Datum verschieben
21.09.2022 14:30:34 Julia
Solved
21.09.2022 14:39:11 Gast58432
Solved

Ansicht des Beitrags:
Von:
Julia
Datum:
21.09.2022 14:30:34
Views:
216
Rating: Antwort:
 Nein
Thema:
VBA Datei in Ordner mit heutigem Datum verschieben

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Datei in Ordner mit heutigem Datum verschieben
21.09.2022 14:30:34 Julia
Solved
21.09.2022 14:39:11 Gast58432
Solved