保存什么文件?'保存11.txt 到c:\
'保存内容:
'"Hello World",234
'
'#FALSE#," is a Boolean value"
'#1969-02-12#," is a date"
0A'#NULL#," is a null value"
0A'#ERROR 32767#," is an error value"Private Sub Command1_Click()0D
Open "c:\11.txt" For Output As #1   ' 打开输出文件。
Write #1, "Hello World", 234   ' 写入以逗号隔开的数据。
Write #1,   ' 写入空白行。
Dim MyBool, MyDate, MyNull, MyError
' 赋值 Boolean、Date、Null 及 Error 等。
MyBool = False: MyDate = #2/12/1969#: MyNull = Null
MyError = CVErr(32767)
' Boolean 数据以 #TRUE# 或 #FALSE# 的格式写入。
' 日期以通用日期格式写入,例如:#1994-07-13# 代表
' 1994 年 1 月 13 日。Null 数据以 #NULL# 格式写入。
' Error 数据以 #ERROR 错误代号# 的格式写入。
Write #1, MyBool; " is a Boolean value"
Write #1, MyDate; " is a date"
Write #1, MyNull; " is a null value"
Write #1, MyError; " is an error value"
Close #1   ' 关闭文件。
End Sub如果你有什么疑问 请给我留言  :)
http://www.csdn.net/Message_Board/Send.asp?sendto=sunxl
              .........一品黄山 天高云淡..........