duplicacion de archivos

[dwin]

hola..

bueno, estoy usando la creacion de archivos txt..

ahora a la hora de crearlo quiero hacer que si ya existe el archivo (el nombre), que me diga que existe y que no pueda reemplazarlo...


alguien me puede decir como
gracias:

[pkj]

Te puedes crear una función que lo mire.
Este sería un modo:

Código vb:

Private Function Existe(Fichero As String) As Boolean
  On Error GoTo NoExiste
  FileLen Fichero
  Existe = True
  Exit Function
NoExiste:
  Err.Clear
End Function
 

Si el fichero existe, aunque esté vacío, devolverá True.

If Existe("c:\fichero.txt") = False Then
...
' guardas el fichero
...
...
End If

Saludos

[erbuson]

Si quieres que sólo devuelva verdadero en caso de que realmente exista, independientemente de que tenga o no cero bytes, puedes cambiar en la función el FileLen por GetAttr o FileDateTime

De otra parte la comparación la puedes hacer con If Not Existe("Fichero") Then que para los que se inician tal ves resulte un poco mas intuitiva.

En programación es donde mas se cumple el refrán que TODOS LOS CAMINOS CONDUCEN A ROMA y CADA MAESTRILLO TIENE SU LIBRILLO, el único límite es la imaginación de cada quien.

Saludos