怎样复制、删除一个文件夹（该文件夹下包括文件或文件夹）？(50分)

45060203 · 2002-08-09

怎样复制、删除一个文件夹（该文件夹下包括文件或文件夹）？

LeeChange · 2002-08-09

FUNCTION DCF(s,t:String):Boolean; VAR      ShFileopStruct: TShFileOpStruct; BEGIN   WITH ShFileOpStruct DO BEGIN       Wnd:=0;       wFunc:=Fo_Copy;//fo_delete       pFrom:=PChar(s);       pTO:=PChar(t);       fFlags:= FOF_NOCONFIRMATION OR FOF_ALLOWUNDO ;   END;    DCF := ShFileOperation(ShFileOpStruct)=0; END;

45060203 · 2002-08-09

这个函数不能在nt上用

ugvanxk · 2002-08-09

function GetDirectory: String; begin   if not SelectDirectory(Result, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) then     Result := EmptyStr; end; procedure CopyDirectoryTree(AHandle: THandle; const AFromDirectory, AToDirectory: String); var   SHFileOpStruct: TSHFileOpStruct;   FromDir: PChar;   ToDir: PChar; begin   GetMem(FromDir, Length(AFromDirectory)+2);   try     GetMem(ToDir, Length(AToDirectory)+2);     try       FillChar(FromDir^, Length(AFromDirectory)+2, 0);       FillChar(ToDir^, Length(AToDirectory)+2, 0);       StrCopy(FromDir, PChar(AFromDirectory));       StrCopy(ToDir, PChar(AToDirectory));       with SHFileOpStruct do       begin         Wnd    := AHandle;   // Assign the window handle         wFunc  := FO_COPY;  // Specify a file copy         pFrom  := FromDir;         pTo    := ToDir;         fFlags := FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;         fAnyOperationsAborted := False;         hNameMappings := nil;         lpszProgressTitle := nil;         if SHFileOperation(SHFileOpStruct) <> 0 then           RaiseLastWin32Error;       end;     finally       FreeMem(ToDir, Length(AToDirectory)+2);     end;   finally     FreeMem(FromDir, Length(AFromDirectory)+2);   end; end; procedure ToRecycle(AHandle: THandle; const ADirName: String); var   SHFileOpStruct: TSHFileOpStruct;   DirName: PChar;   BufferSize: Cardinal; begin   BufferSize := Length(ADirName) +1 +1;   GetMem(DirName, BufferSize);   try     FillChar(DirName^, BufferSize, 0);     StrCopy(DirName, PChar(ADirName));     with SHFileOpStruct do     begin       Wnd := AHandle;       wFunc := FO_DELETE;       pFrom := DirName;       pTo := nil;       fFlags := FOF_ALLOWUNDO;       fAnyOperationsAborted := False;       hNameMappings := nil;       lpszProgressTitle := nil;     end;     if SHFileOperation(SHFileOpStruct) <> 0 then       RaiseLastWin32Error;   finally     FreeMem(DirName, BufferSize);   end; end; procedure TMainForm.spbtnGetFromDirClick(Sender: TObject); begin   edtFromDir.Text := GetDirectory; end; procedure TMainForm.spbtnGetToDirClick(Sender: TObject); begin   edtToDir.Text := GetDirectory; end; procedure TMainForm.btnCopyDirectoryClick(Sender: TObject); begin   CopyDirectoryTree(Handle, edtFromDir.Text, edtToDir.Text); end; procedure TMainForm.spbtnRecycleBinClick(Sender: TObject); begin   edtRecycleDir.Text := GetDirectory; end; procedure TMainForm.btnRecycleDirClick(Sender: TObject); begin   ToRecycle(0, edtRecycleDir.Text); end;

张无忌 · 2002-08-09

同意楼上，不过  pFrom:=PChar(s);       pTO:=PChar(t);很有可能要出问题，很多情况下会出错， 因为pTo和pFrom必须要用2个#0结尾！

redlegend_126_c · 2002-08-09

那只有用递归的方法一个一个删除吧！ 和查找文件一个道理！

autofish · 2002-08-09

SHFileOperation在Delphi的线程里面调用，会出现“无法读取源磁盘”的问题， 这种情况下只有自己用递归写一个了。

45060203 · 2002-08-16

接受答案了.

怎样复制、删除一个文件夹（该文件夹下包括文件或文件夹）？(50分)

45060203

Unregistered / Unconfirmed

LeeChange

Unregistered / Unconfirmed

45060203

Unregistered / Unconfirmed

ugvanxk

Unregistered / Unconfirmed

张无忌

Unregistered / Unconfirmed

redlegend_126_c

Unregistered / Unconfirmed

autofish

Unregistered / Unconfirmed

45060203

Unregistered / Unconfirmed

Similar threads