6
Batch kompletter ordner Verschieben wenn bestimmt Zeit nicht mehr bearbeitet
Hallo
Ich möchte gern von einem Verzeichnis in ein anderes Verzeichnis alle Ordner verschieben wo der Inhalt seit 30 tagen nicht mehr verändert wurde. Nur ich habe da gar keine ahnung wie man so eine BAtch datei schreibt. Kann mir da jemand helfen.
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Kommentar vom Moderator Biber am Nov 05, 2009 um 15:58:55 Uhr
Gut, dass Geduld mein zweiter Vorname ist. Hat sich ja zum Guten gewendet.
Content-Key: 128697
Url: https://administrator.de/contentid/128697
Printed on: April 24, 2024 at 03:04 o'clock
6 Comments
Latest comment
hallo zurück,
ein Frage definiert sich zu einem durch den Aufbau und zum anderen durch das abschliessende Satzzeichen (hier ein ?)
aber das nur mal am Rande....
um welches Betriebssystem handelt es sich? wird die Batch lokal ausgeführt oder auf einem Netzlaufwerk?
ein Frage definiert sich zu einem durch den Aufbau und zum anderen durch das abschliessende Satzzeichen (hier ein ?)
aber das nur mal am Rande....
um welches Betriebssystem handelt es sich? wird die Batch lokal ausgeführt oder auf einem Netzlaufwerk?
Danke für die schnelle Antwort.
Die Batch soll lokal ausgeführt werden und unter XP.
Die Batch soll lokal ausgeführt werden und unter XP.
hallo Weider1978,
falls es vbs sein darf:
so kopiert man einen ganzen Ordner in vbs:
und so kann man Eigesnschaften einer Datei abfragen:
Das ganze nur mit dem aktuellen Datum und dem letzten Aenderungsdatum der Datei vergleichen und entsprechende Reaktion ausloesen.
Gruss
Tsuki
falls es vbs sein darf:
so kopiert man einen ganzen Ordner in vbs:
Const FOF_CREATEPROGRESSDLG = &H0&
ParentFolder = "C:\OriginalOrdner"
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(ParentFolder)
objFolder.CopyHere "C:\BackupOrdner", FOF_CREATEPROGRESSDLG und so kann man Eigesnschaften einer Datei abfragen:
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("c:\OriginalOrdner\MeineDatei.txt")
Wscript.Echo "Date created: " & objFile.DateCreated
Wscript.Echo "Date last accessed: " & objFile.DateLastAccessed
Wscript.Echo "Date last modified: " & objFile.DateLastModified
Wscript.Echo "Drive: " & objFile.Drive
Wscript.Echo "Name: " & objFile.Name
Wscript.Echo "Parent folder: " & objFile.ParentFolder
Wscript.Echo "Path: " & objFile.Path
Wscript.Echo "Short name: " & objFile.ShortName
Wscript.Echo "Short path: " & objFile.ShortPath
Wscript.Echo "Size: " & objFile.Size
Wscript.Echo "Type: " & objFile.Type Das ganze nur mit dem aktuellen Datum und dem letzten Aenderungsdatum der Datei vergleichen und entsprechende Reaktion ausloesen.
Gruss
Tsuki
Moin
Das ist schon mla in Anfang Danke.
Ich habe es jetzt wie folgt geschrieben
es funktioniert soweit das er die Dateien die das alter haben kopiert und löscht. Nur das Problem was ich nun habe das er halt nur Dateien kontrolliert und verschiebt und Unterordner komplett auslässt.
Das ist schon mla in Anfang Danke.
Ich habe es jetzt wie folgt geschrieben
<job id="main">
<script language="VBScript">
WScript.Echo "VBScript"
Const FOF_CREATEPROGRESSDLG = &H0&
Dim intTage
Dim strOrdner
Set objFSO = CreateObject("Scripting.FileSystemObject")
strOrdner = "C:\Test1"
intTage = 0
Set objOrdner = objFSO.GetFolder(strOrdner)
For Each objDatei In objOrdner.Files
WScript.Echo objDatei.DateLastModified, Now
If DateDiff("d", objDatei.DateLastModified, Now) >= intTage Then
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(strOrdner)
objFolder.CopyHere "C:\Test2", FOF_CREATEPROGRESSDLG
' objDatei.Delete
End If
Next
</script>
</job>es funktioniert soweit das er die Dateien die das alter haben kopiert und löscht. Nur das Problem was ich nun habe das er halt nur Dateien kontrolliert und verschiebt und Unterordner komplett auslässt.
Fehler gefunden.
der Fehler lag in der For Each
bei mir stand objOrdner.Files richtig wäre aber objOrdner.Subfolders
der Fehler lag in der For Each
bei mir stand objOrdner.Files richtig wäre aber objOrdner.Subfolders
also das lief auch noch nicht wie es sollte habe aber jetzt die richtige Lösung gefunden
<job id=\"main\">
<script language=\"VBScript\">
Const FOF_CREATEPROGRESSDLG = &H0&
Dim intTage
Dim strOrdner
Dim strOrdnerNeu
Set objFSO = CreateObject(\"Scripting.FileSystemObject\")
strOrdner = \"C:\\Test1\" \'Ausgangsordner
strOrdnerNeu = \"C:\\Test2\" \'Zielordner
intTage = 10 \'Zeitraum
Set objOrdner = objFSO.GetFolder(strOrdner)
For Each objDatei In objOrdner.Subfolders
If DateDiff(\"d\", objDatei.DateLastModified, Now) >= intTage Then
objFSO.CopyFolder objDatei , strOrdnerNeu + \"\\\"+ objDatei.Name
objDatei.Delete
End If
Next
</script>
</job>
