umbenennen von dateien in einem ordner

Lunzen · Beiträge: 29

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 · Beiträge: 344

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

markieren

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

_________________
Mit dem Computer löst man Probleme, die man ohne ihn nicht hätte.
Entwickler von SpaceTrek: The New Empire - Siehe Hompage!

cbs · Beiträge: 207 Erhaltene Danke: 1

tag auch

@Arakis ich glaube du hast

markieren

Quelltext

1:	CloseFile(F);

vergessen

Arakis · Beiträge: 344

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

_________________
Mit dem Computer löst man Probleme, die man ohne ihn nicht hätte.
Entwickler von SpaceTrek: The New Empire - Siehe Hompage!

cbs · Beiträge: 207 Erhaltene Danke: 1

ohje

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

tschuldigung!
:oops:

Arakis · Beiträge: 344

Au mann, du brauchst dich doch nicht dafür entschuldigen.

Jeder macht Fehler, irren ist menschlich :wink:

Bis dann

_________________
Mit dem Computer löst man Probleme, die man ohne ihn nicht hätte.
Entwickler von SpaceTrek: The New Empire - Siehe Hompage!

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

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 · Beiträge: 29

adde mich mal bitte tino ...

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

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

Ein Beispiel wie man nach Dateien sucht findest Du in der FAQ!

Gruß

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme