| |
▼かみちゃん さん：
>こんにちは。かみちゃん です。
>
>>特定の名前が入ったフォルダを検索して弄くりたいのですが手段ありませんか？
>
>以下を参照して、
>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
ありがとうございます。まろんです。
これを応用してフォルダの名前の変更をしたいのですが、単純に
NAME〜AS…やReplaceを用いればいいのでしょうか？
色々質問してすいません。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
