DirListBoxで隠しフォルダを表示されるには？ (ID:90297)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 CodeGuruより。。。 Option Explicit Private Const LB_DIR = &H18D Private Const LB_RESETCONTENT = &H184 Private Const DDL_ARCHIVE = &H20 Private Const DDL_DIRECTORY = &H10 Private Const DDL_DRIVES = &H4000 Private Const DDL_EXCLUSIVE = &H8000 Private Const DDL_HIDDEN = &H2& Private Const DDL_READONLY = &H1 Private Const DDL_READWRITE = &H0 Private Const DDL_SYSTEM = &H4 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Sub Command1_Click() Dim sPattern() As String Dim i As Integer SendMessage File1.hwnd, LB_RESETCONTENT, 0, 0 sPattern = Split(File1.Pattern, ";") For i = 0 To UBound(sPattern) SendMessage File1.hwnd, LB_DIR, DDL_ARCHIVE Or DDL_HIDDEN, ByVal Replace(File1.Path & "\" & Trim(sPattern(i)), "\\", "\") Next i End Sub