Entwickler-Ecke

Dateizugriff - umbenennen von dateien in einem ordner


Lunzen - Di 30.07.02 18:45
Titel: umbenennen von dateien in einem ordner
ich brauche mal wieder eure hilfe ... ich bin gerade dabei ein programm zu schreiben wo ich ein verzeichnis angebe und nach einer bestimmten endung gesucht wird. díese soll dann durch eine beliebig wählbare umbenannt werden .. kann mir da wer den kompletten code geben und nicht nur den befehel ...! also ich habe 3textfelder ( 1. alte endung, 2. neue endung, 3. verzeichnis ) ... und es sollen alle dateien mit der endung umbenannt werden und nicht nicht 1ne ..! :)

danke im voraus


Arakis - Di 30.07.02 19:01

Ich weiß nicht, ob dies der richtige Weg ist. Es ist sehr ratsam, es wenigstens selbst zu versuchen. Hier ist eine kleine Starthilfe:

Quelltext
1:
2:
3:
4:
5:
6:
procedure TForm1.FormCreate(Sender: TObject);
  var f:file;
begin
  AssignFile(f, 'c:\WinZip.log');
  rename(f, 'c:\WinZip.bak')
end;


Bis dann
user defined image


cbs - Di 30.07.02 19:05

tag auch

@Arakis ich glaube du hast

Quelltext
1:
CloseFile(F);                    

vergessen


Arakis - Di 30.07.02 19:07

user defined image
Ich hab sie doch gar nicht geöffnet, und außerdem habe ich diese Zeilen Code direkt aus der Delphi-Hilfe genommen, da war auch kein CloseFile(f).

Bis dann
user defined image


cbs - Di 30.07.02 19:09

ohje :oops:

hab grad nachgeguckt, hast recht
wenn du sie nicht öffnest mußt du sie auch net schließen

tschuldigung!
:oops: :oops:


Arakis - Di 30.07.02 19:15

Au mann, du brauchst dich doch nicht dafür entschuldigen. :P
Jeder macht Fehler, irren ist menschlich :wink:

Bis dann
user defined image


Tino - Di 30.07.02 19:38

Du kannst mit FindFirst und FindNext in einem Verzeichnis nach den entsprechenden Dateien suchen. Wenn Du eine gefunden hast kannst Du diese z. B. mit RenameFile (Unit SysUtils) umbenennen.

Gruß
TINO


Lunzen - Di 30.07.02 20:01

adde mich mal bitte tino ...


Tino - Di 30.07.02 22:32

Wo ist das Problem? Frag einfach. Dann werden wir Dir hier Antworten!

Ein Beispiel wie man nach Dateien sucht findest Du in der FAQ [http://www.auq.de/viewtopic.php?t=1107]!

Gruß