Sub フォルダ内のファイル全部の名前を変更する()

    場所 = ThisWorkbook.Path 'ファイルの場所を指定
    
    Do
    
        対象ファイル = Dir(場所 & "\" & "*.jpg") 'JPGを全部変更
        
        前ファイル名 = 場所 & "\" & 対象ファイル
        後ファイル名 = 場所 & "\0" & 対象ファイル '先頭に0を挿入する
        
        Name 前ファイル名 As 後ファイル名 '名前を変更
        
    Loop While 対象ファイル <> "" 'ファイルがある限りLoop継続

End Sub