Hallo, ich schreibe einfach mal in diesen Bereich, weiß nicht ob es hier rein passt. Ich brauche ein Programm/Script was mir eine heruntergeladene Log-Datei immer umbenennt in Datum.txt, wobei Datum das Datum aktuelle Dateum des Umbenennens sein soll. Geht sowas mit VB oder muß ich mich an eine andre Sektion wenden. ?
Vielen Dank
Moin Thomas,
das ist kein großes Problem und sollte sich mit VBScript und VB leicht lösen lassen. Selbst mit einem DOS-Batch müßte es machbar sein.
Ich schreib mein das Prog und schick’s Dir zu bei nächster Gelegenheit.
Kristian
Habe ich mir auch gedacht, unter Linux habe ich solche Variablen wie Date gefunden, nur im DOS nicht…
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Tätää - hier ist das Script 
Hallo Thomas,
hier ist die Lösung als VBScript. Der Vorteil ist, daß Du es nur in den Editor kopieren und als *.vbs-Datei speichern mußt.
Zum Testen erstelle dann eine Verknüpfung mit dem Script im Explorer und öffne diese mit der rechten Maustaste unter „Eigenschaften“. Dort gehst Du in das Textfeld „Ziel“ und ergänzt als ersten Parameter den Dateinamen Deines Logs (z.B. C:\Temp\Logfile.log) und als zweiten Parameter debug (jew. ohne Anführungszeichen). Dann einfach auf OK und die Verknüpfung doppelklicken. Aber das kennst Du ja alles.
Kristian
So, hier nun das Script:
'''''''''''''''''''''''''''''''''''''''''
' Copyright Kristian Zarse, 05.Jan.2002 '
' '
'''''''''''''''''''''''''''''''''''''''''
'
' Kommandozeilenparameter 1 und 2:
' 1) Dateiname, ggf. mit Pfad
' (obligatorisch)
' 2) entweder "debug" für den Debug-Modus oder "copy", um die Original-Datei zu behalten
' (optional)
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Call SetDateAsName
'=======================================================================
Sub SetDateAsName()
Dim IsDebugMode
Dim DeleteOldFile
Const YearCorr = 2000
Const DateSeparator = ""
Const DateTimeSeparator = "\_"
Const TimeSeparator = ""
Const Ext = ".txt"
Dim dy, dm, dd ' Datum
dim th, tm, ts ' Zeit
dim OldFileName ' alter Dateiname
dim NewFileName ' neuer Dateiname
dim NewPathName ' neuer (=alter) Pfad zur Datei
dim ObjArgs, fso, OldFile
'---------------------------------------------------------
IsDebugMode = False
DeleteOldFile = True
Set ObjArgs = WScript.Arguments
On Error Resume Next
OldFilePath = ObjArgs(0)
IsDebugMode = (ObjArgs(1) = "debug")
DeleteOldFile = Not (ObjArgs(1) = "copy")
' Sollte der zweite Parameter nicht existieren, bleiben
' die beiden Boolean-Variablen unverändert, also beim
' jeweiligen Default-Wert, weil dann die On-Error-Funktion
' die Ausführung der neuen Zuweisung verhindert.
On Error Goto 0
Set ObjArgs = Nothing
'---------------------------------------------------------
dy = Year(Date) - YearCorr
If dy