Thema Datum  Von Nutzer Rating
Antwort
04.03.2017 22:06:31 jörg
NotSolved
05.03.2017 06:27:54 Onur
*****
Solved
Rot Datum älter als 2 Jahre - Datei(en) verschieben
 05.03.2017 06:58:58 jörg
Solved

Ansicht des Beitrags:
Von:
jörg		 Datum:
05.03.2017 06:58:58		 Views:
555		 Rating:
     
Antwort:
 Nein
Thema:
Datum älter als 2 Jahre - Datei(en) verschieben

hallo,

vielen dank!! so klappt es:

Sub r()
Dim i As Integer
Dim pfad_VerzA As String, pfad_VerzB As String, s As Date
Dim fs As Object
Dim fDatei As Object
Dim fdateien As Object
Dim fVerzA As Object

pfad_VerzA = "D:\Daten\aufbewahren\Rechnung"
pfad_VerzB = "D:\Daten\aufbewahren\Rechnung\keine Garantie mehr"

Set fs = CreateObject("scripting.FileSystemObject")
Set fVerzA = fs.getFolder(pfad_VerzA)
Set fdateien = fVerzA.Files

For Each fDatei In fdateien
    s = Left(fDatei.Name, 10)
    i = DateDiff("d", s, Date)
    If i / 365 = 2 Or i / 365 > 2 Then Name pfad_VerzA & "\" & fDatei.Name As pfad_VerzB & "\" & fDatei.Name
Next fDatei

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
04.03.2017 22:06:31 jörg
NotSolved
05.03.2017 06:27:54 Onur
*****
Solved
Rot Datum älter als 2 Jahre - Datei(en) verschieben
 05.03.2017 06:58:58 jörg
Solved