タイトル : Re: Dirlistbox 目的フォルダまでスクロール 投稿日 : 2013/04/30(Tue) 17:57 投稿者 : VBレスキュー(花ちゃん)
> 頭に「P」のつくフォルダだけを表示したいのですが、FilelistboxのようにPatternがないのでできないと思います。 > ならばせめて「P」のつくフォルダまでスクロールできないかと思っていますが、いろいろ調べてもこれといったものが検索でヒットしません。 案1.Dirlistbox の代わりに ListBox を使用してフォルダーの検索結果を表示する。 案2.前もって P の付くフォルダーを検索して調べておいて、そのパスをDirlistbox に指定する ドライブ直下のフォルダーでも瞬時に作成することができます。 http://www.hanatyan.sakura.ne.jp/vbhlp/fso14.htm Private Sub Command1_Click() Dim Fso As New FileSystemObject Call sFolderSearch(Fso.GetFolder("c:\")) End Sub Private Sub sFolderSearch(ByRef myFolder As Folder) Dim mySubFolder As Folder With myFolder If .SubFolders.Count > 0 Then For Each mySubFolder In .SubFolders If LCase(Left$(mySubFolder, 4)) = "c:\p" Then 'どちらかお好きな方を Dir1.Path = mySubFolder List1.AddItem mySubFolder End If Next End If End With End Sub |