VBScript erstellen zum suchen und kopieren eines Dokumentes
Da ich es leider nicht wirklich mit scripting habe, hoffe ich auf eure Hilfe.
Tag erstmal!
Ich versuche seit Tagen ein Script zu erstellen was folgende Aufgabe erfüllt:
In einem Ordner liegen im Schnitt 5-7 PDF Dokumente. Eins dieser Dokumente hat im Name
das Datum von Heute (test 29.08.2012.pdf).
Einmal an Tag möchte ich per Script diesen Ordner durchsuchen lassen und nur diesen Dokument
in ein Archiv Ordner kopieren lassen.
Ich bekomme es nicht hin. Jemand einen Idee oder wenigstens einen Ansatz?
Gruß
cslucifer
Ich versuche seit Tagen ein Script zu erstellen was folgende Aufgabe erfüllt:
In einem Ordner liegen im Schnitt 5-7 PDF Dokumente. Eins dieser Dokumente hat im Name
das Datum von Heute (test 29.08.2012.pdf).
Einmal an Tag möchte ich per Script diesen Ordner durchsuchen lassen und nur diesen Dokument
in ein Archiv Ordner kopieren lassen.
Ich bekomme es nicht hin. Jemand einen Idee oder wenigstens einen Ansatz?
Gruß
cslucifer
Please also mark the comments that contributed to the solution of the article
Content-Key: 190441
Url: https://administrator.de/contentid/190441
Printed on: April 26, 2024 at 13:04 o'clock
2 Comments
Latest comment
Hallo cslucifer!
Ungetestet etwa so:
Der Archivordner muss bereits existieren.
Falls der Typ (.pdf) nicht geprüft werden muss, einfach die Zeilen 3, 10 und 12 weglassen ...
Grüße
bastla
Ungetestet etwa so:
Source = "D:\Dein Ordner"
Target = "D:\Dein Archiv\" 'Backslash am Ende beachten
Ext = "pdf" 'in Kleinbuchstaben
Today = Date 'aktuelles Datum im Standard-Format; falls anders benötigt, Zuweisung entsprechend anpassen
Set fso = CreateObject("Scripting.FileSystemObject")
For Each File In fso.GetFolder(Source).Files
If LCase(fso.GetExtensionName(File.Name)) = Ext Then
If InStr(File.Name, Today) > 0 Then File.Copy Target
End If
Next
Falls der Typ (.pdf) nicht geprüft werden muss, einfach die Zeilen 3, 10 und 12 weglassen ...
Grüße
bastla