Abrir/Guardar/Guardar como desde Menu Contextual

oskarrr · #1 (**permalink**) 12/09/2011, 10:42

Buenas. Tengo creada una aplicación. Guardo y abro archivos sin problemas. Lo que quiero es que al darle a guardar, si aun no está guardado el archivo salga el diálogo tipo "Guardar como", y si ya está guardado, que con solo darle a guardar se guarde sin tener que decirle otra vez donde está el archivo.

Código:

'CODIGO PARA ABRIR ARCHIVO

Private Sub AbrirPresupuesto_Click()
Dim OFName As OPENFILENAME
Dim RutaArchivo As String
Dim Variable
       
    With OFName
        .lStructSize = Len(OFName)
        'Establecemos el hwnd del form
        .hwndOwner = Me.hWnd
        'Establecemos el numero de instancia de la aplicacion
        .hInstance = App.hInstance
        'Establecemos el filtro de archivos a mostrar, _
         en este caso txt y todos los ficheros
        .lpstrFilter = "Archivos de texto (*.txt)" + Chr$(0) + "*.txt" + Chr$(0) + _
                       "Todos los archivos (*.*)" + Chr$(0) + "*.*" + Chr$(0)
        'Acá debemos crear un buffer para el archivo
        .lpstrFile = Space$(254)
        'Establecemos el tamaño maximo retornado
        .nMaxFile = 255
        'Creamos un buffer para el titulo del archivo
        .lpstrFileTitle = Space$(254)
        'Establecemos el tamaño maximo retornado
        .nMaxFileTitle = 255
        'Establecemos el directorio por defecto que mostrará el dialogo
        '.lpstrInitialDir = "C:\"
        'El title
        .lpstrTitle = "Abrir archivos"
        'Flasgs que detereminan caracteristicas del dialogo
        .flags = 0
    End With
       
    
    'Abrimos el cuadro de diálogo pasándole _
     a GetOpenFileName la estructura anterior
    If GetOpenFileName(OFName) Then
        RutaArchivo = Trim$(OFName.lpstrFile)
        
            Open RutaArchivo For Input As #1
                        
            Dim linea As String, Total As String
            List1.Clear
            Do Until EOF(1)
            Line Input #1, linea
                List1.AddItem linea
            Loop
            
            Close #1
    SaveSetting "RutaArchivo", "Valores", "Path", txtruta.Text
    SaveSetting "NombreArchivo", "Valores", "Path", txtarchivo.Text

    Close #1
    

    End If
    

    
End Sub

Código:

'CÓDIGO "GUARDAR COMO"

Private Sub guardar_como_Click()
Dim sFile As String

'TareasPendientes: Agregar código 'mnuFileSaveAs_Click'.
'MsgBox "Agregar código 'mnuFileSaveAs_Click'."
With dlgCommonDialog
.DialogTitle = "Guardar"
.CancelError = False
'Pendiente: establecer los indicadores y atributos del control common dialog
.Filter = "Archivos de texto (*.txt)|*.txt|Todos los archivos (*.*)|*.*"

.ShowSave
If Len(.FileName) = 0 Then
Exit Sub
End If
sFile = .FileName
End With


Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
    
' Comprobar archivo
If fso.FileExists(sFile) = "Verdadero" Then
    If MsgBox("El archivo ya existe. ¿Desea reemplazarlo?", vbExclamation + vbYesNo, "Reemplazar Archivo") = vbYes Then
GoTo Sigueeee
End If
End If

Sigueeee:


Dim canalLibre As Integer
'Obtenemos un canal libre que nos dará
'el sistema oparativo para poder operar
canalLibre = FreeFile
' Abrimos el fichero en el canal dado
Open sFile For Output As #canalLibre

    
'Escribimos el contenido del TextBox al fichero
        Print #canalLibre, var1
        Print #canalLibre, var2
        
                
Close #canalLibre

