Utilizacion del CommonDialog en vb 6

[pkj]

Creo que lo mas fácil sería algo como esto:

Código vb:

Dim Nombre As String
  With CommonDialog1
    ''Muestra el titulo del cuadro de dialogo
    .DialogTitle = " Seleccione la base de datos a extraer "
    .FileName = ""
Repite:
    ''Abrimos cuadro de dialogo en modo (Showsave)
    .ShowOpen ' .ShowSave
    
    If .FileName = "" Then
      If MsgBox("No se ha seleccionado ningún archivo, Deseas salir de todos modos ?", vbOK + vbExclamation, "Modulo") = vbOK Then End
      GoTo Repite
    End If
    
    Fichero = .FileName
    
    .DialogTitle = " Seleccione la base de datos a guardar "
    .FileName = ""
Repite2:
    .ShowSave
    If .FileName = "" Then
      If MsgBox("No se ha seleccionado ningún archivo, Deseas salir de todos modos ?", vbOK + vbExclamation, "Modulo") = vbOK Then End
      GoTo Repite2
    End If
    
    FileCopy Nombre, .FileName
    End
  End With