如果是在本地机器或是共享的局域网,则可以:
copyfileto(原文件路径+原文件名,保存路径新文件名)
如将c:\a.txt copy 到 d:\ 并改名位b.txt则
copyfileto('c:\a.txt','d:\b.txt')
copyfileto(原文件路径+原文件名,保存路径新文件名)
如将c:\a.txt copy 到 d:\ 并改名位b.txt则
copyfileto('c:\a.txt','d:\b.txt')
解决方案 »
- delphi 局域网消息接收
- 服务程序访问数据库的问题
- activeX form的问题
- 如何在bmp文件(不同格式2色,16色,256色,24真彩色)中提取数据?
- Delphi7中的MD5与报表组件都跑哪去了?
- 关于两个DateTimePicker执行偱环的问题?
- 给不了分了,急!!提示:"贴子回复次数大于跟给分次数" how can i do??
- delphi版本有限制!你们是怎么解决的!!!!
- 请问如何取得当前excel进程中用户所选定的数据啊(急)
- 如何让Application.OnException能捕获子线程的异常?
- 怎么解决的方法。
- 一个关于sql2000 server的一个奇怪问题。
StrPath:String;
sList: TStrings;
TempDir: array[0..255] of Char; //用于得到临时文件夹路径
.....
sList:=TStringList.Create;
try
//得到系统临时目录路径
GetTempPath(255,@TempDir);
//载入指定要转换的Txt文件
sList.LoadFromFile(Trim(Edit1.Text));
sList.SaveToFile(StrPas(TempDir)+FormatDateTime('mmdd hhmmss',Now()+Trim(Edit1.Text));
finally
//释放sList资源
sList.Free;
end;
为什么用不了?
H:=fileopen('文件名');
nf:=timetostr(time)+'a.txt'
renamefile('旧文件名',nf)
操作不成功
------------------------------
你应该先关闭你打开的文件再RenameFile
dt:=time;
H:=fileopen('文件名');
nf:=timetostr(time)+'a.txt'
FileClose(H); --->要关闭它。
renamefile('旧文件名',nf)
--------------
使用前要不要加点什么 ?可以
renamefile('旧文件名','目录\新文件名')
H:=fileopen('文件名');
nf:=timetostr(time)+'a.txt'copyfile(pchar(H),pchar(nf),false);拷贝成功。
copyfile
movefile
renamefile
fileopen