文件存储

jaycam 2004-10-06 05:09:59
在用VB保存文件时,怎么用自定义的文件名存储啊?

例如:
dim aaa as string
aaa=inputbox("输入文件名")
怎么把aaa当作文件名进行存储?
给个代码。。。
...全文
123 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
wang777610 2004-10-10
  • 打赏
  • 举报
回复
open filename for output as #1
那他的路径默认是那里?
loverpyh 2004-10-07
  • 打赏
  • 举报
回复
up
韩誉 2004-10-07
  • 打赏
  • 举报
回复
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

写代码最主要是注意想到周全,会冗错。要不你的程序一出错,就无缘无故出错退出不是就丢失数据了吗?那样的软件谁敢真的应用啊
Mars.CN 2004-10-06
  • 打赏
  • 举报
回复
该说的都说了!
frankwong 2004-10-06
  • 打赏
  • 举报
回复
dim filename as string
filename=input("请输入保存文件名")
if filename="" then '点击对话框的"取消"按键或者没有输入文件名
msgbox "请输入文件名"
else
Open filename For Output As #1 '创建一个新文件,如文件存在,则打开它
Print #1, "快乐爸爸" '对文件写入文本字符
Close #1 '关闭并保存文件
end if
'建议楼主使用commondialog控件的打开对话框来让用户输入文件名,这样可以省很多事
jaycam 2004-10-06
  • 打赏
  • 举报
回复
我说的是在程序运行时候用户自己来输入文件名,而不是在创建的时候定义
比如aaa=inputbox("输入文件名")
把aaa里的字符当作文件名,请高手指教~!
northwolves 2004-10-06
  • 打赏
  • 举报
回复
open aaa for output as #1
print #1,......
close #1

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

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