Jump to content

syntax error

Members
  • Gesamte Inhalte

    9
  • Registriert seit

  • Letzter Besuch

Alle erstellten Inhalte von syntax error

  1. Ich fand es logisch dass "DateCreated" das Datum ist wann die Datei erstellt wurde und "Datelastmodified" (bzw die Windows Gegenstücke) wann die Datei zuletzt bearbeitet wurde. Wenn die Datei (Textdatei z.B.) auf dem Rechner erstellt wurde dann stimmt es sogar. Witzig wird es nur wenn die Datei woanders erstellt wurde (Digitalfoto z.B.) Tatsächlich musste ich feststellen dass dann "Datelastmodified" das Datum ist wann die Datei kreiert wurde (in der Kamera) und "DateCreated" anscheinend das Datum ist wann die Datei auf dem Windows Datenträger gelandet ist. Merkwürden...
  2. Großartig, hab das auf die gesamte Zeichenkette ausgebaut. So geht es jetzt ! Allerdings ist kurioserweise datelastmodified korreckt. Zumindest bei meinen Dateien ist das Datum der Datei Erstellung mit dem Änderungsdatum identisch und das kopierdatum auf die Platte das Erstellt Datum . Das heißt Die Dateien sind geändert worden bevor sie erstellt wurden (???). Ist mir noch nie aufgefallen. Aber hat jetzt nichts mit der funktion zu tun. Windows...tsss
  3. OK Danke ! :jau: Das Script funktioniert jetzt soweit. Ein Problem habe ich noch mit dem Datum. Ich hätte gerne JJJJ-MM-TT hh.mm.ss was auch soweit funktioniert. Allerdings schreibt er mir bei einstelligen Zahlen keine Null davor was eine anständige Sortierung wieder hinfällig macht. Also 2008-4-1 anstatt 2008-04-01. Kann man das Datum formatieren oder muss ich jetzt eine Abfrage machen in der Art "wenn einstellig dann mache eine 0 davor". Wie solls gehen ? Dim Abfrage set fso = CreateObject("Scripting.FileSystemObject") set folder = fso.Getfolder(".") Abfrage = MsgBox("Alle Dateien im Verzeichnis " & folder & vbLf & "werden umbenannt in den Datumsstempel der Datei." & vbLf & "Format 'JJJJ-MM-TT hh.mm.ss.xxx'." & vbLf & "Wirklich Ausführen ?",4,"File Renamer") if Abfrage=vbNo then MsgBox "Umbenennung abgebrochen !" WScript.Quit end if for each file in folder.Files varFileName= year(file.datelastmodified) & "-" & month(file.datelastmodified) & "-" & day(file.datelastmodified) & " " varFileName = varFileName & hour(file.datelastmodified) & "." & minute(file.datelastmodified) & "." & Second(file.datelastmodified) & Right(file.Name,4) If fso.FileExists(VarFileName) Then MsgBox "Die Datei " & File & " konnte nicht umbenannt werden." & vbLf & "Der Dateiname " & VarFileName & " existiert bereits." & vbLf & "Vorgang Abgebrochen !" WScript.Quit end if file.Name = VarFileName next MsgBox "Umbenennung durchgeführt"
  4. Uff... Nach einigem rumbasteln habe ich es immerhin geschafft irgendetwas umzubenennen und eine Abfragebox vorzuschalten. Dim Abfrage Abfrage = MsgBox("Alle Dateien im Verzeichnis werden umbenannt in den Datumsstempel der Datei." & vbLf & "Format 'JJJJ-MM-TT hh.mm.ss.xxx'. Weiter ?",4,"File Renamer") if Abfrage=vbNo then MsgBox "Umbenennung abgebrochen !" WScript.Quit else MsgBox "Umbenennung durchgeführt" end if set fso = CreateObject("Scripting.FileSystemObject") set file = fso.GetFile("c:\test\testfile.jpg") varFileName= year(file.datelastmodified) & "-" & month(file.datelastmodified) & "-" & day(file.datelastmodified) & " " varFileName = varFileName & hour(file.datelastmodified) & "." & minute(file.datelastmodified) & "." & Second(file.datelastmodified) file.Name = VarFileName file.Rename geht übrigens nicht. Das Eine Problemchen ist wie behalte ich die Dateiendung ? Ich könnte die auf z.B. .jpg festlegen wenn ich weiß dass ich nur Bilder umbenenne aber ich möchte das universell einsetzbar machen. Das Hauptproblem ist dass ich noch nicht durchgeblickt habe wie ich alle Dateien eines Verzeichnisses bearbeite. Vielleicht so ? set folder = fso.Getfolder("c:\test\") set file = folder.Files Aber das funzt irgendwie auch nicht.
  5. Danke erstmal Cybquest, sieht schonmal gut aus. Hab die Doppelpunkte im Dateinamen durch Punkte ersetzt, so wird das sonst nix (Sonderzeichen=böse). Für die fertige Funktion fehlt aber noch was oder ? So passiert ja erstmal garnichts. Und ich nehme an dass da noch ein Set fso = CreateObject("Scripting.FileSystemObject") rein muss... (Um das Das "If Exist" Doppelte Datei Ding kümmere ich mich später im Feintuning)
  6. Vielleicht so ? copy datei.log datei%date%.log
  7. Hallo ! Vorweg: Ja ich weiß dass es dafür fertige Tools gibt, ich möchte es trotzdem so lösen, einfach nur um herauszufinden wie es geht. Also ich möchte alle Dateien im Script Verzeichnis (Script wird einfach in das zu bearbeitende Verzeichnis von Hand kopiert) umbenennen und dafür den Datumsstempel verwenden. z.B. xxxxx.jpg in YYYY-MM-DD_HH.MM.SS.jpg . Nachdem ich mir eine funktionierende Batch Datei gebastelt habe und ich feststellen musste dass das per Batch SO nicht lösbar ist darf ich von vorne anfangen, habe aber von VBS nicht wirklich Ahnung. Das Problem unter Batch besteht darin dass "%~t1" mir nur die Minuten aber keine Sekunden ausgibt (Sekundengenau wäre wichtig weil es in der gleichen Minute durchaus mehrere Dateien geben kann). Anscheinend geht das wohl nicht mit Batch sekundengenau. Mit VBS würde das vermutlich sekundengenau gehen, evtl kann mir da jemand zumindest ein paar hilfreiche Brocken Code hinwerfen, ideal wäre natürlich ein fertiges Script :). Probleme: Auslesen des Datumsstempels (Erstelldatum) und umbauen in das zum sortieren sinnvollere US-Format (YYYY-MM-DD statt DD-MM-YYYY) und das Ergebnis als Dateiname verwenden. Evtl vorhandene doppelte Dateien nicht überschreiben.
  8. :jau: Danke ! Das war genau das Richtige. Ich habe alles richtig gemacht, bloss nicht zum richtigen Zeitpunkt. "It is crucial that you press Ctrl-Break just after the SP gives over the control of the console to the RP. If you send the break sequence too soon, you end up in the ROMMON of the SP, which is not where you should be." Ich habe die ganze Zeit den SP zurückgesetzt
  9. Hallo zusammen. Kann mir jemand sagen wie man eine Cisco 7606 zurücksetzt, d.h. Passswörter und ggf Konfiguration löschen ? Ich bekomme immer direkt eine Passwort Abfrage (und keine Benutzerabfrage) wenn ich mich über Serielle Konsole anmelden möchte. Habe es mit der Standard-Vorgehensweise mit Break und im rommon Prompt confreg0x2142 probiert. Nach dem Reboot trotzdem Passwort Abfrage. Bei Cisco in der Online-Hilfe zur 7600 Serie fand ich keine hilfreiche Prozedur. Für diese müsste ich mich nämlich einloggen können was ich mangels PW ja nicht kann (oder ich verstehe da was nicht richtig) Ich komme in den rommon Modus, das wars auch schon.
×
×
  • Neu erstellen...