SHFileOperation的问题,还请各位高手赐教。
var
sh:TSHFileOpStruct;
begin
sh.Wnd:=Handle;
sh.pFrom:=PChar(edit1.Text);
//sh.pFrom:=PChar(edit1.Text+'*.*');
sh.pto:=PChar(edit2.Text);
sh.wFunc:=FO_MOVE;
sh.fFlags:=FOF_FILESONLY and FOF_SIMPLEPROGRESS ;
sh.lpszProgressTitle:=Pchar('Move File');
SHFileOperation(sh);
end;
有时候可以,不时候不可以,当不行的时候提醒下面的错误:
无法移动文件:无法读原文件或磁盘