2 Desktop Icons die den aktuellen Tag als Ordner im spezifizierten Pfad erstellen

[Dirk-HH-83 14]

Hallo, 

 

Ziel: es werden zwei Desktop Icons benötigt die beim anklicken jeweils in einen Netzwerk-Ordner verweisen der so heißt wie der aktuelle Tag (also am testen diesen Ordner erstellen)  (es ist einem Domain-User-PC mit Zugriff auf den Ordner)

Desktop Icons:
FOTO EINGANG

FOTO AUSGANG

 

Habe dieses alte VBS Script gefunden womit es offenbar mal funktionierte, das sieht doch eigenlich ganz gut / nach der besten Lösung aus?

 

    Dim KW, t, Jahr, Monat, Tag, txt
    Dim poShell
    Dim poProcess
    Dim iStatus

    t = DateSerial(Year(Date + (8 - Weekday(Date)) Mod 7 - 3), 1, 1)

    KW = (Date - t - 3 + (Weekday(t) + 1) Mod 7) \ 7 + 1

    Monat = Month(Date)
    
    Tag = CStr(Date)

    Jahr = CStr(Year(Date))
    
    txt = "Z:\FOTOS\EINGANG\" + Jahr + "\" + cStr(Monat) + "." + MonthName(Monat) + "\" + cStr(KW) + ".KW\" + Tag

Set poShell = CreateObject("WScript.Shell")
Set poProcess = poShell.Exec("explorer.exe "+txt)
 

[Dukel 455]

Statt einen Ordner mit dem aktuellen Datum zu versehen, würde ich einen Ordner "Aktuell" erstellen und diesen täglich in einen Ordner mit dem entsprechenden Datum verschieben.

[Sunny61 807]

vor 39 Minuten schrieb Dirk-HH-83:

 txt = "Z:\FOTOS\EINGANG

Egal wie Du dich entscheidest, niemals nicht in Scripten LW-Buchstaben verwenden!

[BOfH_666 577]

vor 40 Minuten schrieb Dirk-HH-83:

 

Ziel: es werden zwei Desktop Icons benötigt die beim anklicken jeweils in einen Netzwerk-Ordner verweisen der so heißt wie der aktuelle Tag 

Wie Du an den Antworten schon erkennen kannst, ist Deine "Lösung" vielleicht nicht die eleganteste.  

 

Vielleicht beschreibst Du uns mal das eigentliche Ziel/die eigentliche Aufgabe. Eventuell gibt es ja eine bessere Methode, die Aufgabe zu lösen.

[daabm 1.366]

Der Ordner kann doch heißen wie er will - den Anzeigenamen in Explorer kann man notfalls per desktop.ini verbiegen