Visual Basic - problemas con el commondialog

Life is soft - evento anual de software empresarial
 
Vista:

problemas con el commondialog

Publicado por Carlos (3 intervenciones) el 10/02/2003 22:23:40
no me anda el showsave, me sale la ventana de guardar pero cuando guardo el archivo no se guarda. Lo mismo pasa con showprinter. El archivo que desep guardar o imprimir es un *.txt

Como hago para decirle al commondialog el texto que quiero guardar o imprimir???
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:problemas con el commondialog

Publicado por josé (129 intervenciones) el 10/02/2003 23:03:54
Hola Carlos

Por que no te fijas en lo que proporciona el mismo VB, es decir, puedes abrir un proyecto nuevo, pero escoges el Asistente de proyectos y si quieres, le das al botón "siguiente" hasta llegar al botón "Finalizar" y él te hará un prqueño proyecto y con ese ejemplo que te generó el VB, te fijas cómo hace lo del CommonDialog, ya que si abre y guarda un archivo .txt

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:problemas con el commondialog

Publicado por eperez (38 intervenciones) el 11/02/2003 09:48:04
Te mando un trozo de programa en el que utilizo showsave:

Private Sub mnuArchivoCopia_Click()
Dim destino, fuente As String
Dim resp As Integer
With CommonDialog1
.DialogTitle = "Realizar copia de seguridad"
.DefaultExt = "*.MDB"
.Filter = "Base de datos (*.mdb)|*.mdb|Archivos de texto (*.txt)|*.txt|Todos los archivos (*.*)|*.*"
.ShowSave
End With
fuente = "C:\base.mdb"
destino = CommonDialog1.FileName
On Error GoTo ManejadorError
FileCopy fuente, destino
MsgBox ("Copia de seguridad realizada")
Exit Sub
ManejadorError:
If Err.Number = 61 Then
resp = MsgBox("El disco de destino está lleno", vbAbortRetryIgnore)
If resp = vbRetry Or resp = vbIgnore Then
Resume
Else
Exit Sub
End If
Else
If Err.Number = 70 Then
MsgBox ("La Base de Datos está siendo utilizada en estos momentos, realice la copia en otro momento")
Else
If Err.Number <> 0 Then
MsgBox ("Error: " & Err.Number)
End If
End If
End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar