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
......................