(1)
         Else
            .InitialDir = App.Path
         End If
         .FileSystemOnly = True
         .Title = ""
      End With
      .Show fC
   End With
   If Not fC.Cancelled Then
      ' Add selected location to the extract dir:
      m_cExtractToMRU.Add fC.SelectedFolder
      ' Store the selected options:
      m_cUnzip.PromptToOverwrite = fC.OverwritePrompt
      m_cUnzip.UseFolderNames = fC.UseFolderNames
      
      GetFolder = fC.SelectedFolder
   End If
End Function

Private Sub cmdInve