VBS: If Bedingung ältester Ordner ?

[Melvin1]

Ich schreibe zurzeit ein Script welches eine Sicherheitskopie von mehreren Computern auf einer externen Festplatte in 3 Versionen erstellt.
Das Script ermittelt den Computernamen und erstellt dazu 3 Ordner (für die 3 Versionen) und kopiert einen Test Ordner in diese Verzeichnisse. Wenn diese Verzeichnisse existieren aktualisiert das Script alle 3 Ordner.
Aber es soll nur der älteste Ordner aktualisiert werden. Das ist mein Problem.
Wie soll ich das machen?

Ich mache es für mein Praktikum( geht bis zum 28.6) und bin noch Anfänger (Ich behersche die Sprache noch nicht so gut ) und mein Betreuer kann mir auch nicht helfen.
Ich hoffe, das ich hier Hilfe finde.

Und schonmal Danke im Voraus

[VB-Coder]

Ich hab mir das Script mal angeschaut.

Da es eine Sicherungskopie werden soll, sind da viel zuviele Abfragen drin, die der User bestätigen muss. Ein vernünftiges Sicherungsscript soll einen doch Arbeit abnehmen und selbstständig die Entscheidung treffen. Demzufolge solltest du den Aufbau nochmal überdenken.

Das kopieren des Testordners ist absolut unnötig. Wenn du testen willst, ob ein Ordner vorhanden ist, dann musst du da keinen Testordner hin kopieren. Du kannst einfach die Funktion "FolderExists" nutzen. Der Aufbau wäre wie folgt:

Dim fs As FileSystemObject
Set fs = CreateObject("Scripting.FileSystemObject")
If Not fs.FolderExists("c:\blabla") Then 
    MkDir "c:\blabla"
Else
    'Der Ordner existiert 
End If 

Außerdem sind da viel zuviele Verzweigungen von einer Schleife in die nächste. Überdenk einfach nochmal den kompletten Aufbau ! Was ist wichtig - was kann weg. Der Code lässt sich von 180 locker auf 30 - 50 Zeilen verkürzen.

Um auf dein Problem mit den Datum eines Ordners zu kommen, habe ich dir mal eben schnell was gescriptet. Ich denke der Aufbau ist selbsterklärend.

Dim fs,erstellt,modifiziert
Set fs = CreateObject("Scripting.FileSystemObject")
Set ordner = fs.GetFolder("c:\windows")
erstellt = ordner.DateCreated
modifiziert = ordner.DateLastModified
msgbox "Der Ordner wurde am: " & erstellt & " erstellt und am: " & modifiziert & " zuletzt geändert."