各位先進:
我寫了一個程式去將不同資料夾,利用一個Table進行比對,然後將比對符合之File做Move,可是經RUN以下procedure時總是有一個File會有
問題,而我已經Check過Source和Destnation的Path和Filename皆沒問題,然後去測是不是File的內容和Size去影響它,可是還是沒辦法測出,且符合的File共有10個,每次都只有一個File會有問題,不知是何問題?

請不吝賜教!!

[code delphi]
procedure TForm1.FileMove( Const SourceFileName, DestFileName: String );
var FileMove:TShFileOpStruct;
begin
FileMove.Wnd:=Handle;
FileMove.wFunc:=FO_MOVE;
FileMove.pFrom:=PChar(SourceFileName);
FileMove.pTo:=PChar(DestFileName);
FileMove.fFlags:=FOF_ALLOWUNDO or FOF_RENAMEONCOLLISION or fof_noconfirmmkdir;
if ShFileOperation(FileMove)<>0 then
ShowMessage(SourceFileName);
end;
[/code]

------
對權威愚忠就是真理最大的敵人!!

可以直接用win api filemove,應該比較不會有問題吧

------
.......

那可否請教各位先進:
如何使用win api filemove?
不知有沒有範例.
Thank you a lot!!

------
對權威愚忠就是真理最大的敵人!!

MoveFile(PChar('c:\aa.txt'), PChar('d:\aa.txt'));

------
.......

cat200188您好:

我試過沒問題羅!!

Thanks a lots!!

------
對權威愚忠就是真理最大的敵人!!