Сообщество Чайников

Вопрос

Есть строка C:\123\config.org. Как узнать самым простым спомобом, указывает на файл или папку?

Ответ

If Dir(FileName) <> "" Then
     MsgBox "file"
ElseIf Dir(FileName, vbDirectory) <> "" Then
     MsgBox "directory"
Else
     MsgBox "none"
End If
GetAttr

Можно также обратиться к файловой системе через АПИ. А у папок тоже бываю расширения, поэтому придется обращатся к файловой системе

WIN32_FILE_ATTRIBUTE_DATA wfad;
if
(GetFileAttributesEx(lpFileName,GetFileExInfoStandard,(LPWIN32_FILE_ATTRIBUTE_DATA)&wfad))
   {
     if (wfad.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
     {// lpFileName is directory
     
     }else{// lpFileName is file
     }
   }else{// path does not exist, or we havo no access, see
     //getlasterror for more information
}

Это легко переделать на вб, будет работать железно.

Из конференции VB