Mientras programa sus macros, es posible que necesite determinar si un archivo en particular existe en el disco. Por ejemplo, el propósito de su macro puede ser abrir y leer un archivo de texto. Antes de hacerlo, querrá verificar si el archivo existe para evitar un error.

La siguiente función se puede utilizar para comprobar la existencia de un archivo.

Todo lo que necesita hacer es pasarle el nombre de archivo completo como una cadena, y la macro devuelve Verdadero (si el archivo existe) o Falso (si no lo hace).

Function FileThere(FileName As String) As Boolean     FileThere = (Dir(FileName) > "")

End Function

Puede utilizar la función similar a la siguiente:

If FileThere("c:\myfile.txt") Then     '     ' Do stuff here     ' Else     MsgBox "File Not There!"

End If

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (819) se aplica a Microsoft Word 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Word (Word 2007 y más tarde) aquí:

link: / wordribbon-Determining_Si_a_File_Exists [Determinar si existe un archivo].