Ordner Kopieren

[ferby]

Hallo,

Im Ornder A ist der Ordner B.
Ordner B hat viele unterordner und Dateien, ich möchte jetzt das ordner B (mit allen was drin ist + unterordner) beim klick auf einen Button kopiert wird und zwar in den Ordner A mit der bezeichnung B1, wenn ich nochmal diesen Button drücke dann B2 usw....

Ich weiß nicht wie die Befehle gehen um einen Ordner zu kopieren.
Wie Frage ich ab wiviele Bx Ordner es schon gibt?


Ist meine Frage versändlich?????




Ferby

[Sprint]

Suche in diesem Forum nach SHFileOperation, CopyFile & MoveFile.

[Matze]

Einfach suchen verzeichnis kopieren. Oder in der Code-Library gucken.

[ferby]

Hallo,

Ich habe jetzt selbst gesucht, nur nicht wirklich eine lösung gefunden, immer nur code den ich überhaupt nicht verstehe.
Wäre es möglich einfach mir den code zu schreiben wie ich einen ordner von a nach b kopiere und mir diesen quellcode zu erklären den rest versuche ich dann selbst zu machen.................

Ich habe nur gefunden

Delphi-Quellcode:

fos: TSHFileOpStruct;
begin

  with fos do
  begin
    wFunc  := FO_COPY;
    fFlags := FOF_FILESONLY;
    pFrom  := PChar('C:/test/a');
    pTo    := PChar('C:/test/b')
  end;

aber da tut sich überhaupt nichts....

[Matze]

Dann benutze das hier.

Nachtrag: Wie rufst du denn obigen Code auf? :gruebel:

[jfheins]

Falls du Fragen zu dem Konstrukt da hast:
http://msdn.microsoft.com/library/de...leopstruct.asp

[ferby]

Hallo,

danke, jetzt bin ich ein wenig weiter, ich schreibe wenn ich wieder ein problem habe.



ferby

[ferby]

Hallo,

Also jetzt habe ich ein Problemm...
irgendwo muss ein Denkfehler sein

if ferwende die funktion

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;

Und so ruf ich die funktion auf

Delphi-Quellcode:

  i:=0;
  while fileexists('C:\Programme\ferby\datenbank\kopie\data' + inttostr(i)) do inc(i);
  inc(i);
  copydir('C:\Programme\ferby\datenbank\data','C:\Programme\ferby\datenbank\kopie\data' + inttostr(i))

das erste mal macht er die kopie wenn ich dann aber noch eine koopie machen will dann mancht er keinen neuen ordner data2 usw....

[DelphiFreund]

Das hatte ich auch mal vor, ich hab mir ne Funktion geschrieben, die die Ordner mit allen Unterordnern erzeugt:

Delphi-Quellcode:

function CutPath(S: String): String;
var
  i, L: Integer;
begin
  Result:= '';
  L:= Length(S);
  if L = 0 then Exit;
  for i:= L - 1 downto 1 do begin
    if S[i] = '\' then begin
      Result:= Copy(S, 1, i - 1);
      Exit;
    end;
  end;
end;

function CreateFolders(S: String): Boolean;
var
  TempString: String;
  TempFolder: array of String;
  i: Integer;
begin
  i:= 0;
  TempString:= S;
  Result:= True;
  if DirectoryExists(S) then Exit;
  while not DirectoryExists(TempString) do begin
    if TempString = '' then begin
      TempFolder:= nil;
      Result:= False;
      Exit;
    end;
    Inc(i);
    SetLength(TempFolder, i);
    TempFolder[i - 1]:= TempString;
    TempString:= CutPath(TempString);
  end;
  while i > 0 do begin
    CreateDir(TempFolder[i - 1]);
    Dec(i);
  end;
  TempFolder:= nil;
end;

Du musst einfach den Pfad angeben, dann werden die Ordner erzeugt. Das eigentlich kopieren von Dateien, ist dann das kleinere Problem.

Gruß DelphiFreund

[Matze]

@ferby: ich denke eine while-Schleife ist da nicht angebracht und 2 x inc(i); wohl auch nicht.

Nachtrag: Und bitte immer die [delphi]-Tags verwenden.

[Binärbaum]

Zitat:

Zitat von ferby

Und so ruf ich die funktion auf

Delphi-Quellcode:

  i:=0;
  while fileexists('C:\Programme\ferby\datenbank\kopie\data' + inttostr(i)) do inc(i);
  inc(i);
  copydir('C:\Programme\ferby\datenbank\data','C:\Programme\ferby\datenbank\kopie\data' + inttostr(i))

das erste mal macht er die kopie wenn ich dann aber noch eine kopie machen will dann mancht er keinen neuen ordner data2 usw....

Das wir er auch nie, da FileExists IMHO nur die Existenz von Dateien, nicht die von Ordnern überprüfen kann. Also wird FileExists im obigen Beispiel immer False zurückgeben, auch wenn der Ordner existiert, da es ja keine Datei ist. Demzufolge wird also immer nach "C:\Programme\ferby\datenbank\kopie\data1" kopiert. Zu den Ordnern data2, data3 usw. kommt man nie.

MfG
Binärbaum

//Edit: Tippfehler

[Ultimator]

FolderExists ;-)

[DelphiFreund]

oder auch DirectoryExists(Directory: String);

[ferby]

Hallo,

jetzt gehts, danke an alle die mir geholfen haben,
hier der quelltext:

Delphi-Quellcode:

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 TDatenbank.button_sicherheitskopieClick(Sender: TObject);
var
i:integer;
begin
  i:=1;
  while DirectoryExists('C:\Programme\ferby\datenbank\kopie\data' + inttostr(i)) do inc(i);
  copydir('C:\Programme\ferby\datenbank\data','C:\Programme\ferby\datenbank\kopie\data' + inttostr(i))
end;

[retnyg]

Zitat:

Zitat von ferby

Delphi-Quellcode:

  while DirectoryExists('C:\Programme\ferby\datenbank\kopie\data' + inttostr(i)) do inc(i);
  copydir('C:\Programme\ferby\datenbank\data','C:\Programme\ferby\datenbank\kopie\data' + inttostr(i))

fehlt da nicht ein begin end ? ;)

[Binärbaum]

Zitat:

Zitat von retnyg

Zitat:

Zitat von ferby

Delphi-Quellcode:

  while DirectoryExists('C:\Programme\ferby\datenbank\kopie\data' + inttostr(i)) do inc(i);
  copydir('C:\Programme\ferby\datenbank\data','C:\Programme\ferby\datenbank\kopie\data' + inttostr(i))

fehlt da nicht ein begin end ? ;)

Nein, er will ja nur die Variable i hochzählen, bis das angegebene Verzeichnis nicht existiert, und erst dann soll der Ordner kopiert werden (so hab ich das zumindest verstanden). Es wird also nur einmal kopiert. Falls man mehrere Ordner haben will, muss man den Code halt mehrmals ausführen.

MfG
Binärbaum