在 win2000下，为什么我用movefileex()或movefile()把一个目录下的文件移动到另一个目录不行！急！

11 个解决方案

#1

使用另一个函数吧

#2

这是我的原代码 MoveFile(pchar(FileListBox1.FileName ),pchar(FileListBox1.Directory +ExtractFileName(FileListBox1.FileName ) ));
cobi!用什么其他函数呢？

#3

没有高手吗？我会给分的！

#4

不行的意思是出错还是没有效果？

MoveFile(pchar(FileListBox1.FileName ),pchar(FileListBox1.Directory +ExtractFileName(FileListBox1.FileName ) ));
一、怎么源文件和目标文件一样？
二、FileListBox1.Directory +ExtractFileName(FileListBox1.FileName )是不是中间缺了“\”？

#5

使用 SHFileOperation 函数，具体如下：
var
  FromFile : String;
  ToFile : String;
  SearchRec : TSearchRec;
  SHFileOpStruct: TSHFileOpStruct;
  FromDir: PChar;
  ToDir: PChar;

  FromFile := filename1;
  ToFile := filename2;

   GetMem(FromDir, Length(FromFile)+2);
    try
      GetMem(ToDir, Length(ToFile)+2);
      try
        FillChar(FromDir^, Length(FromFile)+2, 0);
        FillChar(ToDir^, Length(ToFile)+2, 0);

        StrCopy(FromDir, PChar(FromFile));
        StrCopy(ToDir, PChar(ToFile));

        with SHFileOpStruct do
        begin
          Wnd    := Handle;   // Assign the window handle
          wFunc  := FO_COPY;  // Specify a file copy
          pFrom  := FromDir;
          pTo    := ToDir;
          fFlags := 0;
          fAnyOperationsAborted := true;
          hNameMappings := nil;
          lpszProgressTitle := nil;
          if SHFileOperation(SHFileOpStruct) <> 0 then
            RaiseLastWin32Error;
        end;
      finally
        FreeMem(ToDir, Length(ToFile)+2);
      end;
    finally
      FreeMem(FromDir, Length(FromFile)+2);
    end;

至于你要做整个目录的拷贝，可以直接把目录名写完全就可以了，不用一个一个文件的拷贝。

#6

我的delphi6中没有这个TSHFileOpStruct对象！编译时提示：undeclared identifier:'TSHFileOpStruct'为什么，这样整个目录拷贝!

#7

不行是不能移动，文件没有一点反应！

#8

TSHFileOpStruct
use shellapi,windows

#9

用MoveFile的话，目标文件必须不存在，先检查一下。
MoveFile(pchar(FileListBox1.FileName ),pchar(FileListBox1.Directory +ExtractFileName(FileListBox1.FileName ) ));
这句的确有问题。
不过你可以判断MoveFile的返回值，0的话，用ShowMessage(SysErrorMessage(GetLastError()))
来看看是什么问题。

#10

可以在delphi下用dos的命令吗？怎样用！

#11

怎样给分！

#1