Подключите к проекту 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

я использую ф-цию проверки файлов или директорий.

'для FileUtils_IsFilePresent2()
Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long

Function FileUtils_IsFilePresent2(ByVal strFileName As String) As Boolean
'пример вызова ф-ции определения наличия файла
'MsgBox FileUtils_IsFilePresent2("c:\fish.scr")
'Функция возвращает TRUE, если файл существует. В противном случае возвращает False
FileUtils_IsFilePresent2 = PathFileExists(strFileName)
End Function

только а что вернет dir усли дирректории нет? пустую строку "" ?

спасибо! а я использовал FolderExist

Dir наверно попроще объектов не надо создавать!

Function Dir([PathName], [Attributes As VbFileAttribute = vbNormal]) As String
Member of VBA.FileSystem
Returns the name of a matching file, directory, or folder

пусть есть
dim str_dir as string
потом
str_dir = "с:a\b\c\" или может длиннее

необходимо проверить реальное наличие такого пути? подскажите пожалуйста как?