Tool zum Einfügen des Datum in einem Dateinamen

Nebelfelsen · 18. Mai 2005

Hallo zusammen,

ich bin auf der Suche nach einem Tool, das folgendes kann:

Ich speichere oft verschiedene Versionsstände von Dateien und füge an den Anfang des Dateinamens zur Übersicht immer Datum und Uhrzeit in folgender Form ein: JJJJMMTThhmm_dateiname.endung, also z.B. 200505180957_dokumentationirgendwas.doc

Nun bin ich auf der Suche nach einem Tool, das mir diese oder eine ähnliche Datumskodierung generieren und per Klick oder Hotkey in ein aktives Eingabefeld eines Windows-Speicherdialoges einfügen kann oder was mir eine solche Datumskombination per Hotkey in die Zwischenablage kopiert, so dass ich sie von dort aus einfügen kann.

Bisland habe ich aber leider noch nichts gefunden. Vielleicht hat ja hier jemand einen Tipp?

zotenschmied · 18. Mai 2005

kennst du joe

guten tag,

es zwar nicht ganz genau das, was du suchst, aber vielleicht kannst du dir damit ja ein wenig behelfen.

das tool heisst "joe" und ist auf www.toolsandmore.de erhältlich. die zielsetzung bei joe ist es eigentlich, große mengen von dateien gleichzeitig und komfortabel umzubennen, aber die funktion mit dem datum ist darin auch enthalten.

ich hoffe, das programm kann dir ein wenig weiterhelfen.

ansonsten gehe ich mal davon aus, dass es ein makro bzw. vb tool kann. denn ich kenne mehrere programme, die in der von dir gewünschten form dateinamen im rahmen von automatischen speichervorgängen erstellen. aber das ist z.b. die datensicherung in lexware programmen, also kein tool.

NoxX · 18. Mai 2005

hi,

auf die schnelle ein vba makro gebastelt:

Code

Sub DateiChange()
Dim DateiName As String
Dim DateiNameNeu As String
Dim Dateien As Double
Dim Verzeichnis As String
Dim VerzLaenge As Double


Verzeichnis = "C:\1\"
VerzLaenge = Len(Verzeichnis)


With Application.FileSearch
    .Filename = "*.*"
    .LookIn = Verzeichnis
    .Execute
    For Dateien = 0 To .FoundFiles.Count
    Next Dateien
End With


Dateien = Dateien - 1


For Anzahl = 1 To Dateien
    DateiName = Application.FileSearch.FoundFiles(Anzahl)
    DateiNameNeu = Format(Date, "yyyymmdd") & Format(Time, "HHMM") & "_" & Mid(DateiName, VerzLaenge + 1)
    FileSystem.FileCopy DateiName, Verzeichnis & DateiNameNeu
    Kill DateiName
Next
MsgBox Dateien & " Dateien umbenannt", vbInformation, "Fertig"
End Sub

Alles anzeigen

ausführen:
excel öffnen, ALT+F11 drücken, ins rechte fenster reinkopieren, F5 drücken

alternativ könnte ich dir den totalcommander empfehlen, der hat auch ein "mehrfach-umbenenn-tool" integrieret

Tool zum Einfügen des Datum in einem Dateinamen

Jetzt mitmachen!

Teilen