用API实现调用保存文件对话框

 

用API实现调用保存文件对话框 作者：不详 　来源于：中国VB网 　发布时间：2004-10-23

用API实现调用保存文件对话框 　　保存文件（另存为）对话框同样可以不使用ＶＢ的控件来实现，那就是ＡＰＩ函数GetSaveFileName。 　　首先需要将下面的ＡＰＩ函数声明写入一个模块中。 Option Explicit Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long Type OPENFILENAME lStructSize As Long hwndOwner As Long hInstance As Long lpstrFilter As String lpstrCustomFilter As String nMaxCustFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpstrInitialDir As String lpstrTitle As String flags As Long nFileOffset As Integer nFileExtension As Integer lpstrDefExt As String lCustData As Long lpfnHook As Long lpTemplateName As String End Type 　　下面是单击Command1命令按钮打开“保存”对话框的关键代码。 Option Explicit Private Sub Command1_Click() On Error GoTo cuowu Dim i As Integer Dim kuang As OPENFILENAME Dim filename As String kuang.lStructSize = Len(kuang) kuang.hwndOwner = Me.hWnd kuang.hInstance = App.hInstance kuang.lpstrFile = Space(254) kuang.nMaxFile = 255 kuang.lpstrFileTitle = Space(254) kuang.nMaxFileTitle = 255 kuang.lpstrInitialDir = App.Path kuang.flags = 6148 '过虑对话框文件类型 kuang.lpstrFilter = "文本文件 (*.TXT)" + Chr$(0) + "*.TXT" + Chr$(0) + "所有文件 (*.*)" + Chr$(0) + "*.*" + Chr$(0) '对话框标题栏文字 kuang.lpstrTitle = "保存文件的路径及文件名..." i = GetSaveFileName(kuang) '显示保存文件对话框 If i >= 1 Then '取得对话中用户选择输入的文件名及路径 filename = kuang.lpstrFile filename = Left(filename, InStr(filename, Chr(0)) - 1) End If If Len(filename) = 0 Then Exit Sub '保存代码 Exit Sub cuowu: Close #1 MsgBox "未知原因导致操作失败!" End Sub 　　当你在保存文件对话框中选择好了欲保存的文件路径并输入了文件名按下“保存”按钮，即会取得文件名（包含全路径）变量名filename的值，你可以据此在保存代码位置加入具体的保存文件代码。 　　以上代码在VB6、Win95/98/NT/Me/2000下调试通过。