Visual Basic para Aplicaciones - Archivos en Excel

Life is soft - evento anual de software empresarial
 
Vista:

Archivos en Excel

Publicado por Alberto (2 intervenciones) el 09/09/2004 12:29:08
Hola, tengo un programa realizado en VB para Excel, y una parte es que cuando se cierra Excel, se guarda el archivo con un nombre. El caso es que necesito saber cómo verificar si ese archivo existe. Si existe, que lo machaque, si no que lo guarde nuevo.

Pongo el trozo de código que me está funcionando mal:

nombre_archivo = "D:\Archivos\Semana del " + inicio + " al " + fin

Dim objeto As FileSystemObject
Set objeto = New FileSystemObject

If objeto.FileExists(nombre_archivo) Then
MsgBox ("EXISTE")
Else
MsgBox ("NO EXISTE")
End If

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Archivos en Excel

Publicado por Cristian (1 intervención) el 09/09/2004 16:39:53
Hola
Bueno el problema puede estar en que no especificas la extencion del archivo en realidad no se puede saber bien cual sea el error porque no pones el valor de las variables Inicio y Final que estas utilizando y el error puede estar alli

Te recomiendo que uses esto para verificar si un archivo existe o no
Dim RutaArchivo, Existe As String
RutaArchivo = "C:\TuArchivo.txt"
Existe = Dir(RutaArchivo)

'En la siguiente condicion si el archivo existe la variable Existe sera "TuArchivo.txt"
'Cuando el archivo no existe la variable Existe sera=""
If Existe = "" Then
MsgBox "El archivo no existe", vbCritical
Else
MsgBox "El archivo existe", vbInformation
End If

Saludos
http://www.theemulator.tk
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar