Excel VBA質問箱 IV

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

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


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

29529 / 76732

←次へ　｜　前へ→


	【52483】Re:フォルダー名の取得

Jaka - 07/11/15(木) 14:49 -


	引用なし

	パスワード

ヘルプにはこんな感じで書いてありましたけど。
（ヘルプを修正したのかも、いつの時代のメモなのか忘れたけど）

Sub フォルダ名出力()　　　　　　　　　　　　'ヘルプより
　　'パスを設定します。
　　MyPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\"
　　MyName = Dir(MyPath, vbDirectory)　　　　　　　' 最初のフォルダ名を返します。
　　Do While MyName <> ""　　　　　　　　　　　　　 ' ループを開始します。
　　　 '現在のフォルダと親フォルダは無視します。
　　　 If MyName <> "." And MyName <> ".." Then
　　　　　'ビット単位の比較を行い、MyName がフォルダかどうかを調べます。
　　　　　If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
　　　　　　 'フォルダであれば、それを表示します。
　　　　　　 G = G + 1
　　　　　　 Cells(G, 1).Value = MyName
　　　　　End If
　　　 End If
　　　 MyName = Dir　　　　　　　　　　' 次のフォルダ名を返します。
　　Loop
End Sub

0 hits

▼

【52479】フォルダー名の取得 岳 07/11/15(木) 14:16