Excel VBA質問箱 IV

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

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


17877 / 76732 ←次へ | 前へ→

【64300】Re:フォルダ名の集計
発言  かみちゃん E-MAIL  - 10/1/30(土) 14:45 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>このHPのダウンロードをすると、見たことのないファイルなのですが
>開くにはどうしたらいいんでしょうか。。。

LZH圧縮ファイルなので、LZH形式のファイルを解凍できるツールが必要です。

私のHPではないので、そのまま引用するのは、気がひけるのですが・・・
以下のコードになっています。

Option Explicit
Public cnt, Pop As Integer

Sub test3()
 
  Dim FolderSpec As String
  
  FolderSpec = FolderPath
  
  cnt = 1
  Pop = 1
  
  If FolderSpec <> "" Then
    ListUp FolderSpec
  End If
 
End Sub
Sub ListUp(FolderSpec)

  Dim File_Collection As Object
  Dim File_List As Variant
  Dim Folder_Collection As Object
  Dim Folder_List As Variant
  
  Set File_Collection = CreateObject("Scripting.FileSystemObject").GetFolder(FolderSpec).Files
  
  'Foldor の名前をセルに入力
  Cells(cnt, Pop) = FolderSpec
  cnt = cnt + 1

  For Each File_List In File_Collection

    Cells(cnt, Pop + 1) = File_List.Name
    cnt = cnt + 1
  Next
  
  Set Folder_Collection = CreateObject("Scripting.FileSystemObject").GetFolder(FolderSpec).SubFolders
  
  For Each Folder_List In Folder_Collection
    Pop = Pop + 1
    ListUp FolderSpec & "\" & Folder_List.Name
  Next
  Pop = Pop - 1
End Sub

Function FolderPath() As String
  
  Dim Shell As Object
  
  Set Shell = CreateObject("Shell.Application").BrowseForFolder(0, "フォルダを選択してください", 0, "c:\")
  
  If Shell Is Nothing Then
    FolderPath = ""
  Else
    FolderPath = Shell.Items.Item.Path
  End If

End Function
0 hits

【64288】フォルダ名の集計 初心者 10/1/30(土) 11:45 質問
【64289】Re:フォルダ名の集計 かみちゃん 10/1/30(土) 11:55 質問
【64291】Re:フォルダ名の集計 初心者 10/1/30(土) 13:05 質問
【64292】Re:フォルダ名の集計 かみちゃん 10/1/30(土) 13:27 発言
【64293】Re:フォルダ名の集計 初心者 10/1/30(土) 13:35 質問
【64295】Re:フォルダ名の集計 かみちゃん 10/1/30(土) 14:00 発言
【64296】Re:フォルダ名の集計 初心者 10/1/30(土) 14:20 質問
【64298】Re:フォルダ名の集計 かみちゃん 10/1/30(土) 14:27 発言
【64297】Re:フォルダ名の集計 かみちゃん 10/1/30(土) 14:23 発言
【64299】Re:フォルダ名の集計 初心者 10/1/30(土) 14:40 質問
【64300】Re:フォルダ名の集計 かみちゃん 10/1/30(土) 14:45 発言
【64301】Re:フォルダ名の集計 初心者 10/1/30(土) 15:24 質問
【64302】Re:フォルダ名の集計 かみちゃん 10/1/30(土) 15:31 発言
【64303】Re:フォルダ名の集計 初心者 10/1/30(土) 15:38 質問
【64304】Re:フォルダ名の集計 初心者 10/1/30(土) 15:49 質問
【64305】Re:フォルダ名の集計 かみちゃん 10/1/30(土) 16:03 発言
【64306】Re:フォルダ名の集計 初心者 10/1/30(土) 16:15 質問
【64307】Re:フォルダ名の集計 初心者 10/1/30(土) 16:21 質問
【64308】Re:フォルダ名の集計 かみちゃん 10/1/30(土) 16:34 発言
【64310】Re:フォルダ名の集計 初心者 10/1/30(土) 16:56 質問
【64317】Re:フォルダ名の集計 かみちゃん 10/1/30(土) 17:17 発言
【64323】Re:フォルダ名の集計 初心者 10/1/30(土) 17:42 質問
【64324】Re:フォルダ名の集計 かみちゃん 10/1/30(土) 17:48 発言
【64326】Re:フォルダ名の集計 初心者 10/1/30(土) 18:14 質問
【64328】Re:フォルダ名の集計 かみちゃん 10/1/30(土) 18:25 発言
【64332】Re:フォルダ名の集計 初心者 10/1/30(土) 20:27 質問
【64333】Re:フォルダ名の集計 かみちゃん 10/1/30(土) 20:37 発言
【64334】Re:フォルダ名の集計 初心者 10/1/30(土) 20:46 お礼
【64313】Re:フォルダ名の集計 Abyss 10/1/30(土) 16:58 発言
【64315】Re:フォルダ名の集計 かみちゃん 10/1/30(土) 17:06 発言
【64316】Re:フォルダ名の集計 Abyss 10/1/30(土) 17:11 発言

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