RenameFile funtioniert nicht

[Heinz Mendax]

Hallo !
Habe ein Umnenntool für Bilddateien programmiert, das einige Merkmale zum Inhalt des Bildes und zum Aufnahmedatum im Dateinamen aufnimmt. Zum Schluss des Programms soll folgende Zeile das Umnennen ausführen.

erg=RenameFile(AlterDateiname$,NeuerDateiname$)

Das funktioniert aber nicht immer, hauptsächlich nicht, wenn die Bilder auf einer externen Festplatte sind. Dann ist
bei Kontrolle nichts passiert, ausser das man die Zeit für die Bearbeitung einer größeren Anzahl Bilder vertan hat. Beim Debuggen ist erg manchmal 0 - dh. RenameFile funktionierte nicht. Was Kann man dann außer RenameFile tun, daß die Dateien auf jeden Fall umbenannt werden.

mfG
Heinz

[Pelagio]

Hallo Heinz Mendax,

das umbenennen der Dateien müsste funktionieren aber es sind natürlich dazu Voraussetzungen notwendig, die man aus deinem Text nicht herauslesen kann.
Ist der Pfad in den Dateinamen mit angegeben?
Hast Du dei entsprechenden Rechte in den Verzeichnissen?
ist die eine oder andere Datei eventuell in gebrauch?
Ich hatte mit dem Befehl bis dato noch nie Probleme.

[ts-soft]

Ergänzend zu Pelagio:

Habe ein Umnenntool für Bilddateien programmiert, das einige Merkmale zum Inhalt des Bildes und zum Aufnahmedatum im Dateinamen aufnimmt.

Überprüft, ob der Dateiname noch den Konventionen des Dateisystems entspricht?
Pfadlänge mit Dateiname noch unter maximaler Länge (z.B. 260 Zeichen)?
Ist das externe Laufwerk irgendwas besonderes? Also z.B. ein NAS-Laufwerk?

[Heinz Mendax]

Hallo !
Ergänzung : die externen Festplatten sind USB-Laufwerke
- Dateien einunddesselben Verzeichnisses gehen oder gehen nicht umzunennen
- Dateien ist das Archivbit gesetzt
- es werden Dateinamen von der Form 2017-06-23_ACDF_DSCF3203.mpo erzeugt oder JPG usw.
- es wird aber kein Fehler gemeldet (Windows)

Die RenameFile - Routine gibt eine Zahl oder 0 zurück, falls ein Fehler passiert. Wenn dieser Fall praktisch
vorgesehen ist, muß es doch Mittel dagegen geben.

[Kiffi]

Hallo Heinz,

zu Debug-Zwecken kannst Du Dir ja mal die Namen der Dateien ausgeben lassen, bei denen ein RenameFile() fehlschlägt. Vielleicht lässt sich da ein Muster erkennen.

Code: Alles auswählen

Result = RenameFile(OldFilename$, NewFilename$)

If Result = 0
	Debug "RenameFile() fehlgeschlagen!"
	Debug "OldFilename: '" + OldFilename$ + "'"
	Debug "NewFilename: '" + NewFilename$ + "'"
	Debug "-----"
EndIf

Grüße ... Peter

[Nino]

Beim Debuggen ist erg manchmal 0 - dh. RenameFile funktionierte nicht.

Ich würde das Ergebnis auch im Normalbetrieb immer auswerten, nicht nur beim Debuggen. Falls Fehler auftreten, kann das Programm die Einzelheiten in eine Log-Datei schreiben und am Schluss eine kurze Meldung ausgeben.

[GPI]

Eventuell ist die Datei noch geschützt - weil irgendein Programm noch zugreift (Virenscanner, Upload, wasweisichdenn).

Probier mal folgendes:

Code: Alles auswählen

for loop = 1 to 5 
  Result = RenameFile(OldFilename$, NewFilename$)
  if result
    break
  else
    delay(100)
  endif
next
if result=0
  debug "[ERROR]"+Oldfilname$+" => "+NewFilename$
endif

Hier werden dann 5 Versuche unternommen - und maximal eine halbe Sekunde gewartet.

[Heinz Mendax]

Hallo !

Habe die Fehlerabfrage mit Delay eingebaut. Das Umnennen klappt nicht bei bestimmten Dateien eines Verzeichnisses.
Vielleicht ist doch eine Datei geöffnet o.ä. , da die Bilder kurz vorher angezeigt werden mit:

Code: Alles auswählen

  Ergebnis = ResizeImage(1, w3, h3, #PB_Image_Smooth)
 If image ;(2)
    OpenWindow(1,0,0,w3,h3,a1$,#PB_Window_ScreenCentered)        (a1$ ist der Pfad des Bildes)
    ImageGadget(1,0,0,w3,h3,Ergebnis) 

       Repeat 
      Select WaitWindowEvent() 
        Case #PB_Event_CloseWindow :CloseWindow(1): Goto weiter
        Case #WM_RBUTTONUP         : CloseWindow(1): Goto weiter    
      EndSelect 
     ForEver 
  EndIf ;(2)

Ein Click mit der Maus schließt das Fenster. Ist hier im Code etwas unvollständig, was die Datei nicht immer freigibt.
mfG
Heinz

NicTheQuick: Code-Tags hinzugefügt

[GPI]

Case #PB_Event_CloseWindow :CloseWindow(1): Goto weiter
Case #WM_RBUTTONUP : CloseWindow(1): Goto weiter

Bitte sag mir, das du nicht ernsthaft aus einer schleife mittels Goto rausspringst....

Grausam, einfach nur grausam.

[TroaX]

Sah für mich eher nach Pseudo-Code aus das Goto

Aber bau mal nach der Anzeige des Fensters und dem Bild ein Delay von vllt. 50 ms ein. Danach sollte das File eigentlich frei sein. Wenn das nicht der Fall ist, kann es sein, das du vergisst, nach dem Laden der Datei selbige wieder zu schließen?