Autor Tema: Como Poner Mensaje De Advertencia (Leído 3871 veces)

Toph · « **en:** Sábado 20 de Mayo de 2006, 00:21 »

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 = &#34;guardar archivo como&#34; 'titulo del cuadro de dialogo
'filtros para los archivos
   CommonDialog1.Filter = &#34;Archivos de texto (*.txt) |*.txt|&#34;
   CommonDialog1.InitDir = doctext
   CommonDialog1.FileName = &#34;&#34;
   CommonDialog1.ShowSave 'muestra el cuadro de dialogo guardar como
   fichero1 = CommonDialog1.FileName
   num = FreeFile
   If Trim(fichero1) &#60;&#62; &#34;&#34; Then 
      Open fichero1 For Binary Access Write As #num
           Put #num, 1, doctext  'guarda los datos en un archivo .txt
    Close #num
       MsgBox &#34;El archivo ha sido guardado&#34; '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 = &#34;El nombre de ese archivo ya existe en este disco.&#34; & vbCrLf & &#34; ¿Desea Grabarlo con este mismo nombre?&#34;
        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 = &#34;&#34; Then
        FileExists = False
    End If
    On Error Resume Next
    FileExists = ((GetAttr(sFile) And vbDirectory) = 0)
End Function
 

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

al llegar aqui me pone el siguiente mensaje de error:

Citar

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

ayudaaaaaaaa

cpmario

Te adjunto un ejemplo...

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

Jose Arriagada · « **Respuesta #5 en:** Lunes 22 de Mayo de 2006, 15:57 »

Existe una funcion de VB que te permite saber si existe un archivo o directorio...

If Dir(archivo, vbArchive) = "" Then
msgbox "Archivo No Existe"
else
msgbox "Archivo Existe
endif

if Dir(Ruta, vbDirectory) = "" Then
msgbox "Carpeta Existe"
else
msgbox "Carpeta No Existe"
endif

Y no tienes que definir nada adicional, solo usarla...

charlytos

en las propiedades del commonDialog hay una propiedad q hace q mire si ya existe el archivo en la ruta especificada...

CommonDialog1.Flags = 2

Un saludo.

SoloCodigo

Autor Tema: Como Poner Mensaje De Advertencia (Leído 3871 veces)

Toph

Como Poner Mensaje De Advertencia

cpmario

Re: Como Poner Mensaje De Advertencia

Toph

Re: Como Poner Mensaje De Advertencia

cpmario

Re: Como Poner Mensaje De Advertencia

Toph

Re: Como Poner Mensaje De Advertencia

Jose Arriagada

Re: Como Poner Mensaje De Advertencia

charlytos

Re: Como Poner Mensaje De Advertencia