dim filename as string
tt:filename=input$("请输入文件名")
if dir(filename)<>"" then '这一块是很重要的,要不可能会破坏了很重要的文件
t=msbox( "你输入的文件名" & filename & "已经存在,是否覆盖?",vbyesno)
if t=vbno then goto tt
end if
open filename for output as #1
print #1,"写到文件的内容一次不能太多 写入一次会自动加一个换行符 当分隔符"
close #1
dim filename as string
filename=input("请输入保存文件名")
if filename="" then '点击对话框的"取消"按键或者没有输入文件名
msgbox "请输入文件名"
else
Open filename For Output As #1 '创建一个新文件,如文件存在,则打开它
Print #1, "快乐爸爸" '对文件写入文本字符
Close #1 '关闭并保存文件
end if
'建议楼主使用commondialog控件的打开对话框来让用户输入文件名,这样可以省很多事