ник: Антон
Подключите к проекту Microsoft Scripting Runtime.
В вашем проекте будет доступна библиотека Scripting.
В этой библиотеке есть объект FileSystemObject.
В этом объекте есть функция FileExists.
-------------------------------------------------------------------------------------
Function FileExists(FileSpec As String) As Boolean
Member of Scripting.FileSystemObject
Check if a file exists
-------------------------------------------------------------------------------------
DIM fs AS NEW Scripting.FileSystemObject
IF fs.FileExists ("c:\your.file") = TRUE THEN
...
END IF