file defination

Det jeg bruger nu er en kopiering til a:drevet men hvordan gør jeg via en savedialog? til anden placering f.eks et usb stik som jo bare er et virtuel drev

var
FOS :TSHFileOpStruct;
begin
with FOS do
begin
Wnd  := 0;
wFunc := FO_COPY;
pFrom := 'c:\programmer\test\program\vis*'#0;
pTo  := 'a:\program\backup'#0;
fFlags:= FOF_NOCONFIRMATION;
end;
SHFileOperation(FOS);
begin
with FOS do
begin
Wnd  := 0;
wFunc := FO_COPY;
pFrom := 'c:\programmer\test\program\hist*'#0;
pTo  := 'a:\program\backup'#0;
fFlags:= FOF_NOCONFIRMATION;
end;
SHFileOperation(FOS);

En SaveDialog kan sættes til "multiple files" så det må være noget i retningen dette:

var
  FOS : TSHFileOpStruct;
begin
  SaveDialog.Options := [ofHideReadOnly,ofAllowMultiSelect,ofFileMustExist,ofEnableSizing];
  SaveDialog.InitialDir := 'c:\programmer\test\program\vis';
  if SaveDialog.Execute then
  begin
    for i := 0 to SaveDialog.Files.Count - 1 do
    begin
      Filename := SaveDialog.Files[i];
      with FOS do
      begin
        Wnd := 0;
        wFunc := FO_COPY;
        pFrom := pchar(Filename);
        pTo  := 'a:\programmer\backup'#0;
        fFlags:= FOF_NOCONFIRMATION;
      end;
      SHFileOperation(FOS);
    end;
  end;

Det er ikke en SelectDirectory dialog til at sætte destinations-kataloget, du leder efter?

(Tillad mig i øvrigt at rette "generere". Det hedder "genererer").

måske det var nemmere det er...

alle backup filerne ligger i backup mappen, kan man med en savedialog gemme hele mappen på drev efter valg?

Så skal man ikke hen og definere de forskellige filer der skal gemmes via savedialog

Det var nok den pæneste løsning (men min løsning virker nu ellers). I ShellApi'et er der den dialog til at vælge katalog.

du skulle vel ikke have et eksempel liggende ?

procedure TForm1.Button1Click(Sender: TObject);
var
  Directory : string;
begin
  Directory := 'c:\windows';
  // Gammelt win3.11 layout.
  if SelectDirectory(Directory,[sdAllowCreate, sdPerformCreate, sdPrompt],0) then
    MessageDlg('Folder valgt: '+Directory, mtInformation, [mbOK], 0);

  // Nyt WinXP layout
  if SelectDirectory('Overskrift','c:\windows', Directory,[sdNewFolder, sdShowEdit, sdShowShares, sdNewUI, sdShowFiles, sdValidateDir],self) then
    MessageDlg('Folder valgt: '+Directory, mtInformation, [mbOK], 0);
end;

Hvis du vil kunne styre hvor dialogen skal stå på skærmen så læs her: http://delphi.about.com/od/windowsshellapi/l/aa122803a.htm

Jeg har smækket alle options på dialogerne så man kan se dem - sandsynligvis har du ikke brug for ret mange om du bruger en af dialogerne.

skal der uses noget får en fejl på SelectDirectory og alle options

FileCtrl er en god en at have med.

Et tip er i øvrigt at gå ind i Delphis\Source katalog og søge efter eksempelvis "SelectDirectory". Et kommandolinjeværktøj som Grep eller søgefunktionen i Servant Salamander (som jeg bruger (købt licens)), <alt-f7>. Windows' elendige søgefunktion kan sikkert også bruges.

hmm får stadig fejl på alle options, too many parameteres

I delphi\source har jeg kun rtl og webmidas

Nu kører du ikke en Delphi 1 på en Windows 3.11'er eller lignende, vel?

Jeg bruger D2006 Pro og der ligger FileCtrl.dcu i "\lib" og "\lib\debug" mens source-filen som du måske ikke har, ligger i "\source\Win32\vcl".

Hvis ikke dcu- og eventuelt pas-filen er der må du prøve at kalde den direkte (SHBrowseForFolder) sådan som About-Zarko beskriver.

jeg bruger d5 interprise

Den skulle da også være rigeligt - men det kan være at filectrl ikke er kommet med i den  version. Prøv About's eksempel må rådet være.

jo filectrl.dcu findes eller ville jeg få en fejl når jeg user den

jeg har kigget rundt på about - men kan simpelhen ikke finde det jeg skal bruge

Hvis du har filectrl så bør det også kunne virke; så stor forskel er der ikke på vcl-delen i D7 og D2006. Bruger du mit eksempel (som er testet) eller har du lavet dit eget? Den del med at Directory er en var-parameter drillede mit lidt - måske er du heller ikke opmærksom på den.

Mht. About. Hvad med det link som jeg lagde ved?

Jeg bruger dit eksempel... her får jeg en fejl (too many parameters) på alle options

[Error] Unit1.pas(49): Undeclared identifier: 'sdShowEdit'

Men fjerner jeg alle options så kører dit eksempel...
men den viser jo bare treestruktur på det valgte katalog og ikke alle tilgængelige drev - hvis jeg gerne vil have backup på et usb så er det jo nød til at blive vist i dialogen.

Jeg har kigget på about og kan ikke finde det jeg skal bruge,

som er: når koden køres så skal den kopiere mappen backup til det valgte sted i dialogen.

Jegt har siddet og leget lidt med savedialog og denne funktion og fået det næsten til at virke.

Der er bare det problem at man er nød til i savedialog at definerer filename som jeg har sat til backup, når jeg gemmer opretter den en mappe "backup" fint nok men næste gang jeg gemmer så opretter den igen en mappe"backup i mappen backup.

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;

//kalde function
if
savedialog1.Execute
then
CopyDir('c:\programmer\mitprogram\backup', Savedialog1.FileName);

giv lige et svar hrc...

Hermed et svar. Fik du løst ovenstående problem?

har en funktion som tjekker om mappen allerede eksisterer - gør den det så skal filerne kun overskrives ellers skal backup mappen oprettes