Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Dateien verschieben
Autor: Crossboy
Datum: 23.09.05 07:16
Hallo Ich habe mir jetzt einen Code zusammen gesucht, der mir zumindest alle Dateien verschiebt, die älter als 1 Tag sind. Das ja auch schonmal gut. Ich müsste jetzt noch eine if verzweigung darein haben, der den dateinamen auf den richtigen Anfang überprüft. Hier erstmal der Code: 'Variablen Quelle = "C:\test" Ziel = "d:\test" Zeitraum = 1 'Anzahl in Tagen DateiAnzahl = 0 'Beginn Pruefen_und_Verschieben Quelle Msgbox "Es wurden " & DateiAnzahl & " Dateien verschoben." WScript.Quit 'Ende 'Funktionen Function Pruefen_und_Verschieben(Pfad) Set fso = CreateObject("Scripting.FileSystemObject") Set Ordner = fso.GetFolder(Pfad) Set Dateien = Ordner.Files For Each Datei in Dateien If DateDiff("d", Datei.DateLastModified, NOw) > Zeitraum Then Zielordner = Replace(Datei.ParentFolder,Left(Datei.ParentFolder,1), Left(Ziel,1)) If NOT fso.FolderExists(Zielordner) Then ZielOrdner_anlegen Zielordner fso.MoveFile Datei, Zielordner & "\" : Dateianzahl = DateiAnzahl + 1 End if Next Set Subfolders = Ordner.SubFolders For Each Subfolder in Subfolders Pruefen_und_Verschieben Subfolder Next End Function Function ZielOrdner_anlegen(Zielordner) Set fso = CreateObject("Scripting.FileSystemObject") Dim OrdnerArray OrdnerArray = Split(Zielordner,"\",-1,1) Startpfad = OrdnerArray(0) & "\" & OrdnerArray(1) For i = 1 to UBound(OrdnerArray) If NOT fso.FolderExists(Startpfad) Then fso.CreateFolder(Startpfad) If i < UBound(OrdnerArray) Then Startpfad = Startpfad & "\" & OrdnerArray(i + 1) Next End Function Wäre echt dankbar, wenn mir einer helfen könnte! gruß Malte

Dateien verschieben	3.289	Crossboy	22.09.05 13:20
Re: Dateien verschieben	1.851	Crossboy	23.09.05 07:16
Re: Dateien verschieben	1.531	CyberDreams	26.09.05 08:29
Re: Dateien verschieben	1.569	Crossboy	27.09.05 07:31
Re: Dateien verschieben	1.343	Crossboy	04.10.05 08:42

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen