パラメターを複数リストアップし順番に処理

質問

現在、以下のコードでcall1を呼び出して処理している。

Sub main()

sub call1 FPath,SearchStr

end sub

パラメターのSearchStrを事前に複数リストアップして
順番に一つずつ読み込ませて自動で処理させるVBAのコードを以下のように卓上で考えてみました。
こんな感じで良いのでしょうか　？
（卓上の案なので実際に試してはいません。）

改良案や別案など
アドバイスいただければ嬉しいです。

Sub main()
Dim FPath As String
Dim SearchStr As Variant

' Set the folder path
folderpath = "C:\TEST"

SearchStr = Array("SearchString1", "SearchString2", "SearchString3")

For Each str In SearchStr
Call call1(FPath, str)
Next str

End Sub

回答No.3

kkkkkm · ベストアンサー

配列を渡さずに質問のコードのようにstrを渡せばいいのではないでしょうか

お礼

最初の質問時のコードでミス記載していますが
　Call call1(FPath, str)
は、
　Call call1(FPath, Serchstr)
です。

旧コードでは、
RenameFilesInFolder folderPath, searchStr
です。

>配列を渡さずに質問のコードのようにstrを渡せばいいのではないでしょうか

この意味が良くわからないのですが。
str=Serchstrは、配列なのでSerchstrをそのまま渡せないのでは無いでしょうか？

考え方が間違っていますか　？

補足

頭を冷やして考えなおしました。

配列変数ではなく普通の変数にして引き継げば良いのですね。

以下で一応処理できているようですが
　アドバイス有ればお願いします。

Sub main()
Dim searchStr As Variant
Dim folderPath As String
Dim searchList As Variant
Dim i As Long

searchList = Array("[DELETE]", "[delete]", "【Delete】") ' 検索文字列のサンプルリスト

folderPath = InputBox("検索するドライブを入力して下さい。", "ドライブレター_指定", "E:\")

If folderPath = "" Then
MsgBox "Cancelが入力されました。"
Exit Sub
End If

For i = LBound(searchList) To UBound(searchList)
searchStr = searchList(i)
RenameFilesInFolder folderPath, searchStr
Next i

MsgBox "ファイル名の変更済み。"
End Sub

Sub RenameFilesInFolder(folderPath As String, searchStr As Variant)