Как скопировать с диска файлы

[aesoem]

здравствуйте, помогите найти способ как скопировать полностью содержимое диска на винт';

[AlDelta]

А в чем собственно проблема? Где заминка?

[aesoem]

я нашол в нете код полностью но при копировании оно говорит что нет прав какихто и по сей день вопрос не решился дайте вашу версию кода пожалуйста

[eoln]

var
  OpStruc: TSHFileOpStruct; 
  frombuf, tobuf: Array [0..128] of Char; 
begin
  FillChar( frombuf, Sizeof(frombuf), 0 ); 
  FillChar( tobuf, Sizeof(tobuf), 0 ); 
  StrPCopy( frombuf, 'A:\*.*' ); 
  StrPCopy( tobuf, 'C:\' ); 
  with OpStruc do begin 
    Wnd := Handle; 
    wFunc := FO_COPY; 
    pFrom := @frombuf; 
    pTo := @tobuf; 
    fFlags := FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION; 
    fAnyOperationsAborted := False; 
    hNameMappings := Nil; 
    lpszProgressTitle := Nil; 
  end; 
  ShFileOperation( OpStruc ); 
end;

[Terran]

Можешь попробовать так:

Function FullDirectoryCopy(SourceDir, TargetDir: String; StopIfNotAllCopied,
OverWriteFiles: Boolean): Boolean;
Var
SR: TSearchRec;
I: Integer;
Begin
Result:=False;
SourceDir:= IncludeTrailingBackslash(SourceDir) ;
TargetDir:= IncludeTrailingBackslash(TargetDir) ;
If Not DirectoryExists(SourceDir) Then
Exit;
If Not ForceDirectories(TargetDir) Then
Exit;
I:=FindFirst(SourceDir + '*', FaAnyFile, SR);
Try
While I = 0 Do
Begin
If (SR.Name <> '') And (SR.Name <> '.') And (SR.Name <> '..') Then
Begin
If SR.Attr = FaDirectory Then
Result:= FullDirectoryCopy(SourceDir + SR.Name, TargetDir + SR.NAME,
StopIfNotAllCopied, OverWriteFiles)
Else
If Not (Not OverWriteFiles And FileExists(TargetDir + SR.Name)) Then
Result:= CopyFile(Pchar(SourceDir + SR.Name), Pchar(TargetDir + SR.Name), False)
Else
Result:=True;
If Not Result And StopIfNotAllCopied Then
Exit;
End;
I:=FindNext(SR);
End;
Finally
SysUtils.FindClose(SR);
End;
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
FullDirectoryCopy('E:\', 'D:\1\', False, True);
end;

[aesoem]

Terran, а как прогрес вставить?
eoln, код не работает штук 20 ошибок сразу

[aesoem]

И где можно прочесть статью о копировании файлов???

[Квэнди]

finfirst +f1
findnext+f1
copyfile +f1

[aesoem]

я так понял чтобы зделать прогрес нодо переменной которой мы присваиваем список файлов вызвать функцию Lehght
progressbar1.position:=length (Filesinfo); \\ filesinfo это к примеру переменная куда я занес список файлов... но где эта переменная в коде?

[eoln]

eoln, код не работает штук 20 ошибок сразу

uses ShellApi включаешь и всё - ни одной ашипки