使用SHFileOperation剪切指定文件到指定路径
SHFileOperation只能移动文件到文件嘛?不能移动指定文件到指定路径?
这个很纠结啊。主要还是不是很懂这个。求大神们指点下。谢谢
制动
D:\移动出\IP4000
到
D:\制动进\下面。
支持多个文件的移动。
procedure TForm1.Button4Click(Sender: TObject);
var OpStruc: TSHFileOpStruct;
frombuf, tobuf: Array [0..128] of Char;
Begin
FillChar( frombuf, Sizeof(frombuf), 0 );
FillChar( tobuf, Sizeof(tobuf), 0 );
StrPCopy( frombuf, 'E:\移动出\IP4000.rar' );
StrPCopy( tobuf, 'E:\移动出\' );
With OpStruc DO Begin
Wnd:= Handle;
wFunc:= FO_MOVE;
pFrom:= @frombuf;
pTo:=@tobuf;
fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
fAnyOperationsAborted:= False;
hNameMappings:= Nil;
lpszProgressTitle:= Nil;
end;
ShFileOperation( OpStruc );
end;
这个只能是文件移动到文件。如果是这样写就无法执行。
[解决办法]
额。。你想想:文件复制过去不也是个文件么。。所以即使C:\B\B.TXT不存在,C:\A\A.TXT复制到C:\B\B.TXT也是成立的