急急急急急！！！关于文件的copy(50分)

royal666 · 2002-08-20

请问大家，我现在是将一个文件拷贝到另一个文件下，程序如下，怎样做我才能实现： 1.当源文件是空时，有一对话框显示“ 源文件是空 !” 2.当目标文件所在磁盘的空间小于源文件时显示“磁盘空间不足” 3.当与源文件重名时，显示“重名，是否改名继续？” 4.当拷贝完成时显示对话框“copy成功！” Function TForm1.Copydirectory(Source:string;pDirectory:string):boolean; //&Auml;&iquest;&Acirc;&frac14;&micro;&Auml;&iquest;&frac12;±&acute; var   OpStruc: TSHFileOpStruct;   frombuf, tobuf: Array [0..128] of Char; Begin   FillChar( frombuf, Sizeof(frombuf), 0 );   FillChar( tobuf, Sizeof(tobuf), 0 );   StrPCopy(frombuf, Source);   StrPCopy( tobuf, pdirectory);   if not directoryexists(pdirectory) then         if not createdir(pdirectory) then         begin             showmessage('&sup2;&raquo;&Auml;&Uuml;&acute;&acute;&frac12;¨&Auml;&iquest;&Acirc;&frac14;'+pdirectory+chr(13)+chr(10)+'&raquo;ò&Icirc;&THORN;&cedil;&Atilde;&Auml;&iquest;&Acirc;&frac14;&Egrave;¨&Iuml;&THORN;');             exit;         end;   With OpStruc DO Begin     Wnd:= 0;     wFunc:= FO_Copy;     pFrom:= @frombuf;     pTo:=@tobuf;     fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION or fof_filesonly;     fAnyOperationsAborted:= false;     hNameMappings:= Nil;     lpszProgressTitle:=PChar('&Otilde;&yacute;&Ocirc;&Uacute;&cedil;&acute;&Ouml;&AElig;&Icirc;&Auml;&frac14;&thorn;&frac14;&ETH;'+Source+'&micro;&frac12;'+pDirectory);   end;   try         ShFileOperation(OpStruc );         CopyDirectory:=true;   except        CopyDirectory:=false;        exit;   end; end; 谢谢大家！！！

chenxz · 2002-08-20

Function CopyFile(SrcFile:String;DstFile:String):Boolean; var  f:FILE;  fsize:longint;  diskfree:longint; begin       if not FileExists(DstFile) then ShowMessage('file is nil')       else if messagebox(0,'file exist,overwrite?','ask',mb_yesno) = idno then exit;       //get file size       AssignFile(f,SrcFile);       reset(f);       fsize := fielsize(f);       closefile(f);       diskfree := diskfree(0);//这里要处理到目标盘       if filesize >diskfree then showmessage('disk full');       if copyfile(SrcFile,DstFile,false) then showmessage('copy file suc')       else showmessage('copy file fail'); end;

royal666 · 2002-08-20

我是希望能用ShFileOperation来完成，可行吗？ 神阿，救救我！

jsxjd · 2002-08-21

用 fileexists 和 CopyFile不就行了。不需要用 ShFileOperation 在 ShFileOperation 中文件名后要加两个 char(0)

royal666 · 2002-08-21

就是象windows的资源管理器实现的功能一样，所以我觉得用ShFileOperation可以来完成，可具体是 怎么实现呢？急急急急！！！

jsxjd · 2002-08-21

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1258708

royal666 · 2002-08-21

大家都能说的详细些马？再次谢过了

royal666 · 2002-08-21

麻烦大家了，我真的是比较愚钝，能不能把源码写出来（最好能带注释的）（我接触delphi不久）？谢谢！！ 最好是用shellapi,但我也想知道delphi的实现方法，再次感谢！！！

royal666 · 2002-08-21

真没有人可以帮我吗？大富翁的高手都不屑回答此问题吗？

刘松ls · 2002-08-22

FileCopy()

刘松ls · 2002-08-22

这个问题该结束了吧

royal666 · 2002-08-22

怎样实现1.当源文件是空时，有一对话框显示“ 源文件是空 !” 2.当目标文件所在磁盘的空间小于源文件时显示“磁盘空间不足” 3.当与源文件重名时，显示“重名，是否改名继续？” 4.当拷贝完成时显示对话框“copy成功！”？？？？？？ 我还是一头雾水。 我知道我很笨，可大家不都是一步步来的吗？

jsxjd · 2002-08-22

