No.1ベストアンサー
- 回答日時:
お世話になります。
VB のバージョンは VB6.0 ですよね?
DirListBox にそのような機能があるのか
私はわかりません。
代替案として、DirListBox のとなりに、
ListBox を配置して、
こんな感じではどうでしょうか。
(実行する際は、プロジェクト→参照設定→Microsoft Scripting Runtime にチェックを付けてください)
Private Sub Dir1_Change()
Dim objFso As FileSystemObject
Set objFso = New FileSystemObject
Dim objFolder As Folder
Set objFolder = objFso.GetFolder(Me.Dir1.Path)
' リスト作成
Dim objSubFolder As Folder
Dim strPath As String
strPath = Me.Dir1.Path
strPath = Split(strPath, "\")(UBound(Split(strPath, "\")))
For Each objSubFolder In objFolder.SubFolders
Call Me.List1.AddItem(strPath & "\" & objSubFolder.Name)
Next objSubFolder
Set objFolder = Nothing
Set objSubFolder = Nothing
End Sub
この回答への補足
naganaga_001さん、回答ありがとうございます。
(返事が遅くなり申し訳ありません)
>VB のバージョンは VB6.0 ですよね?
環境を書くのを忘れていました。ごめんなさい。
Windows 2000 VB6.0 です。
サンプルプログラムありがとうございます。
これだと選択したフォルダ以下のみを表示可能ですね。
ただ、私が実現したかったのは少し違いまして、
DirListBoxに指定フォルダの上の階層を全く表示させたくないというものです。
(ユーザーに見せたくない)
これは実現不可でしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA。複数のChangeイベントをまとめる方法 2 2022/03/31 12:03
- JavaScript JavaScript?jQuery?で書き方を教えてください。 初心者です。 AAAという要素をステ 2 2023/08/04 22:09
- JavaScript 指定したパスが現URLに含まれていたら特定要素を削除するJavascriptのコードを教えてください 2 2023/04/27 17:58
- Excel(エクセル) フォルダ内のエクセルファイルを開かずにデータ採取する関数式 2 2022/12/22 22:15
- Excel(エクセル) excelvbaでスライドショーを作りたい 2 2023/04/20 14:32
- HTML・CSS Dreamweaver のテンプレートでの相対パスの設定について 2 2023/06/13 17:28
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Windows 10 この現象も、Microsoft Explorer のお粗末な仕様のためか? 2 2023/06/09 15:06
- Excel(エクセル) [クイックアクセスツールバー]の設定ファイルの格納場所について、 5 2023/04/21 14:43
- JavaScript [再掲]指定したパスが現URLに含まれていたら特定要素を削除するJavascriptのコードについて 1 2023/05/10 15:09
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
eclipseでデバックするとエラー...
-
Visual studio2017で、2回目の...
-
Eclipseのブレークポイントが○...
-
デバッグとビルドは何が違うの...
-
DLL参照時に指定されたモジュー...
-
ASP.NETでデバッグができない
-
同じソリューションの別プロジ...
-
デバッガでステップ実行してい...
-
vb2010にてASPWEBシステムを作...
-
VB6のデバッグ
-
VB.netを実行するとデバック プ...
-
vb ver6 でformat文やTrim文の...
-
VC++でSQL Serverに接続するに...
-
C言語での開発でエラーが出て困...
-
visual studio 2019 についての...
-
#ifdef _DEBUGが効かない
-
VC6.0のデバッグで1つ以上のブ...
-
Release版のexeが動きません
-
VC++6の「プロセスへアタッチ」...
-
MinGWのコンパイル方法(初心者)
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
デバッグとビルドは何が違うの...
-
visual studio2019でデバッグが...
-
Eclipseのブレークポイントが○...
-
DLL参照時に指定されたモジュー...
-
eclipseでプログラムが実行でき...
-
visual studio 2008 のデバッグ...
-
Visual studio2017で、2回目の...
-
VB.netを実行するとデバック プ...
-
デバッガでステップ実行してい...
-
eclipseでデバックするとエラー...
-
ソリューションをまたがるデバ...
-
起動時に何のダイアログも表示...
-
C言語での開発でエラーが出て困...
-
RichTextBox使用で...
-
Release版のexeが動きません
-
Visual Studio 2017 ビルドする...
-
ブレークポイントは現在の設定...
-
VB6.0を使用しています
-
C# リソースに埋め込んだ.exeフ...
-
ビルド時のエラー(書き込みで...
おすすめ情報