Public Function ShowDir(MehWnd As Long, DirPath As String, Optional Title As String = "请选择文件夹：", Optional flage As Long = &H1, Optional DirID As Long) As Long
          Dim BI     As BROWSEINFO
          Dim TempID     As Long
          Dim TempStr     As String
            
          TempStr = String$(255, Chr$(0))
          With BI
             .hOwner = MehWnd
             .pidlRoot = 0
             .lpszTitle = Title + Chr$(0)
             .ulFlage = flage
          End With
            
          TempID = SHBrowseForFolder(BI)
          DirID = TempID
            
          If SHGetPathFromIDList(ByVal TempID, ByVal TempStr) Then
                  DirPath = Left$(TempStr, InStr(TempStr, Chr$(0)) - 1)
                  ShowDir = -1
                    
          Else
                  ShowDir = 0
                    
          End If
            
  End Function