[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Наш сайт » Visual basic » Определить, имеет ли папка подпапки - Visual Basic (Определить, имеет ли папка подпапки - Visual Basic)
Определить, имеет ли папка подпапки - Visual Basic
ilimДата: Вторник, 15.11.2011, 23:13 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 680
Награды: 17
Репутация: 4
Статус: Offline
Определить, имеет ли папка подпапки - Visual Basic
===================================================
Private Const MAX_PATH = 260
Private Type SHFILEINFO
hIcon As Long
iIcon As Long
dwAttributes As Long
szDisplayName As String * MAX_PATH
szTypeName As String * 80
End Type
Private Declare Function SHGetFileInfo Lib "Shell32" Alias "SHGetFileInfoA" (ByVal pszPath As Any, ByVal dwFileAttributes As Long, psfi As SHFILEINFO, ByVal cbFileInfo As Long, ByVal uFlags As Long) As Long

Function FolderHasSubFolders(ByVal sPath As String) As Boolean
Const SFGAO_HASSUBFOLDER = &H80000000
Const SHGFI_ATTRIBUTES = &H800
Dim FInfo As SHFILEINFO
SHGetFileInfo sPath, 0, FInfo, Len(FInfo), SHGFI_ATTRIBUTES
FolderHasSubFolders = (FInfo.dwAttributes And SFGAO_HASSUBFOLDER)
End Function

Private Sub Command1_Click()
MsgBox FolderHasSubFolders("C:\Program Files")
MsgBox FolderHasSubFolders("C:\Program Files\NetMeeting")
End Sub


www.ilim.kz
 
Форум » Наш сайт » Visual basic » Определить, имеет ли папка подпапки - Visual Basic (Определить, имеет ли папка подпапки - Visual Basic)
Страница 1 из 11
Поиск: