Preguntar si deseo reemplazar un archivo antes de guardarlo

Question

Hola quisiera que me ayuden. No se como puedo hacer para que cuando el usuario quiera guardar su archivo el programa verifique si ya existe y le diga si que ya existe el archivo con ese nombre y que le pregunte si desea reemplazarlo. Al parecer creo que es con ficheros pero no lo entiendo muy bien. Agradeceria me pudieran ayudar.

Answer 1

if dir(archivo) <> "" then

  msgbox (el archivo existe,reeemplaza)

Answer 2

La función DIR(ruta completa, atributos) comprueba si existe el archivo en la ubicación indicada; de existir devuelve una cadena (ruta y nombre) y una cadena vacía si no existe. En el parámetro ruta debemos indicar el path de un archivo, directorio o unidad. Si el path no existe, la función Dir devuelve una cadena vacía

puedes implementar una pregunta para que el usuario confirme el reemplazar el archivo existente o cancelar para introducir un nuevo nombre.

tuarchivo="c:/mis documentos/resultados.txt" 'INVIERTE LAS BARRAS INCLINADAS

if DIR(tuarchivo,)<> "" then

if msgbox("Existe este archivo. Seleccione [OK] para aceptar y reemplazarlo o [Cancelar] para salir",vbokcancel,"archivo existente")=vbok then

'si el usuario selecciona ok, primero debemos eliminar el archivo

kill tuarchivo' hay otros métodos, mas actualizados que este... ; )

...proceso de guardar

else'el usuario seleccionó cancelar

...un inputbox para pedir nuevo nombre y continuar con proceso de guardar

end if

ojo: escrito aqui en el editor directamente.

Answer 3

Gracias ahora ya me salió lo que buscaba decidí reemplazar el inputbox x un msgbox, para que tan solo el usuario escriba directamente en el commondialog el nuevo nombre. Te lo agradezco, al comienzo me salió un poco desordenado pero ya lo ordene :)

Answer 4

Me alegra...hasta la próxima.

Atte Carlos