Abrir/Guardar/Guardar como desde Menu Contextual

[lokoman]

Chequea este codigo a ver si te sirve:

Código vb:

Private 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