03-03-2012، 08:31 PM
تابع مذکور بدون شرح :
نحوه استفاده :
کد:
Function ShowOpenW(Optional Owner As Long = 0&, Optional inFilter As String = "All (*.*)| *.*") As String
........
........
mFileSpec = ""
m_FileExtIndexOnOpen = -1
If mResult = 1 Then
If typOpenFile.nFileOffset Then
i = InStr(typOpenFile.nFileOffset, typOpenFile.lpstrFile, vbNullChar) - 1&
If i = 0 Then
i = Len(typOpenFile.lpstrFile)
End If
Else
i = Len(typOpenFile.lpstrFile))
End If
'Fill in mFileSpec
If i > 0 Then
mFileSpec = Left$(typOpenFile.lpstrFile, i)
' Note down for possible use of calling program, e.g. to set file pattern
' "*.*" when a certain nFilterIndex has been selected.
m_FileExtIndexOnOpen = typOpenFile.nFilterIndex
End If
Else
If mResult <> 0 Then ' 0 is Cancel, else extended error
m_lExtendedError = CommDlgExtendedError()
End If
End If
' Return file spec
ShowOpenW = mFileSpec
End Functionنحوه استفاده :
کد:
If returnedFileSpec = "" then
If cUniDialog.ExtendedErrorNum <> 0 then
'Flag what is the error description
cUniDialog.FlagErrMsg cUniDialog.ExtendedErrorNum
End If
End if