Dir関数使用時ファイル名変更

質問

こんばんは。

Const buf As String = "c:\"

file = Dir(buf & "*.xls")

Do While file <> ""

処理

名前変更

Loop

処理まではうまくいったのですが、

fileに入っているブック名を変更する方法が分からず困っております。

ブック名は様々で先頭に"保険"と書いてたら

"保険"を消して、"株式会社"

先頭が"保険"以外なら、名前は変えない。

この名前を消す、という処理が分からず困っております。

file = file.Remove(0, 2)

Name path & file As path & "株式会社" & file

でいけると思ったのですが、

file = file.Remove(0, 2)
この部分でオブジェクトが必要です。とエラーが出てしまいます。

よろしくお願いいたします。

回答No.2

h_tana_0530 · ベストアンサー

こんにちは。

こんなコードでいかがですか？

Sub ReNameFile()

Const buf As String = "C:\"
Dim strFile As String

strFile = Dir(buf & "*.xls")

Do While strFile <> ""

If Left(strFile, 2) = "保険" Then
Name buf & strFile As buf & Replace(strFile, "保険", "株式会社")
End If
strFile = Dir
Loop

MsgBox "変換完了"

End Sub

ファイル名の先頭に"保険"　を見つけたら、"保険"を"株式会社"に置き換えて書き換える、という処理を行っています。

お礼

お礼遅くなりまして申し訳ございません。

このコードを使わせてもらったら
理想通りに動いてくれました。

本当に助かりました。
回答ありがとうございました。

回答No.1

kmetu

Dim file As String

が無いからではないでしょうか。

お礼

回答ありがとうございました。