procedure TForm1.Button1Click(Sender: TObject); var   s,s2:string;   fs:TFileStream;   n:integer; begin   s:='c:/windows/notepad.exe';   s2:='d:/bb.txt';   if not fileexists(s) then   begin     showmessage(Format('文件“%s”不存在！',));     exit;   end;   fs:=TFileStream.Create (s,fmOpenRead);   n:=fs.size;   fs.free;   if n =0 then   begin     showmessage(Format('文件“%s”是空的！',));     exit;   end;   if fileexists(s2) then     if (messagebox(handle,pchar('文件“'+s2+'”已存在,是否覆盖?'),       pchar('文件已存在'),MB_YESNO + MB_DEFBUTTON1)=IDNo)     then  exit;   if not copyfile(pchar(s),pchar(s2),false) then      showmessage('文件拷贝失败，请检查磁盘空间。'); end;

royal666 · 2002-08-22

那如何判断磁盘空间不足呢？

jsxjd · 2002-08-22

怎么要这么详细？显示是不是成功就行了？ GetDiskFreeSpace The GetDiskFreeSpace function retrieves information about the specified disk, including the amount of free space on the disk. This function has been superseded by the GetDiskFreeSpaceEx function. New Win32-based applications should use GetDiskFreeSpaceEx. BOOL GetDiskFreeSpace(   LPCTSTR lpRootPathName,    // pointer to root path   LPDWORD lpSectorsPerCluster,  // pointer to sectors per cluster   LPDWORD lpBytesPerSector,  // pointer to bytes per sector   LPDWORD lpNumberOfFreeClusters,                              // pointer to number of free clusters   LPDWORD lpTotalNumberOfClusters                              // pointer to total number of clusters );   Parameters lpRootPathName Pointer to a null-terminated string that specifies the root directory of the disk to return information about. If lpRootPathName is NULL, the function uses the root of the current directory. If this parameter is a UNC name, you must follow it with an additional backslash. For example, you would specify //MyServer/MyShare as //MyServer/MyShare/. Windows 95: The initial release of Windows 95 does not support UNC paths for the lpszRootPathName parameter. To query the free disk space using a UNC path, temporarily map the UNC path to a drive letter, query the free disk space on the drive, then remove the temporary mapping. Windows 95 OSR2 and later: UNC paths are supported. lpSectorsPerCluster Pointer to a variable for the number of sectors per cluster. lpBytesPerSector Pointer to a variable for the number of bytes per sector. lpNumberOfFreeClusters Pointer to a variable for the total number of free clusters on the disk that are available to the user associated with the calling thread. Windows NT 5.0 and later: If per-user disk quotas are in use, this value may be less than the total number of free clusters on the disk. lpTotalNumberOfClusters Pointer to a variable for the total number of clusters on the disk that are available to the user associated with the calling thread. Windows NT 5.0 and later: If per-user disk quotas are in use, this value may be less than the total number of clusters on the disk. Return Values If the function succeeds, the return value is nonzero. If the function fails, the return value is zero. To get extended error information, call GetLastError. Remarks The GetDiskFreeSpaceEx function lets you avoid the arithmetic required by the GetDiskFreeSpace function. Windows 95: The GetDiskFreeSpace function returns incorrect values for volumes that are larger than 2 gigabytes. The function caps the values stored into *lpNumberOfFreeClusters and *lpTotalNumberOfClusters so as to never report volume sizes that are greater than 2 gigabytes. Even on volumes that are smaller than 2 gigabytes, the values stored into *lpSectorsPerCluster, *lpNumberOfFreeClusters, and *lpTotalNumberOfClusters values may be incorrect. That is because the operating system manipulates the values so that computations with them yield the correct volume size.

royal666 · 2002-08-22

jxscd;用你的程序调试，不知为什么每次总是说文件不存在

jsxjd · 2002-08-22

上面的代码还不够清楚吗？   s:='c:/windows/notepad.exe';  //源文件   s2:='d:/bb.txt';           //目标文件

royal666 · 2002-08-22

对不起时我没说清楚 应该是目录的拷贝，流对目录没法操作

jsxjd · 2002-08-22

目录的拷贝我不是叫你到下面的地址去看嘛： http://www.delphibbs.com/delphibbs/dispq.asp?lid=1258708

royal666 · 2002-08-26

多人接受答案了。

急急急急急！！！关于文件的copy(50分)

royal666

Unregistered / Unconfirmed

chenxz

Unregistered / Unconfirmed

royal666

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

royal666

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

royal666

Unregistered / Unconfirmed

royal666

Unregistered / Unconfirmed

royal666

Unregistered / Unconfirmed

刘松ls

Unregistered / Unconfirmed

刘松ls

Unregistered / Unconfirmed

royal666

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

royal666

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

royal666

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

royal666

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

royal666

Unregistered / Unconfirmed

Similar threads