WCf: per script neuesten order und datei finden

[Manfred Stangl]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo Kollegen,
ich such nun seit Stunden, komm aber nicht weiter.
Ich will per Script in einer PC Runtime auf dem PC in einem Ordner den neuesten Unterordner finden. Den legt ein Kameracontroller an. In dem Ordner will ich dann die neueste Datei finden (das kann ich leider nur bei einem fixen Ordner)
Die neueste Datei finde ich so:

Dim AktuellstesDatum     'Datum, an dem das Bild abgespeichert wurde
Dim NeuesteDatei, neuestesBild, nurZahl 'Neueste Datei (imagexx.bmp), nurZahl = Nur die Bildnummer ohne image und .bmp
Dim FS, erste, zweite, eine, zwei  'FS = Aufruf des Ordners; erste, zweite = Ziffen der Bildnr.; eine, zwei = Stellen der Nr 
Dim Drv         'DRV = Sucht das aktuellste Datum im Ordner
Dim Datei        'Datei = Inahlt des Zielordners
AktuellstesDatum = DateValue("1.1.1900") 'Aktuelles Datum auf Startwert setzen
NeuesteDatei = ""       'Neueste Datei bereinigen
Set FS = CreateObject("scripting.filesystemobject") 'Neue Datei einlesen
Set Drv = FS.GetFolder("C:\Users\DetNet-User\Desktop\BVS Bilder\Camera 2") 'Pfad anpassen !!!! Ordner aufrufen
 For Each Datei In Drv.Files 'Nach dem neuesten Datum im Ordner suchen
  If Datei.DateLastModified > AktuellstesDatum Then 'Datum der zuletzt geänderten Datei als Aktuelles Datum übernehmen
   NeuesteDatei = Datei.Name 'Namen des neuesten Bildes übernehmen
   AktuellstesDatum = Datei.DateLastModified 'Datei an aktuelles Datum anhängen
  End If
 Next

Bitte um Hilfe

EDIT: umbenennen sollte ich auch noch.

 

[Larry Laffer]

Hallo Manfred,

dein Bezug hier sollte die Folders-Auflistung (siehe dazu auch die WinCCFlexibel-VBS-Grundlagen-Hilfe) sein.
Die liefert dir Folder-Objekte zurück. In dem Code-Beispiel in der Flex-Hilfe eins nach dem anderen.
Jedes der Folder-Objekte hat u.A. die Eigenschaft "DateCreated" - die müßtest du nun auswerten.

Die Rename-Methode für einen Folder (Verzeichnis) ist dann myFolder.Name - also die Name-Property. Dafür mußt du den Folder aber auf jeden Fall schon adressiert haben.

Für die Dateien läuft das genauso ...
Da heißt das Stichwort halt nur entsprechend "Files-Auflistung" von der du dann ein File-Objekt zurück bekommst. Auch dies hat die Eigenschaft "DateCreated".
Zum Umbenennen wäre dann auch die Name-Property (wie beim Folder) zu verwenden.

In beiden Fällen habe ich selbst damit noch nicht gearbeitet (also Umbenennen).
Alles andere sollte m.E. die Flex-VBS-Hilfe ganz gut beschreiben ...

Gruß
Larry