cslucifer
Goto Top

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

Content-Key: 190441

Url: https://administrator.de/contentid/190441

Printed on: April 25, 2024 at 21:04 o'clock

Member: bastla
bastla Aug 29, 2012 updated at 14:48:27 (UTC)
Goto Top
Hallo cslucifer!

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
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
Member: cslucifer
cslucifer Aug 29, 2012 at 14:52:31 (UTC)
Goto Top
Das wäre ein Traum.
Typ wird nicht geprüft.


Werde ich Gleich morgen früh testen.

Tausend Dank