Pfad zu einer Datei Variabel!!??

[srx]

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 ?

[s-off]

Hallo,

1. der Name Deiner eigenen Funktion lautet CopyFileEx
2. was soll er auch bei ... finden? Du musst ihm schon sagen, wo die Datei liegt. Wenn DU da variabel sein willst, dann musst Du den Aufruf Deiner Funktion variabel gestalten, aber einfach ... als Quelle übergeben... das kann ja nichts werden :wink:

Um Dir jetzt aber dabei helfen zu können, wie Du den Aufruf variabel gestaltest, wären noch ein bissel mehr Infos nicht schlecht - was willst Du erreichen?

[srx]

JO,

Also Ziel ist es, dass sich mein Programm eine Backup erstellt.
Da ich aber nicht weiß, wo das programm eingesetzt wird, muss es ja so programmiert sein, dass es einfach sich selbst findet und dann in einen festgelegten zb. (C:\programme\Chat\backup\) kopiert.

:coder:

ich hoffe ihr könnt meinen gedankengang nachvollziehen!

:bounce2:

[Muetze1]

1. Du bekommst den Pfad wo deine EXE liegt welche gerade ausgeführt wird mit

Delphi-Quellcode:

ExtractFilePath(Application.ExeName);

heraus.
2. Ist eine Angabe von . (aktuelles Verzeichnis) und .. (übergeordnetes Verzeichnis) möglich. Mehr als zwei Punkte: Was sollte dies bedeuten? Wenn dann so: ..\..\ usw.

[srx]

Zitat:

Zitat von Muetze1

1. Du bekommst den Pfad wo deine EXE liegt welche gerade ausgeführt wird mit

Delphi-Quellcode:

ExtractFilePath(Application.ExeName);

heraus.
2. Ist eine Angabe von . (aktuelles Verzeichnis) und .. (übergeordnetes Verzeichnis) möglich. Mehr als zwei Punkte: Was sollte dies bedeuten? Wenn dann so: ..\..\ usw.

Wie müsste es dann in meinem Fall aussehen, wenn der Name der Exe 'Chat' ist ?





:wiejetzt:

[DeddyH]

Moment: Du möchtest ein Programm schreiben, das sich selber "backupped"?

[srx]

Zitat:

Zitat von DeddyH

Moment: Du möchtest ein Programm schreiben, das sich selber "backupped"?

Ja,
da das Programm sich Backupped kann sich evtl. selbst wiedererstellen, falls es gelöscht oder beendet wird.

:thumb:

[DeddyH]

Delphi-Quellcode:

if CopyFileEx(ParamStr(0),neuer_Dateiname) then...

[srx]

Zitat:

Zitat von DeddyH

Delphi-Quellcode:

if CopyFileEx(ParamStr(0),neuer_Dateiname) then...

funktioniert nicht..

Delphi-Quellcode:

if CheckBox1.Checked then
          begin
              if CopyFile(ParamStr(0),Chat, PChar('B:\Backup.exe'), False) then
                    Memo1.Lines.Add('Backup create')
              else
                  RaiselastOSError;
          end
          else
          begin
              if DeleteFileToRecycleBin('B:\Backup.exe') then
              begin
                    EmptyRecycleBin;
                    Memo1.Lines.Add('Backup delete')
              end
              else
                    Memo1.Lines.Add('Backup delete :ERR')
          end;

da sagt er, dass der ParamStr (0) falsch ist ..

:duck:

[s-off]

Was macht das 'Chat' dort?

Delphi-Quellcode:

opyFile(ParamStr(0),Chat, PChar('B:\Backup.exe'), False)

[DeddyH]

Ich denke, Du willst die Funktion CopyFileEx verwenden :gruebel:

[srx]

Zitat:

Zitat von s-off

Was macht das 'Chat' dort?

Delphi-Quellcode:

opyFile(ParamStr(0),Chat, PChar('B:\Backup.exe'), False)

Chat

so heiß die .exe die kopiert werden soll

:roteyes:

[DeddyH]

Wenn die Chat.exe die Funktion aufruft, enthält ParamStr(0) den kompletten Pfad samt Dateinamen, Du musst ihn nicht extra angeben ;)

[s-off]

Die hat dort aber nix zu suchen, Du bedienst Dich doch ParamStr(0).

Edit: DeddyH. war schneller.
Die roter-Kasten-Sache ist ja ätzend. Ich bin dafür, dass Beiträge ausgecheckt werden müssen, wenn man sie bearbeitet :mrgreen:

[srx]

er sagt:

Inkompatible Typen 'string' und 'PAnsiChar'

und verweist auf die Stelle:

Delphi-Quellcode:

if CopyFile(ParamStr(0), PChar('B:\Backup.exe'), False) then

[s-off]

Delphi-Quellcode:

if CopyFile(PChar(ParamStr(0)), PChar('B:\Backup.exe'), False) then