Excel VBA質問箱 IV

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

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


29535 / 76738 ←次へ | 前へ→

【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 質問
【52481】Re:フォルダー名の取得 じゅんじゅん 07/11/15(木) 14:33 発言
【52486】Re:フォルダー名の取得 07/11/15(木) 15:42 お礼
【52483】Re:フォルダー名の取得 Jaka 07/11/15(木) 14:49 発言
【52487】Re:フォルダー名の取得 07/11/15(木) 15:53 お礼
【52488】Re:フォルダー名の取得 07/11/15(木) 15:58 お礼

29535 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free