AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Pfad zu einer Datei Variabel!!??

Ein Thema von srx · begonnen am 27. Aug 2007 · letzter Beitrag vom 27. Aug 2007
 
srx

Registriert seit: 27. Aug 2007
13 Beiträge
 
Delphi 2007 Enterprise
 
#1

Pfad zu einer Datei Variabel!!??

  Alt 27. Aug 2007, 17:08
Hi,
mein Problem ist folgendes:

ich versuche, dass eine Datei aus einem variablen Pfad in einen bestimmten Pfad kopiert wird.

Delphi-Quellcode:
function CopyFileEx(const ASource, ADest: String;
 ARenameCheck: boolean = false): boolean;
var
  sh: TSHFileOpStruct;
begin
  sh.Wnd := Application.Handle;
  sh.wFunc := FO_COPY;

  // String muss mit #0#0 Terminiert werden, um das Listenende zu setzen
  sh.pFrom := PChar(ASource + #0);
  sh.pTo := PChar(ADest + #0);
  sh.fFlags := fof_Silent or fof_MultiDestFiles;
  if ARenameCheck then
    sh.fFlags := sh.fFlags or fof_RenameOnCollision;
  Result:=ShFileOperation(sh)=0;
end;
Das war jetzt die function, falls ihr es nochmal sehen wollt.

jetzt kommt der interessante part

Delphi-Quellcode:
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
          if CheckBox1.Checked then
          begin
              if CopyFile(PChar('...\Datei.txt'), PChar('C:\user\xxx\Desktop\Datei.neu.txt'), False) then
So dort habe ich ja jetzt einfach ...\datei geschrieben, allerdings findet er dann nichts!

könnt ihr mir da weiterhelfen ?
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:30 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz