Question

vb怎么利用对话框在指定目录新建一个文件

我想用commondialog新建一个文件，但是点保存后，指定目录中并没有新建文件，还需添加什么代码？
Private Sub xj_Click()
CommonDialog1.DialogTitle = "请新建一个文件"
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|excel(*.xlsx)|*.xlsx|全部文件(*.*)|*.*"
CommonDialog1.FilterIndex = 1
CommonDialog1.InitDir = "D:\"
CommonDialog1.Flags = 16
CommonDialog1.ShowSave
End Sub

Answer 1

你的代码仅仅只选择了保存路径，但没有进行实质性的文件创建和写入。

CommonDialog1.FileName属性将返回你选择的文件夹路径，
然后你需要用Open CommonDialog1.FileName For [写入方式] As #Fn创建这个文件，
然后用Write或Print来写入你的数据，最后用Close #Fn来关闭文件。
#Fn可以用 Fn = FreeFile获取一个可用的文件号，写入方式如果是txt或简单xls文件可以用Output方式，如果需要追加可以用Append方式。（注意xlsx一般无法用Output方式读写，需要用Binary方式，比较复杂，如果没有必要，请使用txt或简单xls格式即可。）

关于VB6.0的Open文件操作具体可以参考以下地址：
http://www.360doc.com/content/10/0802/10/671103_43083290.shtml

追问

我在做一个本地字典软件，由于只是小白一枚，又是一时兴起，所以很多问题都不会，不知道能不能经常请教？QQ:1085521865

Answer 2

可你程序中并没有创建什么文件啊朋友

追问

那怎么解决呢，我想弹出一个对话框，选择一个文件夹，然后新建一个空白文件。小白一枚，我只是看这个很像我们平时新建文件时的样子就用了它。