|
こんにちは。かみちゃん です。
>この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
|
|