Verificar la existencia de un archivo desde un macro

Hola Claudio
pon esta función en un módulo y llamala desde cualquier celda =Existe, si
existe C:\Libro.xls te devolvera Verdadero y si no falso

Function Existe()as boolean
if len/dir("C:\libro.xls"))<>0 then
Existe=true
else
Existe=False
Endif
end function

Saludos a desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/defaul...newsreglas

"Claudio" escribió en el mensaje
news:

Amigos del grupo:
Me podrían ayudar? Necesito un código que verifique la existencia del
archivo c:\libro.xls y devuelva un valor boleano.

Desde ya muchas gracias

ATTE

CSM

Hola:

¿Es posible eliminar mediante una macro un archivo existente en el
ordenador?

Saludos,

Marcelo


"Emilio" <miliuco56 ARROBA Hotmail.com> escribió en el mensaje
news:

Hola Claudio
pon esta función en un módulo y llamala desde cualquier celda =Existe, si
existe C:\Libro.xls te devolvera Verdadero y si no falso

Function Existe()as boolean
if len/dir("C:\libro.xls"))<>0 then
Existe=true
else
Existe=False
Endif
end function

Saludos a desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/defaul...newsreglas

"Claudio" escribió en el mensaje
news:
> Amigos del grupo:
> Me podrían ayudar? Necesito un código que verifique la existencia del
> archivo c:\libro.xls y devuelva un valor boleano.
>
> Desde ya muchas gracias
>
> ATTE
>
> CSM
>
>

Hola Marcelo
sub Borrar()
Kill "c:\libro.xls" ' borra el archivo
end sub
Saludos a desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/defaul...newsreglas

"Marcelo" escribió en el mensaje
news:

Hola:

¿Es posible eliminar mediante una macro un archivo existente en el
ordenador?

Saludos,

Marcelo


"Emilio" <miliuco56 ARROBA Hotmail.com> escribió en el mensaje
news:
> Hola Claudio
> pon esta función en un módulo y llamala desde cualquier celda =Existe,

si

> existe C:\Libro.xls te devolvera Verdadero y si no falso
>
> Function Existe()as boolean
> if len/dir("C:\libro.xls"))<>0 then
> Existe=true
> else
> Existe=False
> Endif
> end function
>
> Saludos a desde Huelva
> Emilio
> miliuco56 ALGARROBA hotmail.com
>
> Reglas de conducta de los grupos de noticias:
> http://support.microsoft.com/defaul...newsreglas
>
> "Claudio" escribió en el mensaje
> news:
> > Amigos del grupo:
> > Me podrían ayudar? Necesito un código que verifique la existencia del
> > archivo c:\libro.xls y devuelva un valor boleano.
> >
> > Desde ya muchas gracias
> >
> > ATTE
> >
> > CSM
> >
> >
>
>

Muchas Gracias.
Me sirve de mucho.

Saludos,

Marcelo


"Emilio" <miliuco56 ARROBA Hotmail.com> escribió en el mensaje
news:%

Hola Marcelo
sub Borrar()
Kill "c:\libro.xls" ' borra el archivo
end sub
Saludos a desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/defaul...newsreglas

"Marcelo" escribió en el mensaje
news:
> Hola:
>
> ¿Es posible eliminar mediante una macro un archivo existente en el
> ordenador?
>
> Saludos,
>
> Marcelo
>
>
> "Emilio" <miliuco56 ARROBA Hotmail.com> escribió en el mensaje
> news:
> > Hola Claudio
> > pon esta función en un módulo y llamala desde cualquier celda =Existe,
si
> > existe C:\Libro.xls te devolvera Verdadero y si no falso
> >
> > Function Existe()as boolean
> > if len/dir("C:\libro.xls"))<>0 then
> > Existe=true
> > else
> > Existe=False
> > Endif
> > end function
> >
> > Saludos a desde Huelva
> > Emilio
> > miliuco56 ALGARROBA hotmail.com
> >
> > Reglas de conducta de los grupos de noticias:
> > http://support.microsoft.com/defaul...newsreglas
> >
> > "Claudio" escribió en el mensaje
> > news:
> > > Amigos del grupo:
> > > Me podrían ayudar? Necesito un código que verifique la existencia

del

> > > archivo c:\libro.xls y devuelva un valor boleano.
> > >
> > > Desde ya muchas gracias
> > >
> > > ATTE
> > >
> > > CSM
> > >
> > >
> >
> >
>
>

Muchas Gracias Emilio, era lo que necesitaba.


"Emilio" <miliuco56 ARROBA Hotmail.com> escribió en el mensaje
news:

Hola Claudio
pon esta función en un módulo y llamala desde cualquier celda =Existe, si
existe C:\Libro.xls te devolvera Verdadero y si no falso

Function Existe()as boolean
if len/dir("C:\libro.xls"))<>0 then
Existe=true
else
Existe=False
Endif
end function

Saludos a desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/defaul...newsreglas

"Claudio" escribió en el mensaje
news:
> Amigos del grupo:
> Me podrían ayudar? Necesito un código que verifique la existencia del
> archivo c:\libro.xls y devuelva un valor boleano.
>
> Desde ya muchas gracias
>
> ATTE
>
> CSM
>
>