Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Как проверить папку на существование.

Автор: EKoshelev 22.4.2007, 02:41

Скажите как проверить есть папка или нет.
Пожалуйста. А то я замучался уже кувыряться...

Автор: DimkraS 22.4.2007, 07:24

http://forum.vingrad.ru/topic-134732.html

Автор: XPurple 23.4.2007, 12:10

Код


Set fso = CreateObject("Scripting.FileSystemObject")                
objStartFolder = "C:\myfolder"                        

if  fso.FolderExists(objStartFolder) then
    msg = MsgBox("Каталог" & chr(32)  & objStartFolder & chr(32) & " существует", vbInformation, "Результат")
Else
    msg = MsgBox("Каталог" & chr(32)  & objStartFolder & chr(32) & " не существует", vbInformation, "Результат")
End If