| |
|
|
| | пусть есть
dim str_dir as string
потом
str_dir = "с:a\b\c\" или может длиннее
необходимо проверить реальное наличие такого пути? подскажите пожалуйста как? | |
| |
| |
| |
|
|
| | Function Dir([PathName], [Attributes As VbFileAttribute = vbNormal]) As String
Member of VBA.FileSystem
Returns the name of a matching file, directory, or folder | |
| |
| |
| |
|
|
| | спасибо! а я использовал FolderExist
Dir наверно попроще объектов не надо создавать! | |
| |
| |
| |
|
|
| | только а что вернет dir усли дирректории нет? пустую строку "" ? | |
| |
| |
| |
|
|
| | я использую ф-цию проверки файлов или директорий.
'для 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 | |
| |
| |
| |
|
|
| | Подключите к проекту 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 | |
| |
| |
