vb调用保存对话框每次都会弹出的问题

greenicejq 2010-07-31 09:15:35

我在程序里面做了“保存”和“另存为”两个按钮，就像word一样。如果是新文件，第一次按“保存”的时候会让你选择保存的地址，没有关闭文件的情况下，再次按保存按钮，就按第一次存的地址存文件。而不是再次弹出保存对话框选择路径。

请教，这个怎么写程序？给个大概的例子。

...全文

154 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

zzyong00 2010-08-02

打赏
举报



    Dim filenum As Integer



    Static strFN As String



    On Error Resume Next



    If Dir(strFN) = "" Then



        With savefile

            .CancelError = True



            On Error GoTo ErrHandler



            .Flags = cdlOFNExplorer Or cdlOFNLongNames Or cdlOFNHelpButton

            .DialogTitle = "保存文件"

            .InitDir = "D:\communication\"

            .Filter = "所有文件（*.*)|*.*|文本文件" & "(*.c2)|*.c2|批文件(*.bat)|*.bat"

            .FilterIndex = 2

            .ShowSave

        End With



        strFN = savefile.FileName

    End If



    If Dir(strFN) <> "" Then

        filenum = FreeFile()

        Open savefile.FileName For Output As #filenum

        Write #filenum,****

        Close filenum

    End If

greenicejq 2010-08-02

打赏
举报

包括打开了一个文件，保存的时候按照打开的路径保存。现在还是保存的时候跳出保存对话框

greenicejq 2010-08-02

打赏
举报

再顶一下，看看还有没有人知道

jhjinpei 2010-08-01

打赏
举报

应该需要加一个全局变量来判断是不是第一次保存文件.

greenicejq 2010-07-31

打赏
举报

我的程序大致如下，我希望不要有太多的全局变量产生。
Private Sub mnu_save_Click()
Dim filenum As Integer

On Error Resume Next

With savefile
.CancelError = True
On Error GoTo ErrHandler
.Flags = cdlOFNExplorer Or _
cdlOFNLongNames Or _
cdlOFNHelpButton
.DialogTitle = "保存文件"
.InitDir = "D:\communication\"
.filter = "所有文件（*.*)|*.*|文本文件" & _
"(*.c2)|*.c2|批文件(*.bat)|*.bat"
.FilterIndex = 2
.ShowSave
End With

If savefile.filename <> "" Then
filenum = FreeFile()
Open savefile.filename For Output As #filenum
Write #filenum,****
Close filenum
End If