关于vb中 commondialog的问题

来源：百度知道 编辑：UC知道 时间：2024/07/02 19:25:24
做了一个程序，计算完一组数据后要实现“保存，另存为”功能，还有“新建，打开”，是不是该用commondialog，代码怎么写，就像word中存为doc格式的，自己的后缀名怎么弄？在线等，希望高手帮帮忙，好的继续加分。
不要复制的，1楼的把其他的几个告诉我呢，你的只有“保存”

commondialog只是给了你打开，保存等的对话框，它只给你文件路径和名称。如果要实现具体的保存和打开还要用其他代码的。
比如打开（commondialog只是给了你"F:\d.txt"这个字符串而已）：
Open "F:\d.txt" For Binary As #1 '用二进制打开文件
Get #1, , sA '用Get语句从文件中获取字节
Text1 = sA '显示打开的文件
Close #1 '关闭文件

Dim p As String
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 设置标志
CommonDialog1.Flags = cdlOFNHideReadOnly
' 设置过滤器
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
"(*.txt)|*.txt|Batch Files (*.doc)|*.doc"
' 指定缺省的过滤器
CommonDialog1.FilterIndex = 3
' 显示“打开”对话框
CommonDialog1.fileName = "ppower" & Date
CommonDialog1.ShowSave

Call dbclose
If Dir(CommonDialog1.fileName) = "" Then
Call FileCopy(App.Path & "\Database\ppower.mdb", CommonDialog1.fileName)
MsgB