VBAでフォルダ内のファイル名を一括変換

Question

VBAでファイル名の一括変換

VBAで、
①フォルダ内のファイル名をBセルに取得
②Cセルに変更後のファイル名を入力（手動）
③Bセルのファイル名をCセルのファイル名に変換
という処理をしたいと考え、
以下のようなコードを書きました。

Option Explicit
'プログラム1｜プログラム開始
Sub ファイル名取得()
    
    'プログラム2｜FileSystemObjectの設定
    Dim fs As Scripting.FileSystemObject
    Set fs = New Scripting.FileSystemObject
    
    'プログラム3｜シート設定
    Dim ws As Worksheet
    Set ws = Worksheets("ファイル名変換")
    
    'プログラム4｜ダイアログを開いてフォルダ選択
    Dim path As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = True Then
            path = .SelectedItems(1)
        End If
    End With
    
    'プログラム5｜選択したフォルダが存在するかどうかチェック
    If fs.FolderExists(path) = False Then
        MsgBox "フォルダを選択してください"
        Exit Sub
    End If
    
    'プログラム6｜フォルダを取得
    Dim basefolder As Scripting.Folder
    Set basefolder = fs.GetFolder(path)
        
    'プログラム7｜フォルダ内のファイルを取得
    Dim myfiles As Scripting.Files
    Set myfiles = basefolder.Files
    
    'プログラム8｜変数設定
    Dim I As Long
    Dim myfile As Scripting.File
    
    'プログラム9｜フォルダ内のファイルを取得
    For Each myfile In myfiles
        I = I + 1
        ws.Range("A1").Offset(I, 0).Value = I
        ws.Range("B1").Offset(I, 0).Value = fs.GetFileName(myfile)
        Debug.Print fs.GetBaseName(myfile)
    Next
    
    Dim filesort As Long
    filesort = Range("B" & Rows.Count).End(xlUp).Row
    Range("B1:B" & filesort).sort Columns("B"), xlAscending, Header:=xlYes
    
    'プログラム10｜オブジェクト解放
    Set myfile = Nothing
    Set myfiles = Nothing
    Set basefolder = Nothing
    Set fs = Nothing
    
'プログラム11｜プログラム終了
End Sub
'プログラム1｜ファイル名変更
Sub ファイル名変更()

    Dim changeSheet As Worksheet
    Dim lastRow, I As Long
    Dim folderName, oldFile, newFile As String
    
    Set changeSheet = Worksheets("ファイル名変換")
    
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = True Then
            folderName = .SelectedItems(1)
        End If
    End With
    
    lastRow = changeSheet.Cells(Rows.Count, "B").End(xlUp).Row
    
    For I = 2 To lastRow
    
        oldFile = folderName & "\" & changeSheet.Cells(I, "B")
        newFile = folderName & "\" & changeSheet.Cells(I, "C")
        
        Name oldFile As newFile
    
    Next I

End Sub

元のファイル名は『令和3年10月11.docx』～『令和3年10月132.docx』です。
変更後のファイル名は『番号_名前_分類1_分類2_内容.docx』です。
上のコードで、『令和3年10月11.docx』から『令和3年10月119.docx』まではうまく実行できました。
ところが、『令和3年10月120.docx』で

実行時エラー '52'
ファイル名または番号が不正です

と出てしまい、そこから先が変更できなくなってしまいました。
エラーが出ているのは　Name oldFile As newFile　の行です。
原因は何でしょうか。
そしてどのように書き換えれば解決できるでしょうか。
ご指導いただければ幸いです。
よろしくお願いいたします。

Comments

[hex309]

エラーになる『令和3年10月120.docx』のときの変換後のファイル名を教えて下さい。

Answer 1

newFile にファイル名に使えない記号などが入っているということはないですか。

ファイルやフォルダーの名前に使用できない文字について

Comments

[aoi_xxx]

ありがとうございます！
記号は問題なかったのですが、漢字に問題がありました。
具体的には、名前に『鷗』の字が入っていたために動かなかったようです。
『鴎』にしたところ問題なくすべて変換することができました。

VBA初心者ということもあり、自分の書いたプログラムの問題と思い込んでいました。
ファイル名に問題があるとは想像もしていなかったです。
ありがとうございました！もっと勉強します！