Programación General > Visual Basic 6.0 e inferiores

 Como Poner Mensaje De Advertencia

(1/2) > >>

Toph:
:) Hola, estoy haciendo un proyecto donde finalmente guardo un archivo .txt, la duda que tengo ahora es que quisiera poner el mensaje de advertencia de: "el archivo tal ya existe ¿desea remplazarlo?"

la rutina con la que guardo el archivo es la siguiente:

--- Código: Text --- CommonDialog1.CancelError = False   CommonDialog1.DialogTitle = "guardar archivo como" 'titulo del cuadro de dialogo'filtros para los archivos   CommonDialog1.Filter = "Archivos de texto (*.txt) |*.txt|"   CommonDialog1.InitDir = doctext   CommonDialog1.FileName = ""   CommonDialog1.ShowSave 'muestra el cuadro de dialogo guardar como   fichero1 = CommonDialog1.FileName   num = FreeFile   If Trim(fichero1) <> "" Then       Open fichero1 For Binary Access Write As #num           Put #num, 1, doctext  'guarda los datos en un archivo .txt    Close #num       MsgBox "El archivo ha sido guardado" 'indica que el archivo ha sido guardado    End If 
funciona perfecto, pero si guardo un archivo con un nombre que ya existe simplemente lo remplaza sin preguntar ¿que se le pone para que haga la pregunta?

cualquier ayuda sera bienvenida

gracias :)

cpmario:

--- Código: Text ---    If FileExists(strFname) Then        gstrMsg = "El nombre de ese archivo ya existe en este disco." & vbCrLf & " ¿Desea Grabarlo con este mismo nombre?"        gintResponse = MsgBox(gstrMsg, vbQuestion + vbYesNo, gstrAppTitle)        If gintResponse = vbYes Then            'Tu código        End If    End If 

--- Código: Text ---Public Function FileExists(sFile As String) As Boolean    If sFile = "" Then        FileExists = False    End If    On Error Resume Next    FileExists = ((GetAttr(sFile) And vbDirectory) = 0)End Function  :comp:

Toph:
:( probe el codigo que me posteaste pero no lo pude hacer funcionar, lo probe tal como lo pusiste y cambiando de posicion mi codigo porque creo que por lo menos una parte va arriba de la siguiente sentencia que es la que me da el error

--- Citar ---If FileExists(strFname) Then

--- Fin de la cita ---
al llegar aqui me pone el siguiente mensaje de error:


--- Citar ---Error de compilacion:
El tipo de argumento de ByRef no coincide

--- Fin de la cita ---
 :(

ayudaaaaaaaa :(

cpmario:
Te adjunto un ejemplo...
:comp:

Toph:
:) gracias cpmario el error ocurria porque strFname lo declaraba como variant y debia ser como string. tambien tenia que cambiar algo a mi codigo de guardar, pero al fin funciono  :comp:


 :gracias:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente