[リストへもどる]
一括表示

投稿時間:2003/05/26(Mon) 17:41
投稿者名:ヌッキ−
URL :
タイトル:
チェックリストへの表示方法
教えてください!!
チェックリストにファイル名(エクスプローラーのファイル)を全て表示させたいのですが
わかりません。
お忙しいところ宜しくお願いします。

投稿時間:2003/05/26(Mon) 19:36
投稿者名:nanashi
Eメール:
URL :
タイトル:
Re: チェックリストへの表示方法
私はチェックリストというものが分かりません。何それ?

てゆーか、どこまで自分で調べたのでしょうか?
それで何を試して 何が分からなかったんでしょうか?
全部って言うのは無しで。

投稿時間:2003/05/27(Tue) 10:12
投稿者名:ヌッキ−
Eメール:
URL :
タイトル:
チェックリストへの表示方法
すいません。チェックボックスへの表示です。
Windowsディレクトリのファイルは表示できるのですが、フォルダ(C:\**.*)にあるファイルを
チェックボックスに表示できません。
お忙しいところすいませんが宜しくお願いいたします。


Private Sub Form_Load()

Dim colFilesystem As Object
Dim objFolder     As Object
Dim colFiles      As Object
Dim objFile       As Object

Set colFilesystem = CreateObject("Scripting.FileSystemObject")

''''Windowsフォルダを取得
Set objFolder = colFilesystem.GetSpecialFolder(0)
Set colFiles = objFolder.Files

''''Windowsディレクトリのファイル名をリストアップ
For Each objFile In colFiles
   List1.AddItem objFile.Name
Next

'''' オブジェクトを開放
Set colFilesystem = Nothing
Set objFolder = Nothing
Set colFiles = Nothing
Set objFile = Nothing

End sub

投稿時間:2003/05/27(Tue) 11:00
投稿者名:nobu
Eメール:
URL :
タイトル:
Re: チェックリストへの表示方法
> すいません。チェックボックスへの表示です。

「チェックボックス」と言うのはレ点を付けたりするもので
今回の話はリストボックス ListBox ですよね。
List1.AddItem を使っているのですから。

> Windowsディレクトリのファイルは表示できるのですが、フォルダ(C:\**.*)にあるファイルを
> チェックボックスに表示できません。

「 Windowsディレクトリのファイルは表示できる」なら出来るのではありませんか?

1.C:¥ の全てのフォルダ名を取得して List1.AddItem
2.取得した各フォルダ内の全てのファイル名を取得してList1.AddItem
3.C:¥ の全てのファイル名も取得して List1.AddItem

このHPの「ファイル操作関係」「ファイル名又はディレクトリー名を読み込む(Dir関数)」を
参考にして下さい。
また他にもWebで検索してもサンプルはあると思いますよ。

投稿時間:2003/05/27(Tue) 16:07
投稿者名:ヌッキ−
Eメール:
URL :
タイトル:
Re^2: チェックリストへの表示方法
ありがとうございます。早速参考にさせていただきます。
回答してくださった皆様、親切にどうもありがとうございました。