var
txt:Textfile;
begin
assignfile(txt,'fafaf.xt');
rewrite(txt);
writeln(txt,'fafaf')
closefile(txt)
end;
txt:Textfile;
begin
assignfile(txt,'fafaf.xt');
rewrite(txt);
writeln(txt,'fafaf')
closefile(txt)
end;
解决方案 »
- 鼠标不移动,但是对某控件产生一个mouse_event的点击可行吗?
- MsgBox被至顶窗体盖住,如何用API的messagebox函数将MsgBox也至顶?
- 跪求打包后安装时'713'错误解决方法
- 控件不能加载,请高手指点!多谢!
- 写Outlook宏,要取发件人SMTP地址,但是显示全球通讯簿地址,求如何解析,或者何处有准确SMTP地址!
- 关于读取文本文件到数组?
- 关于winsock控件的使用?(网络)
- 这玩意有人见过吗?好像是查询网络中sql server数据库的,散分!
- 怎样利用ftp协议编辑远程文件
- 如何将程序缩到托盘栏
- 请问如何返回一个指定文件的路径???
- 如何在程序中调用其他商业程序
假如我新建的名字叫aaa,该怎么写呀?
初学者,多多指教
Dim FileNo As Long
FileNo = FreeFile()
Open "c:\aaa.txt" For Binary Access Write As #FileNo
End Sub
Open sFile For Output As lFree
print #lfree,....
....
close #lfree