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

タイトル Re^5: MsFlexGrid(表示方法)
投稿日: 2008/03/07(Fri) 17:29
投稿者リル
> 具体的には、
> 1.ディレクトリ選択ダイアログからフォルダを選択。
> 2.選択したフォルダのパス名を取得。取得したパス名をテキストボックスに表示。
> 3.検索ボタンを押すとテキストボックスに表示させたパス名をMSFGridにフォルダ内のファイル名とパス名を別々のセルに表示させる。
> という流れです。
> 1.2は出来たのですが、3.の別々のセルに表示させる事が出来ません。

【プロジェクト】→【参照設定】でMicrosoft Scripting Runtime の参照に
チェックを入れておいて下さい。

検索ボタンをCommand1
MsFlexGridをFGrid1の設定と仮定して、

Private Sub Form_Load()
    'MsFlexGridの列数を設定(プロパティで設定しておけば大丈夫です。)
    FGrid1.Cols = 2
End Sub


Private Sub Command1_Click()
    Dim fso As New FileSystemObject
    'フォルダを指定(ここにテキストボックスに取得しているフォルダパスを入れる)
    Call subFileSearch(fso.GetFolder("D:\TEMP\Magnet"))
    Set fso = Nothing
End Sub

Private Sub subFileSearch(ByVal myFolder As Object)
    Dim myFile      As File
    Dim iCount      As Integer

    'フォルダ内のファイルを取得
    For Each myFile In myFolder.Files
        'MsFlexGridに追加
        FGrid1.TextMatrix(iCount, 0) = myFolder & "\" & myFile.Name
        FGrid1.TextMatrix(iCount, 1) = myFile.Name
        iCount = iCount + 1
    Next

    Set myFile = Nothing
End Sub

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

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