局域网中的文件复制进度和修改时间问题(100分)

在本机，我实现了文件复制进度条显示和获取文件的修改时间，
但是，无法从局域网中的其他机子上复制和时间提取，提示I/O错误；

恳求大哥帮助！

映射-〉复制-〉断开！

我的本意是编制自动更新程序。
先让诸客户端程序比对网上某一地址的主程序修改时间，如果有更新，则下载更新，并用进度条提示...

能提供源码吗？谢谢啦！

help!!!!!!

帮忙啊

先要登陆上其它机器才行。

楼上大哥,有源码吗?谢啦!!!

form上加上一个ProgressBar1控件
procedure TfrmMain.mycopyfile(sourcef, targetf: string);
var
FromF, ToF: file;
NumRead, NumWritten: Integer;
Buf: array[1..2048] of Char;
n: integer;
begin
AssignFile(FromF, sourcef);
Reset(FromF, 1); { Record size = 1 }
AssignFile(ToF, targetf); { Open output file }
Rewrite(ToF, 1); { Record size = 1 }
n := 0;
sb1.Panels[3].Text := '备份数据进度';
repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
ProgressBar1.Position := (sizeof(buf) * n * 100 div FileSize(FromF));
application.ProcessMessages;
//显示进度
BlockWrite(ToF, Buf, NumRead, NumWritten);
inc;
until (NumRead = 0) or (NumWritten <> NumRead);
sb1.Panels[3].text := '进度';
ProgressBar1.Position := 0;
CloseFile(FromF);
CloseFile(ToF);
end;

以上代码在局域网环境下复制执行到 Reset(FromF, 1);出错，I/O 123错误，如何解决？多谢！