SaveSetting "RutaArchivo", "Valores", "Path", txtruta.Text
SaveSetting "NombreArchivo", "Valores", "Path", txtarchivo.Text


End Sub

Código:

Private Sub Form_Load()



txtruta.Text = GetSetting("RutaArchivo", "Valores", "Path", "NO_HAY_PATH")
txtarchivo.Text = GetSetting("NombreArchivo", "Valores", "Path", "NO_HAY_PATH")

End Sub

lokoman · #2 (**permalink**) 15/09/2011, 15:15

Hola!!
Al momento de guardar pregunta lo siguiente:

Código vb:

Ver original'
   IF LEN(DIR(RUTA_ARCHIVO))=0 THEN
      'NO EXISTE, MOSTRAR GUARDAR COMO...
      Commondialog.ShowSave
   ELSE
      'EXISTE GUARDAR NORMALMENTE
      'TU CODIGO DE GUARDAR
      'TU CODIGO DE GUARDAR
      'TU CODIGO DE GUARDAR
   END IF

oskarrr · #3 (**permalink**) 16/09/2011, 00:11

Gracias. Lo había solucionado de manera menos profesional, pero funcionaba.

Código:

Declaro Guardado As Boolean '0 no está guardado. 1 está guardado.
Guardado=0

MenuGuardarComo
     Si fue bien -> Guardado=1

MenuGuardar
    If guardado=1
         muestro meno guardar como
    else
          oculto el menú de guardar y guardo directamente.
    end if

Ahora me surge otra pregunta. Para no tener que repetir las instrucciones de guardar en dos sitios (en el menú de guardar y en el menú de guardar como), sería posible hacer un goto entre sub, o alguna otra idea.

Gracias por tu ayuda Lokoman.

lokoman · #4 (**permalink**) 16/09/2011, 06:56

Chequea este codigo a ver si te sirve:

Código vb:

Ver originalPrivate Sub Guardar_Como_Click()
'CÓDIGO "GUARDAR COMO"
   DIM sFile AS STRING
 
   With dlgCommonDialog
      .DialogTitle = "Guardar"
      .CancelError = False
      .Filter = "Archivos de texto (*.txt)|*.txt|Todos los archivos (*.*)|*.*"
      .ShowSave
   
      If Len(.FileName) = 0 Then   Exit Sub
 
      sFile = .FileName
   End With
 
'LLAMADA AL SUB GUARDAR_DATOS
   GUARDAR_DATOS SFILE
 
'LIMPIAR LA VARIABLE SFILE
   sFile = EMPTY
End Sub
 
 
'----------------------------------------------------------------
 
 
Private Sub Guardar_Click()
'CÓDIGO "GUARDAR"
 
   Dim fso As Object
   Set fso = CreateObject("Scripting.FileSystemObject")
    
' Comprobar archivo
   If fso.FileExists( txtarchivo.Text) = "Verdadero" Then
      If MsgBox("El archivo ya existe. ¿Desea reemplazarlo?", vbExclamation + vbYesNo, "Reemplazar Archivo") = vbYes Then
'LLAMADA AL SUB GUARDAR_DATOS
         GUARDAR_DATOS txtarchivo.Text
      End If
   End If
End Sub
 
 
'----------------------------------------------------------------
 
 
SUB GUARDAR_DATOS(strARCHIVO AS STRING)
   Dim canalLibre As Integer
 
   IF strARCHIVO <>EMPTY THEN
      canalLibre = FreeFile
 
      Open strARCHIVO For Output As #canalLibre
         Print #canalLibre, var1
         Print #canalLibre, var2
      Close #canalLibre
 
      SaveSetting "RutaArchivo", "Valores", "Path", txtruta.Text
      SaveSetting "NombreArchivo", "Valores", "Path", txtarchivo.Text
   END IF
END SUB

oskarrr · #5 (**permalink**) 19/09/2011, 04:07

