保存对话框不提示覆盖的问题，急！！！！！！！！！
由于客户要求不能使用vb的common dialog，所以我使用API的GetSaveFileName方法来实现保存对话框的功能。代码如下：
Private Const OFN_HIDEREADONLY = &H4
Private Const OFN_OVERWRITEPROMPT = &H2
Private Declare Function GetSaveFileName Lib "comdlg32.dll " Alias "GetSaveFileNameA " (pOpenfilename As OPENFILENAME) As Long
Private 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
Public Function ShowSaveDialog(hwnd As Long) As String
Dim rtn As Integer
Dim ofn As OPENFILENAME
Dim fileName As String
On Error GoTo errExit
ofn.lStructSize = Len(ofn)
ofn.hwndOwner = hwnd
ofn.lpstrFile = "tablename.xls " + String$(255, Chr$(0))
ofn.nMaxFile = 255
ofn.lpstrFileTitle = String$(255, 0)
ofn.nMaxFileTitle = 255
ofn.lpstrInitialDir = Environ$( "currentDir ")
ofn.lpstrFilter = "Microsoft Excel " + Chr$(0) + "*.xls "
ofn.nFilterIndex = 1
ofn.flags = OFN_HIDEREADONLY + OFN_OVERWRITEPROMPT
ofn.lpstrTitle = "save file "
rtn = GetSaveFileName(ofn)
If rtn > = 1 Then
fileName = ofn.lpstrFile
fileName = Left(fileName, InStr(fileName, Chr(0)) - 1)
If InStr(fileName, ".xls ") < 1 Then
fileName = fileName + ".xls "
End If
ShowSaveDialog = fileName
End If
Exit Function
errExit:
Err.Raise Err.Number, Err.Source, Err.Description
End Function
问题是我指定了ofn.flags = OFN_OVERWRITEPROMPT，当我选择一个已有文件时，会给出是否覆盖提示，但是如果我手动输入一个已存在的文件名（不带扩展名）时，却没有提示直接覆盖了。有什么方法可以解决这个问题吗？
非常感谢
[解决办法]
如果你是想要覆盖提示，加上
ofn.lpstrDefExt = "xls "