关于文件的读写问题!!!

VCILOVE 2001-11-21 09:26:57
我这样将一个文件存成另外一个文件,对吗?
long flen,loops
integer filehandle1,filehandle2
bolb readfile

flen=filelength(filename1)
IF flen > 32765 THEN
IF Mod(flen, 32765) = 0 THEN
loops = flen/32765
ELSE
loops = (flen/32765) + 1
END IF

ELSE
loops = 1

END IF
filehandle1=fileopen(filename1,streammode!,read!,lockread!)
filehandle2=fileopen(filename2,streammode!,write!,lockwrite!,replace!)
if filehandle1=0 or filehandle2=0 then
messagebox("","错误")
return
end if
for i=1 to loops
fileread(filehandle1,readfile)
filewrite(filehandle2,readfile)
next
fileclose(filehandle1)
fileclose(filehandle2)
...全文
58 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
viewsea 2001-11-21
  • 打赏
  • 举报
回复
MoveFileA 是移动文件,删除旧文件。
如果是拷贝文件 可以用 CopyFileA .
viewsea 2001-11-21
  • 打赏
  • 举报
回复
用一个api函数就解决了,省得自己写那么多的程序。

Function boolean MoveFileA(string szexistingfile,string sznewfile) Library "kernel32.dll"

MoveFileA(oldfilename,newfilename)
双子东宝 2001-11-21
  • 打赏
  • 举报
回复
学习

1,079

社区成员

发帖
与我相关
我的任务
社区描述
PowerBuilder 相关问题讨论
社区管理员
  • 基础类社区
  • WorldMobile
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