Utilizacion del CommonDialog en vb 6

[buxforever]

Tengo una duda, hice una aplicacion la cual consta de un commondialog...

Como puedo hacer que los botones que tiene un commondialog programarlos, Por ejemplo:

Tengo el boton de abrir del commondialog y cancelar lo que quiero hacer es programar el boton de abrir para que al momento de seleccionar un archivo y darle abrir me lo mande el archivo a un dispositivo por ejempo: Una memoria USB

Estuve haciendo algunas pruebas, pero no encuentro el modo

Por eso me decidi a preguntar aqui para darme una idea de como realizar eso

[pkj]

Cuando pinchas Abrir, el nombre del fichero que has seleccionado se encuentra en la propiedad .FileName del CommonDialog.
Para copiarlo a otro sitio puedes usar FileCopy

FileCopy CommonDialog1.FileName, "F:\" & Dir$(CommonDialog1.FileName)

[seba123neo]

Hoal, antes de usar la propiedad FileName, chequea que esta sea desigual a "" para que no te tire error, si es "" es porque le dio al boton "Cancelar"

saludos.

[buxforever]

Muchas gracias pkj me sirvio mucho este codigo....

FileCopy CommonDialog1.FileName, "F:\" & Dir$(CommonDialog1.FileName)

Pero veo que este solo es caso de que la memoria este como unidad "F" pero en caso de que mi memoria estuviera en caso "E", "G" como lo pondria para enviar unicame a la memoria si esto implicaria cambiar de computadora despues...

[pkj]

Puedes guardar el valor de .FileName en una variable de cadena y volver a usar el CommonDialog para buscar donde guardarlo, pero en lugar de .ShowOpen pones .ShowSave.
Buscas el destino y lo copias:

Dim Fichero As String
Fichero = CommonDialog1.FileName

CommonDialog1.ShowSave

FileCopy Fichero, CommonDialog1.FileName

[buxforever]

Actuamente asi tengo el codigo

With CommonDialog1
''Muestra el titulo del cuadro de dialogo
.DialogTitle = " Seleccione la base de datos a extraer "

''Abrimos cuadro de dialogo en modo (Showsave)
.ShowSave

'Muestra el nombre del archivo dentro del panel de seleccion del cuadro de dialogo
If .FileName <> "" Then

''''Indica al Cuadro de Dialogo(CommonDialog) la ruta a la cual va extraer la base de datos correspondiente
FileCopy CommonDialog1.FileName, "F:\" & Dir$(CommonDialog1.FileName)
'' Muestra la Alerta indicando que la accion fue completada satisfactoriamente
If MsgBox("Base de datos extraida satisfactoriamente", vbOK + vbInformation, "Modulo") = vbOK Then '''En el caso del boton OK (SALIR)
End
Else ''De lo contrario
.ShowSave '''Volver a cargar el Cuadro Dialogo
End If
Else
''Mensaje de Alerta en caso de que no se seleccione ningun archivo
If MsgBox("No se ha seleccionado ningún archivo, Deseas salir de todos modos ?", vbOK + vbExclamation, "Modulo") = vbOK Then
End
Else
.ShowSave
End If
End If
End With
End Sub

[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
 

[seba123neo]

solo una recomendación: en el futuro podes ver de utilizar las api's en vez de el control commondialog, porque sino dependes de un OCX.

saludos.

[buxforever]

Fijate que por algun motivo no me funciona tu codigo pkj, pero el que tenia anteriormente si me funcionaba solo que solo me mandaba a la memoria USB "F"

Código vb:

With CommonDialog1
''Muestra el titulo del cuadro de dialogo
.DialogTitle = " Seleccione la base de datos a extraer "
 
''Abrimos cuadro de dialogo en modo (Showsave)
.ShowSave
 
'Muestra el nombre del archivo dentro del panel de seleccion del cuadro de dialogo
If .FileName <> "" Then
 
''''Indica al Cuadro de Dialogo(CommonDialog) la ruta a la cual va extraer la base de datos correspondiente
FileCopy CommonDialog1.FileName, "F:\" & Dir$(CommonDialog1.FileName)
'' Muestra la Alerta indicando que la accion fue completada satisfactoriamente
If MsgBox("Base de datos extraida satisfactoriamente", vbOK + vbInformation, "Modulo") = vbOK Then '''En el caso del boton OK (SALIR)
End
Else ''De lo contrario
.ShowSave '''Volver a cargar el Cuadro Dialogo
End If
Else
''Mensaje de Alerta en caso de que no se seleccione ningun archivo
If MsgBox("No se ha seleccionado ningún archivo, Deseas salir de todos modos ?", vbOK + vbExclamation, "Modulo") = vbOK Then
End
Else
.ShowSave
End If
End If
End With
End Sub
 

El problema esta en esta linea:

Código vb:

FileCopy CommonDialog1.FileName, "F:\" & Dir$(CommonDialog1.FileName)
 

Que solo envia a la ruta "F" alguien conoce indicar la ruta mediante un DriveListbox....

Y tu codigo no me funciono al momento de guardar la base no funciono

[pkj]

Sorry, se me ha colado un fallo.

Esta línea:

Fichero = .FileName

Debe ser:

Nombre = .FileName

Creo la variable "Nombre" y después voy y pongo "Fichero"... que tontorrón.

Saludos

[buxforever]

Ok muchas gracias por la ayuda prestada...

Saludos