Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

71597 / 76732

←次へ　｜　前へ→


	【9628】Re:これって無理ですか？　ディレクトリの...

テーブル - 03/12/11(木) 11:19 -


	引用なし

	パスワード

下記のコード試しました。確かに、イミディエイトウインドウで、フォルダ名が出ました
。しかし、分からない事があります。

そこからどうすれば、現在のフォルダ名と、一致させ、一致したディレクトリを指定する事ができるのでしょうか？

>' C:\ 内のフォルダの名前を表示します。
>MyPath = マイドキュメントのパス &　"\CD\" パスを設定します。
>MyName = Dir(MyPath, vbDirectory)　　' 最初のフォルダ名を返します。
>Do While MyName <> ""　　' ループを開始します。
>　　' 現在のフォルダと親フォルダは無視します。
>　　If MyName <> "." And MyName <> ".." Then
>　　　　' ビット単位の比較を行い、MyName がフォルダかどうかを調べます。
>　　　　If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
>　　　　　　Debug.Print MyName　　　　' フォルダであれば、それを表示します。
>　　　　End If
>　　End If
>　　MyName = Dir　　　　　　　　　　' 次のフォルダ名を返します。
>Loop

0 hits

▼

【9591】これって無理ですか？　ディレクトリの指定の手間を除く方法 テーブル 03/12/9(火) 19:13