请问PB中如何让程序自动新建一个文件?

stillwater 2002-02-24 12:05:03
自动新建一个文件,并向其中写入内容
...全文
6 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
llitcwl 2002-02-24
直接打开写就行了,如下:
Long Ll_FileNo
String Ls_ErrorText
nvo_shell32 luo_shell
//按用户建立分别的调试信息日志
Ll_FileNo = FileOpen (luo_shell.uf_getusername( )+as_file , LineMode! , Write! , Shared! , Append!)
if mid(as_file,1,3)='sql' then
Ls_ErrorText = uf_GetErrorText (sqlca , as_sqltext_error , as_userid , '')
else
Ls_ErrorText = uf_GetErrorText (sqlca , as_sqltext_error , as_userid , as_appname)
end if

FileWrite (Ll_FileNo , Ls_ErrorText)

FileClose (Ll_FileNo)
回复
zhangnanonnet 2002-02-24
fopen(),如果没有这个文件,就会自己创建
回复
liyx326 2002-02-24
两位说得都很对!
回复
发帖
非技术版
创建于2007-09-28

379

社区成员

PowerBuilder 非技术版
申请成为版主
帖子事件
创建了帖子
2002-02-24 12:05
社区公告
暂无公告