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:

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?