Forum: Object-Pascal / Delphi-Language
by Matze,
27. Mai 2007
Bitte genau lesen und meine Code-Snippets zeigen das doch ebenfalls wunderschön! :wall:
Forum: Object-Pascal / Delphi-Language
by Matze,
27. Mai 2007
Dann pass die Pfade eben so an, wie du sie haben möchtest. Hier kann dir so keiner helfen, woher sollen wir denn deine Verzeichnisstruktur kennen. Wenn du es selbst absolut nicht hinbekommst, dann poste den Inhalt beider Variablen und wie die Pfade auszusehen haben. Doch ich denke, das schaffst auch du.
Übrigens kannst du auch mittels
ShowMessage(SysErrorMessage(GetLastError));
den...
Forum: Object-Pascal / Delphi-Language
by Matze,
27. Mai 2007
Ich habe oben vorhin noch etwas editiert, ich hoffe, du hast die aktuelle Version genommen.
Lass dir doch mal die Pfade mittels SchowMessage ausgeben und überprüfe, ob diese stimmen:
ShowMessage(AlterPfad + #13#10 + NeuerPfad);
Edit: Achja, du könntest den Titel mal umbenennen, sodass er etwas über's Kopieren von Dateien aussagt.
Forum: Object-Pascal / Delphi-Language
by Matze,
27. Mai 2007
Ohje, also, extra für dich, damit hier mal Schluss ist und ich ins Bett komme:
CopyFile(PChar(OpenDialog1.FileName),
PChar(IncludeTrailingPathDelimiter(ExtractFilePath(OpenDialog1.FileName)) +
'Bilder\' + ExtractFileName(OpenDialig1.FileName)), true);
Übersichtlicher:
AlterPfad := OpenDialog1.FileName;
NeuerPfad :=...
Forum: Object-Pascal / Delphi-Language
by Matze,
27. Mai 2007
ExtractFileName liefert dir etwas wie hallo.jpg, da weiß Windows natürlich nicht, wo es das hinkopieren soll. Lass diese Funktion einfach weg. Und der zweite Parameter erwartet ebenfalls einen kompletten Pfad einschließlich Dateiname.
Forum: Object-Pascal / Delphi-Language
by Matze,
27. Mai 2007
Dann nimm doch die Funktion, wie oft sollen wir dir das denn noch sagen. :wall:
Forum: Object-Pascal / Delphi-Language
by Matze,
27. Mai 2007
Du hast nach dem then auf jedenfall ein begin - end vergessen, aber was hast du denn vor?
Dateien kopiert man mit CopyFile.
Forum: Object-Pascal / Delphi-Language
by Matze,
27. Mai 2007
Wenn du nur den Dateinamen möchtest, dann nutze ExtractFileName, die Endung bekommst du mit ChangeFileExt weg, indem du als neue Endung einen leeren String übergibst. Doch da hätte dir die Suche auch geholfen.
Forum: Object-Pascal / Delphi-Language
by Matze,
27. Mai 2007
Die Dateinamen bekommst du so da hinein:
if OpenDialog1.Execute then
for i := 0 to OpenDialog1.Files.Count - 1 do
FileListBox1.Items.Add(OpenDialog1.Files);
Bei einer einzelnen Datei:
if OpenDialog1.Execute then
FileListBox1.Items.Add(OpenDialog1.FileName);