Re: ReadProgramString
Verfasst: 03.01.2023 20:17
Danke, echt dummer Fehler, besser dummer Programmierer
Gruß
Dieter

Gruß
Dieter
Hallo Dieter,dibro hat geschrieben: 03.01.2023 17:00 Hi,
ich habe mal schnell ein lauffähiges Beispiel gebastelt.
Darin benenne ich die eine Datei um (xyz.MP4) und anschließend soll das Erstelldatum vor dem Dateinamen stehen.
Das tut es auch. Nur wenn ich zur Kontrolle den Dateinamen sofort wieder auslese, dann steht da immer noch der alte Name, obwohl das Umbenennen geklappt hat, wie man dann im Explorer oder bei erneutem Aufruf der Datei sehen kann. Das ist mir rätselhaft.Gruß DieterCode: Alles auswählen
StandardFile$ = "C:\temp" Pattern$ = "Alle Dateien (*.*)|*.*" File$ = OpenFileRequester("Bitte Datei zum Laden auswählen", StandardFile$, Pattern$,0) If File$ :Debug "File$ komplett " + File$ MessageRequester("Information", "Sie haben folgende Datei ausgewählt:" + Chr(10) + File$, 0) Else MessageRequester("Information", "Der Requester wurde abgebrochen.", 0) EndIf SetCurrentDirectory(GetPathPart(File$)) DatumsWert = GetFileDate(File$,#PB_Date_Modified) : Debug "Zahlenwert des Datums " + Datumswert File$ = GetFilePart(File$) :Debug "File$ nur Datei " + File$ Zeit$ = FormatDate("%yyyy%mm_%hh%ii",DatumsWert) : Debug "Datum und Zeit " + Zeit$ newFile$ = Zeit$+File$ : Debug "newFile$ " + newFile$ If RenameFile(File$,newFile$) Debug "Umbenennen erfolgreich." Debug "neuer Dateiname " + GetFilePart(File$) Else Debug "Umbenennen fehlgeschlagen." EndIf