论坛: 编程破解 标题: 在文件系统控件中freefile是什么意思 复制本贴地址    
作者: shen [shen]    论坛用户   登录
Private Sub Command1_Click()
  Dim lFile As Integer
    lFile = FreeFile
    Print FreeFile
    Open "c:\aw.txt" For Output As #lFile
      Write #lFile, Text1.Text
    Close lFile
End Sub

地主 发表时间: 04-09-24 14:34

论坛: 编程破解

20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写：NetDemon

粤ICP备05087286号