![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.1ベストアンサー
- 回答日時:
こんな感じでよいですか?
Sub test()
Set fold = CreateObject("Scripting.FileSystemObject")
folder_name = "c:\"
Set folder1 = fold.GetFolder(folder_name)
Set sub_folders = folder1.subfolders
For Each sub_folder In sub_folders
MsgBox (sub_folder.Name)
Next
End Sub
この回答へのお礼
お礼日時:2003/03/26 14:11
ごめんなさい!
folder_nameと見ただけで、「フォルダ名固定で探すのか」と、勝手に判断してしまいました。
教えて頂いた方法で、出来ました。
どうもありがとうございました。
No.4
- 回答日時:
さらに、ふと思った。
#1の回答が理解ができないなら、、、
ディレクトリリストボックスコントロールを使用してみては?
DirListBoxというのが、標準コントロールの中にあります。
それをフォーム中にはって
Dir1.Path = "c:\"
などとパスを指定したら、あとはリストボックス同様の扱いができます。
個人的には、コントロールを張ると重くなるので、是非とも#1の発言を理解することに熱望
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_11.png?5a7ff87)
No.2
- 回答日時:
Dirがお嫌いではなければ、、、
Private Sub Command1_Click()
Dim fo As String
fo = Dir("c:\", vbDirectory)
Do While fo <> ""
If fo <> "." And fo <> ".." Then
If (GetAttr("c:\" & fo) And vbDirectory) = vbDirectory Then
Debug.Print fo
End If
End If
fo = Dir
Loop
End Sub
この回答への補足
この方法では、フォルダにぶつかるまではループさせてファイルを一つずつ確認しないといけないということですよね?
やはり、一つずつ確認するしかないのでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2022/10/26 17:14
- Visual Basic(VBA) エクセルのマクロコードの一部分を変更する方法について教えてください。 2 2023/02/17 08:40
- システム パソコンの共有フォルダ移動について教えてください。 2 2022/04/07 10:14
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/20 10:00
- グループウェア 一太郎がイントラで開けません。対処方法を知りたいです。 3 2023/04/04 13:30
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/08 11:02
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/07/01 10:35
- ノートパソコン パソコンのファイル追加履歴について 1 2022/05/07 15:35
- Excel(エクセル) 【マクロ】ファイルを古い順に、1個ずつ移動する 1 2022/09/06 20:30
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
GetNextWindowがDLLファイルUse...
-
サブルーチンの@_とreturn
-
他のフォームから別のフォーム...
-
ドラゴン曲線を再帰で書く
-
マウスポインタの変更
-
ボールが壁に当たって跳ね返る...
-
アクセスできない保護レベルエ...
-
【VB6.0】 あるフォームから他...
-
C言語のサフィックスについて
-
プロシージャまたは関数の引数...
-
ClickとChangeイベントの違いは...
-
texで図と表を並べたい
-
レコードセットにnullの場合
-
Matlabでsin波を使って矩形波を...
-
BMPファイルを作成し保存
-
「ずっと憧れていました」は英...
-
画像をランダムに表示させたい...
-
整数を二つ読み込み、それらの...
-
なんで? cEn-P^-1AP=P^-1(cEn-AP)
-
VB.NET)コンボボックスの連動に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA public変数はどのようなこ...
-
GetNextWindowがDLLファイルUse...
-
演奏記号の・・・・
-
pthread_cond_waitとptherad_co...
-
Excel VBA: private sub 内の...
-
VB6.0の正規表現を使って、文字...
-
再帰呼び出し
-
フォルダ内にさらにフォルダが...
-
日付の取得VB.NET.では
-
プロシージャをまたいて変数を...
-
サブルーチンの@_とreturn
-
C#のループでtextboxに値を入れ...
-
エクセルVBAでテキストボッ...
-
VBAでcallで呼び出したsubを終...
-
sublimit textっていうエディタ...
-
他のフォームから別のフォーム...
-
VB.NETでのイベントの途中終了
-
C言語のサフィックスについて
-
三項でたとえば交換って
-
【VB6.0】 あるフォームから他...
おすすめ情報