|
こんにちは。かみちゃん です。
>特定の名前が入ったフォルダを検索して弄くりたいのですが手段ありませんか?
以下を参照して、
http://www.atmarkit.co.jp/fwin2k/win2ktips/310filelist/filelist.html
少し変えたマクロですが、このような感じでしょうか?
検索開始フォルダによっては、検索に時間がかかりますので、注意してください。
Option Explicit
'検索したいフォルダ名の変数
Dim strFind As String
Sub Macro1()
Dim strPath As String
strFind = InputBox("検索したいフォルダ名を入力してください。", "フォルダ名")
'検索開始フォルダ名 初期値は、マクロがあるフォルダ
strPath = InputBox("調べたいフォルダを絶対パスで入力してください。", "ファイル一覧", ThisWorkbook.Path & "\")
FileDisp strPath
End Sub
Function FileDisp(strPath As String)
Dim objFs As Object
Dim objFld As Object
Dim objSub As Object
Set objFs = CreateObject("Scripting.FileSystemObject")
Set objFld = objFs.GetFolder(strPath)
If InStr(objFld.Name, strFind) <> 0 Then
'フォルダ名が部分一致した場合の処理
MsgBox objFld.Name
End If
For Each objSub In objFld.SubFolders
FileDisp objSub.Path
Next
End Function
|
|