escarabajo_mx
16 de Junio del 2004

tengo un textbox como si fuera un editor de texto, al hacer uno nuevo como saber si se le escribio, para poder mandar el mensaje de que si quiere guardarlo, y si no escribio nada al hacer uno nuevo no hacer esa pregunta, y como saber si al quererlo guardar ya existe ese archivo con ese nombre y preguntar si se desea reemplazar

sdemingo
16 de Junio del 2004

Para ver si escribió algo..
If Text1.Text <> "" Then
msgbox "desea guardar los cambios?"
End if


Para preguntar si ya existe,
supongamos que tienes la ruta y el nombre con el que el usuario quiere guardar el archivo en la variable strNombre

Dim fs As Object

Set fs = CreateObject("Scripting.FileSystemObject")

If fs.FileExists strNombre Then
msgbox "el fichero ya existe"
End If