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:

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 :lol: [/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? :gruebel: