iPath$ = "C:\Y" ' "C:\Y\"
If Dir(iPath$, vbDirectory) <> "" Then
MsgBox "Папка : " & iPath$ & " найденa"
Else
MsgBox "Папка : " & iPath$ & " не найденa"
End If
Найти папку
Здрасте!
А как узнать есть ли 'такая-то' папка?
Спасибо!
Visual Basic 6.0
А как узнать есть ли 'такая-то' папка?
Спасибо!
Visual Basic 6.0
Вариант I.
Вариант II. (Ideas Mikhail Zhilin)
P.S. Если есть желание усложнить себе жизнь, то ещё можно использовать функции WinAPI или FSO
Код:
Вариант II. (Ideas Mikhail Zhilin)
Код:
iPath$ = "C:\Y"
If Dir(iPath$ & "\" & "Nul") <> "" Then
MsgBox "Папка : " & iPath$ & " найденa"
Else
MsgBox "Папка : " & iPath$ & " не найденa"
End If
If Dir(iPath$ & "\" & "Nul") <> "" Then
MsgBox "Папка : " & iPath$ & " найденa"
Else
MsgBox "Папка : " & iPath$ & " не найденa"
End If
P.S. Если есть желание усложнить себе жизнь, то ещё можно использовать функции WinAPI или FSO