文件存储

Question

在用VB保存文件时，怎么用自定义的文件名存储啊？例如：
dim aaa as string
aaa=inputbox("输入文件名")
怎么把aaa当作文件名进行存储？
给个代码

Answer 1

以文本文件aaa.txt为例:
Open "c:\aaa.txt" For Output As #1 '创建一个新文件,如文件存在,则打开它
Print #1, "快乐爸爸"  '对文件写入文本字符
Close #1  '关闭并保存文件

Answer 2

open aaa for output as #1
print #1,......
close #1

Answer 3

我说的是在程序运行时候用户自己来输入文件名，而不是在创建的时候定义
比如aaa=inputbox("输入文件名")
把aaa里的字符当作文件名，请高手指教~！

Answer 4

dim filename as string
filename=input("请输入保存文件名")
if filename="" then '点击对话框的"取消"按键或者没有输入文件名
    msgbox "请输入文件名"
else
    Open filename For Output As #1 '创建一个新文件,如文件存在,则打开它
    Print #1, "快乐爸爸"  '对文件写入文本字符
    Close #1  '关闭并保存文件
end if 
'建议楼主使用commondialog控件的打开对话框来让用户输入文件名,这样可以省很多事

Answer 5

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写代码最主要是注意想到周全，会冗错。要不你的程序一出错，就无缘无故出错退出不是就丢失数据了吗？那样的软件谁敢真的应用啊

Answer 6

open filename for output as #1
那他的路径默认是那里？