タイトル : Re^6: MsFlexGrid(表示方法) 投稿日 : 2008/03/07(Fri) 18:27 投稿者 : 今日遅刻
> > 具体的には、 > > 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 上手くセルに表示できました。 リルさんご親切に有難うございます。 まだ自分では読めなかったり理解できてないコードがたくさんありましたので、意味などを調べてもう一度作成してみます。 |