HaloMods "Classic" Read-only Archive

Code: Select all

    Dim sFile As String


   With dlgCommonDialog
       .DialogTitle = "Open"
       .CancelError = False
       'ToDo: set the flags and attributes of the common dialog control
       .Filter = "All Files (*.*)|*.*"
       .ShowOpen
       If Len(.FileName) = 0 Then
           Exit Sub
       End If
       sFile = .FileName
   End With
   'ToDo: add code to process the opened file