用FreeFile防止文件打开冲突
Open"myfile.txt"forAppendas#1
Print#1,"alineoftext"
Close#1
IntFile=FreeFile()
Open"myfile.txt"forAppendas#intFile
Print#intFile,"alineoftext"
Close#intFile->
Print#1,"alineoftext"
Close#1
IntFile=FreeFile()
Open"myfile.txt"forAppendas#intFile
Print#intFile,"alineoftext"
Close#intFile->
- 上一篇:将阿拉伯数字转成中文字的程式
- 下一篇:VisualBasic5.0中实现视频画中画
精彩图集
精彩文章