tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。