He usado la llamada al sub que me has puesto que no sabía como hacerlo y la he adaptado al código que tenía, porque lo que yo quiero es que al darle a "Guardar", si el archivo ya ha sido guardado, lo sobreescriba sin preguntar, y que al darle a "Guardar como" ya si abra el cuadro de diálogo de guardar. Pego el código utilizado por si a alguien le vale.

Y una vez más, gracias Lokoman. Me gustaría enviarte la aplicación que estoy haciendo para que le eches un vistazo aunque aun no esté acabada del todo, ya que me has ayudado muchas veces y sin tu ayuda y la de todos los del foro no se si hubiera sido capaz de sacarla adelante.

Código:

'CODIGO "GUARDAR"

Private Sub GuardarPresupuesto_Click()

Dim sFile As String
Dim fso As Object
Dim canalLibre As Integer
    
If guardar = 0 Then 'Archivo todavía no guardado
        
With dlgCommonDialog
.DialogTitle = "Guardar"
.CancelError = False
'Pendiente: establecer los indicadores y atributos del control common dialog
.Filter = "Archivos de texto (*.txt)|*.txt|Todos los archivos (*.*)|*.*"

.ShowSave
If Len(.FileName) = 0 Then
Exit Sub
End If
sFile = .FileName
End With




Set fso = CreateObject("Scripting.FileSystemObject")
    

    ' Comprobar archivo
    If fso.FileExists(sFile) = "Verdadero" Then
        If MsgBox("El archivo ya existe. ¿Desea reemplazarlo?", vbExclamation + vbYesNo, "Reemplazar Archivo") = vbYes Then
                'LLAMADA AL SUB GUARDAR_DATOS
                GUARDAR_DATOS sFile
        End If
    End If
End If



If guardar = 1 Then 'Archivo ya guardado
        
       'LLAMADA AL SUB GUARDAR_DATOS
        GUARDAR_DATOS NombreArchivo
   
End If
          

End Sub

Código:

'CÓDIGO "GUARDAR_COMO"

Private Sub guardar_como_Click()

Dim sFile As String

With dlgCommonDialog
.DialogTitle = "Guardar"
.CancelError = False
'Pendiente: establecer los indicadores y atributos del control common dialog
.Filter = "Archivos de texto (*.txt)|*.txt|Todos los archivos (*.*)|*.*"

.ShowSave
If Len(.FileName) = 0 Then
Exit Sub
End If
sFile = .FileName
End With



Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
    

    ' Comprobar archivo
    If fso.FileExists(sFile) = "Verdadero" Then
        If MsgBox("El archivo ya existe. ¿Desea reemplazarlo?", vbExclamation + vbYesNo, "Reemplazar Archivo") = vbYes Then
            'LLAMADA AL SUB GUARDAR_DATOS
            GUARDAR_DATOS sFile
        End If
    Else
        GUARDAR_DATOS sFile
    End If


  
End Sub

Código:

'SUB GUARDAR DATOS

Sub GUARDAR_DATOS(sFile As String)
   Dim canalLibre As Integer
    
   
      canalLibre = FreeFile
    
      Open sFile For Output As #canalLibre
         Print #canalLibre, TIpoTrabajo
         Print #canalLibre, Cantidad_TextBox
         Print #canalLibre, TipoPapel
      Close #canalLibre
 
        guardar = 1
        NombreArchivo = sFile
      SaveSetting "RutaArchivo", "Valores", "Path", txtruta.Text
      SaveSetting "NombreArchivo", "Valores", "Path", txtarchivo.Text

End Sub

Código:

'A COLOCAR EN EL FORM LOAD

Private Sub Form_Load()



txtruta.Text = GetSetting("RutaArchivo", "Valores", "Path", "NO_HAY_PATH")
txtarchivo.Text = GetSetting("NombreArchivo", "Valores", "Path", "NO_HAY_PATH")
guardar = 0 '0 sin guardar previamente. 1 guardado

End Sub

lokoman · #6 (**permalink**) 19/09/2011, 10:32

Un placer ayudarte en lo posible