Dateien umbenennen mit unbekannten Parametern

**delphi-n**

Hi!

Ich würde gern ein "dateien-umbenenn-programm" schreiben.
Leider gibt es ein paar Probleme:

1. Ich hab kein Quellcode fürs umbenennen (

außer dem, aber da kommt das:

zusammenfalten · markieren

Delphi-Quellcode:

			Erzeugen

  [Fehler] Unit4.pas(44): Undefinierter Bezeichner: 'TSHFileOpStruct'

  [Fehler] Unit4.pas(46): Operator oder Semikolon fehlt

  [Fehler] Unit4.pas(47): Operator oder Semikolon fehlt

  [Fehler] Unit4.pas(50): Operator oder Semikolon fehlt

  [Fehler] Unit4.pas(51): Operator oder Semikolon fehlt

  [Fehler] Unit4.pas(52): Operator oder Semikolon fehlt

  [Fehler] Unit4.pas(52): Undefinierter Bezeichner: 'fof_MultiDestFiles'

  [Warnung] Unit4.pas(52): Vorzeichenbehaftete und -lose Typen werden kombiniert - beide Operanden werden erweitert

  [Fehler] Unit4.pas(54): Operator oder Semikolon fehlt

  [Fehler] Unit4.pas(54): Operator oder Semikolon fehlt

  [Warnung] Unit4.pas(54): Vorzeichenbehaftete und -lose Typen werden kombiniert - beide Operanden werden erweitert

  [Fehler] Unit4.pas(55): Undefinierter Bezeichner: 'ShFileOperation'

  [Warnung] Unit4.pas(55): Vorzeichenbehaftete und -lose Typen werden verglichen - beide Operanden werden erweitert

  [Fehler] Unit4.pas(95): Operator ist auf diesen Operandentyp nicht anwendbar

  [Fataler Fehler] Unit1.pas(44): Verwendete Unit 'Unit4.pas' kann nicht compiliert werden

2. Sie haben alle unterschiedliche endungen, die ja voher entfernt werden müssen (also z.B. String[5].Left.-4, oder so) Wie ist die genaue Anweisung dafür?

Vielen Dank schon mal für eure Antworten :)

**guinnes**

Hast du die ShellAPI eingebunden ?

**mkinzler**

Zitat:

Die Unit ShellApi muss eingebunden werden.

**Tryer**

1. Du solltest den Quelltext erst kopieren wenn Du auch den Text davor gelesen hast

2. Einfach rückwärts durchlaufen und vom Anfang bis zum ersten gefundenen '.' mit Copy() heraustrennen (Oder bis "Length - Length(ExtractFileExt())").

Grüsse, Dirk

**DeddyH**

Zitat:

Die Unit ShellApi muss eingebunden werden.

Soviel zu den Fehlermeldungen. Und zu den Dateiendungen, die heißen auf Englisch file extensions, die benötigten Funktionen demnach ExtractFileExt bzw. ChangeFileExt.

**guinnes**

Zitat von Tryer:

2. Einfach rückwärts durchlaufen und vom Anfang bis zum ersten gefundenen '.' mit Copy() heraustrennen (Oder bis "Length - Length(ExtractFileExt())").

Oder gleich mit ChangeFileExtension arbeiten

**DeddyH**

[OT] Eine halbe Stunde lang gar keine Antwort und dann 5 innerhalb von 2 Minuten

[/OT]

**delphi-n**

Zitat:

Und zu den Dateiendungen, die heißen auf Englisch file extensions, die benötigten Funktionen demnach ExtractFileExt bzw. ChangeFileExt.

danke, ich habe das gefunden:

http://www.delphibasics.co.uk/RTL.as...dCode1=Yes#Ex1

das müsste eigentlich besser sein, als das mit der ShellAPI (das ist eh viel zu komplieziert :D )

aber danke für die antworten :)

ich werd das gleich mal testen

**guinnes**

Damit benennst du die Datei aber nicht um, sondern Änderst nur die Endung

**DeddyH**

Ist das etwa kein Umbenennen?

Dateien umbenennen mit unbekannten Parametern

Dateien umbenennen mit unbekannten Parametern

Re: Dateien umbenennen mit unbekannten Parametern

Re: Dateien umbenennen mit unbekannten Parametern

Re: Dateien umbenennen mit unbekannten Parametern

Re: Dateien umbenennen mit unbekannten Parametern

Re: Dateien umbenennen mit unbekannten Parametern

Re: Dateien umbenennen mit unbekannten Parametern

Re: Dateien umbenennen mit unbekannten Parametern

Re: Dateien umbenennen mit unbekannten Parametern

Re: Dateien umbenennen mit unbekannten Parametern

Forumregeln

guinnes Registriert seit: 28. Feb 2007 Ort: Bottrop 265 Beiträge Delphi 5 Enterprise	#2 Re: Dateien umbenennen mit unbekannten Parametern 25. Sep 2009, 14:38 Hast du die ShellAPI eingebunden ? Glückauf
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.851 Beiträge Delphi 11 Alexandria	#3 Re: Dateien umbenennen mit unbekannten Parametern 25. Sep 2009, 14:38 Zitat: Die Unit ShellApi muss eingebunden werden. Markus Kinzler
	Zitat

Tryer Registriert seit: 16. Aug 2003 200 Beiträge	#4 Re: Dateien umbenennen mit unbekannten Parametern 25. Sep 2009, 14:39 1. Du solltest den Quelltext erst kopieren wenn Du auch den Text davor gelesen hast 2. Einfach rückwärts durchlaufen und vom Anfang bis zum ersten gefundenen '.' mit Copy() heraustrennen (Oder bis "Length - Length(ExtractFileExt())"). Grüsse, Dirk
	Zitat

guinnes Registriert seit: 28. Feb 2007 Ort: Bottrop 265 Beiträge Delphi 5 Enterprise	#6 Re: Dateien umbenennen mit unbekannten Parametern 25. Sep 2009, 14:40 Zitat von Tryer: 2. Einfach rückwärts durchlaufen und vom Anfang bis zum ersten gefundenen '.' mit Copy() heraustrennen (Oder bis "Length - Length(ExtractFileExt())"). Oder gleich mit ChangeFileExtension arbeiten Glückauf
	Zitat

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.540 Beiträge Delphi 11 Alexandria	#7 Re: Dateien umbenennen mit unbekannten Parametern 25. Sep 2009, 14:41 [OT] Eine halbe Stunde lang gar keine Antwort und dann 5 innerhalb von 2 Minuten [/OT] Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat

guinnes Registriert seit: 28. Feb 2007 Ort: Bottrop 265 Beiträge Delphi 5 Enterprise	#9 Re: Dateien umbenennen mit unbekannten Parametern 25. Sep 2009, 16:41 Damit benennst du die Datei aber nicht um, sondern Änderst nur die Endung Glückauf
	Zitat

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.540 Beiträge Delphi 11 Alexandria	#10 Re: Dateien umbenennen mit unbekannten Parametern 25. Sep 2009, 16:44 Ist das etwa kein Umbenennen? Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat