kopiere mappe til variabel placering

Intels processorer er i øjeblikket de stærkeste, men AMD kommer snart med et nyt udspil. Hvis du kunne vente... vidst ca. 1 måned.

?? du er i delphi kategori

Ved ikke hvad der gik galt. Den skulle være havnet her: http://www.eksperten.dk/spm/792296

Det må du undskylde.

Du kan bruge TShellTreeView eller TShellListView, i min D7 findes de under samples fanen.

Du kan bruge SelectDirectory fra FileCtrl-unitten.

I øvrigt må du godt prøve at læse spørgsmålet igennem inden du sender. Det er ikke let at forstå. Desuden "kopierer" man, ikke "kopiere".

Nu forstår jeg ikke du går lidt i sort pga.af en stavefejl, det er ikke som kritik men har bemærket det flere gange. Håber ikke du tager det ilde op, men er det ikke lige at køre det på en spids?

nå tilbage til spørgsmålet...

Har du et eksempel på at bruge SelectDirectory ?

Jeg synes ikke det er at køre det op i en spids, men du har netop ramt et ømt punkt.

Jeg sætter pris på, at når jeg bruger min tid på at hjælpe dig og andre, ikke skal spilde 5 minutter, spekulerende over hvad du mener. Så medmindre du går i 3'die klasse, er ordblind eller på anden måde lovligt undskyldt, har du ingen undskyldning for ikke at formulere dig bedre end du gør.

Når jeg ser manglende endelser, forkert/manglende brug af komma, kludder med de sammensatte ord eller genbrug af ord i samme sætning, er det en negl ned over en tydeligvis ubrugt skoletavle. Signalet er uprofessionelt - og hvor er det blevet hyppigt, især på internettet.

Nok ord fra krakileren (er vist ellers flink nok), over til eksemplet:

uses
  FileCtrl;

procedure TfrmMain.btnLookupClick(Sender: TObject);
var
  st : string;
begin
  st := trim(eDirectory.Text);
  if SelectDirectory('Vælg katalog','\',st,[]) then
    eDirectory.Text := trim(st);
end;

Jeg vil gå en anden vej med det her spørgsmål og vende tilbage til det med en variabel placering....

Hvordan kopierer man en helt mappe fra et sted til en anden ved at brugeren bare trykker på en button.

F.eks.

En mappe på placeringen c:\programmer\test\images

skal kopieres til placeringen c:\programmer\test\backup

Virker det eks. du selv linker til ikke?

function CopyDir(const fromDir, toDir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc  := FO_COPY;
    fFlags := FOF_FILESONLY;
    pFrom  := PChar(fromDir + #0);
    pTo    := PChar(toDir)
  end;
  Result := (0 = ShFileOperation(fos));
end;

--------
CopyDir('c:\programmer\test\images','c:\programmer\test\backup');

næ...Samme problem med copydir

Jeg har en anden bacup på samme button

procedure TBackup.dxButton1Click(Sender: TObject);
var
FOS :TSHFileOpStruct;
begin
with FOS do                //kopier databasen til biblioteket backup
begin
Wnd  := 0;
wFunc := FO_COPY;
pFrom := pchar(ExtractFilePath(Application.ExeName) + '\vilist*'#0);
pTo  := pchar(ExtractFilePath(Application.ExeName) + '\backup');
fFlags:= FOF_NOCONFIRMATION;
end;

Sætter jeg nedenstående linie ind

CopyDir('c:\programmer\test\images','c:\programmer\test\backup');

Får jeg fejlen [Error] Unit4.pas(164): Undeclared identifier: 'CopyDir'

Hvis jeg kun køre det eksempel du viser på den button så køre det.

Jeg har lige prøvet funktionen CopyDir fra dit link og det virker ganske fint her på Delphi 7 og Windows XP

Du får lige hele koden:
-----------------

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ShellApi;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function CopyDir(const fromDir, toDir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc  := FO_COPY;
    fFlags := FOF_FILESONLY;
    pFrom  := PChar(fromDir + #0);
    pTo    := PChar(toDir)
  end;
  Result := (0 = ShFileOperation(fos));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CopyDir('c:\hk\test','c:\hk\test2');
end;

end.

Min dxbutton1

Skal ikke kun køre denne kode: CopyDir('c:\programmer\test\images','c:\programmer\test\backup');

Men putter jeg linien


CopyDir('c:\programmer\test\images','c:\programmer\test\backup');

ind i nedenstående

procedure TBackup.dxButton1Click(Sender: TObject);
var
FOS :TSHFileOpStruct;
begin
with FOS do                //kopier databasen til biblioteket backup
begin
Wnd  := 0;
wFunc := FO_COPY;
pFrom := pchar(ExtractFilePath(Application.ExeName) + '\vilist*'#0);
pTo  := pchar(ExtractFilePath(Application.ExeName) + '\backup');
fFlags:= FOF_NOCONFIRMATION;
end;

Får jeg fejlen

[Error] Unit4.pas(164): Undeclared identifier: 'CopyDir'


Min procedure kopierer alle filer med navnet vilist til backup

Jeg kan ikke sige hvad der er galt uden at se hele koden.

Men hvis du smider funktionen CopyDir ind lige før din dxButton1Click så kan du også kalde den inde fra din TBackup.dxButton1Click procedure uden problemer.

hov hvis jeg flyttede funktionen op og indsatte som på nedenstående så virker det.

procedure TBackup.dxButton1Click(Sender: TObject);
var
FOS :TSHFileOpStruct;
begin
CopyDir('c:\programmer\test\images','c:\programmer\test\backup');
begin
with FOS do                //kopier databasen til biblioteket backup
begin
Wnd  := 0;
wFunc := FO_COPY;
pFrom := pchar(ExtractFilePath(Application.ExeName) + '\vilist*'#0);
pTo  := pchar(ExtractFilePath(Application.ExeName) + '\backup');
fFlags:= FOF_NOCONFIRMATION;
end;
end;

tak for hjælpen kroning

smid et svar.....

k