卫生间里强上新娘:vb中如何保存文件,我建立了save事件,但是不能生成保存文件!!

来源:百度文库 编辑:高考问答 时间:2024/05/04 21:52:59
我用CommonDialog控件保存文件,但是保存后没有文件生成! 下面是我的代码!
我知道这不是真正的保存代码,要如何完成保存,请大家帮我,谢谢!!!
Private Sub mnuSave_Click()
CommonDialog1.CancelError = True
On Error GoTo ErrHandler

CommonDialog1.DefaultExt = "txt"
CommonDialog1.FileName = "100"
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
"(*.txt)|*.txt|Batch Files (*.bat)|*.bat"

CommonDialog1.FilterIndex = 2
CommonDialog1.DialogTitle = "saveflie as_(*.txt)"

CommonDialog1.Flags =vbofnoverwriteprompt_ Or vbofnpathmustexist
CommonDialog1.Action = 2
MsgBox CommonDialog1.FileName
Exit Sub

ErrHandler:

Exit Sub

End Sub

这个好象在刚开始就要在一个盘里建立一个文件夹...
在进VB新建一个程序名字...指定保存到刚建的文件夹...
这样应该就可以了...试试吧...!