フォルダ内の全フォルダ名を取得したい。

私に聞いて！

質問する

詳細検索

-PR-

解決済みの質問

質問:No.2463093

▼

satoshi777

すぐに回答を！

お気に入り投稿に追加する (0人が追加しました)

回答数3

フォルダ内の全フォルダ名を取得したい。

おはようございます。ちょっと教えてほしいことがあります。
VB6にて、あるフォルダ内にある複数のフォルダあります。
フォルダ名を全権取得したいのですが、全くできません。
フォルダ内のフォルダ名はどのように取得できるのでしょうか？
よろしくお願いします。

投稿日時 - 2006-10-10 10:49:40

通報する

ブックマーク▼

メールで紹介

質問者が選んだベストアンサー

回答:No.3

noname#60992

大変失礼いたしました。

No2の方のご指摘の通り、ループ内で再度ディレクトリ名を取得する必要があります。　

あとはフォルダを識別するたにGetAttrを使う必要もあるかも。

（No2の方の意見を尊重して）
下記のソースをご覧ください。

参考URL：http://www.geocities.co.jp/SiliconValley/4805/vbtips/vbtips068.htm

投稿日時 - 2006-10-10 15:37:11

通報する

この回答を支持する

(現在0人が支持しています)

お礼

再度ありがとうございます。解決致しました。大変勉強になりました。
これを応用して、いろいろと勉強したいと思います。ありがとうございました。

投稿日時 - 2006-10-10 19:10:03

この質問は役に立ちましたか？

1人が「このQ&Aが役に立った」と投票しています

別のキーワードで再検索する

詳細検索

ベストアンサー以外の回答 (2)

並び替え
新着順
支持数順

回答:No.2

▼

braver_2004

よーくソースを見てください。
strDirNameはループ内で変更されているわけではないですよね。ループ前で取得されてから変更されていないのだから無限ループして当然です。
質問の回答を鵜呑みにするだけではなく自分でもよく考えましょう。スキルアップになりません。

loopの前に
strDirName = Dir()
と入れてみればループは終わります。
でもこれではFile名も取得してしまいます。
ではどうするか。

これ以上の説明は非常に長くなりそうなので、以下のサイトが参考になると思います。

参考URL：http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_080.html

投稿日時 - 2006-10-10 13:46:35

通報する

この回答を支持する

(現在0人が支持しています)

お礼

ほんとにそうですね(>_<)申し訳ありません。ありがとうございます。

投稿日時 - 2006-10-10 19:08:15

回答:No.1

noname#60992

strDirName = Dir("C:\path",vbDirectory)
do while strDirName <> ""
debug.print strDirName
loop

のようなかんじで、どうですか？

投稿日時 - 2006-10-10 11:17:55

通報する

お礼する

この回答を支持する

(現在0人が支持しています)

補足

考えてくださって、ありがとうございます。
Dim strDirName As String
strDirName = Dir("C:\user", vbDirectory)
Do While strDirName <> ""
Debug.Print strDirName
Loop
具体的にはこのように書いたところ、延々とuserのみしか
取得できません。どこかおかしいのでしょうか？
お時間あれば考えてくだされば助かります。よろしくお願いします。

投稿日時 - 2006-10-10 12:02:12

別のキーワードで再検索する

詳細検索

もっと聞いてみる

質問する

関連するQ&A

question

VBでのOEの保存先フォルダ取得についてVB2010にて、OutlookExpressのデータ抽出方法について教えてください。各DB...
question

フォルダ内のファイル名を取得するwindows 7なのですが、フォルダ内にあるファイル名をテキストとしてすべて一括で取得する方...
question

フォルダ内のサブフォルダ名やファイル名の取得VB初心者です。あるフォルダ内のサブフォルダ名や数、ファイル名を取得したいのですが・・・コ...

回答募集中

aunswer

Excel VBAでユーザーフォームが表示されない使用環境：Excel2007 OS：Winows Vista A、Bの二つのExcel97-...
aunswer

Excel VBA PDFで保存する場合Excel VBA でマクロを組んでいるのですが、コマンドボタンをクリックすると A範囲は横...
aunswer

VB.NET2012起動後のプロパティエラーVB.NET初心者ですが、VBプロジェクト起動後、ソリューションのプロパティを開くと画像添付の...