表題にもあるようにDirlistboxの目的フォルダまでスクロールする方法を考えています。
頭に「P」のつくフォルダだけを表示したいのですが、FilelistboxのようにPatternがないのでできないと思います。
ならばせめて「P」のつくフォルダまでスクロールできないかと思っていますが、いろいろ調べてもこれといったものが検索でヒットしません。
何かいい方法が無いでしょうか？

ちなみに環境はwin7 PRO でVB6 で作成しています。

> 頭に「P」のつくフォルダだけを表示したいのですが、FilelistboxのようにPatternがないのでできないと思います。
> ならばせめて「P」のつくフォルダまでスクロールできないかと思っていますが、いろいろ調べてもこれといったものが検索でヒットしません。


案１．Dirlistbox の代わりに ListBox を使用してフォルダーの検索結果を表示する。
案２．前もって 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

回答ありがとうございます。
やはり Dirlistbox ではうまくいかないようですね。

実は今朝、回答の内容と似たものを、コンボボックスで作ったところです。

コンボボックスで選んだフォルダを Dirlistbox で開くようにしました。

本当は Dirlistbox だけでできれば一番よかったのですが、
おかげでこれ以上無駄な時間をかけずに済みました。

ありがとうございました。


> > 頭に「P」のつくフォルダだけを表示したいのですが、FilelistboxのようにPatternがないのでできないと思います。
> > ならばせめて「P」のつくフォルダまでスクロールできないかと思っていますが、いろいろ調べてもこれといったものが検索でヒットしません。
>
>
> 案１．Dirlistbox の代わりに ListBox を使用してフォルダーの検索結果を表示する。
> 案２．前もって 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