【超簡単】Excel VBAを使ってフォルダ内のファイルを自動分類！初心者向けブログ

Sub フォルダ内ファイルの分類()
    Dim フォルダパス As String
    Dim ファイル名 As String
    Dim 拡張子 As String
    Dim 対象フォルダ As Object
    Dim 対象ファイル As Object
    Dim 対象フォルダ名 As String
    
    ' 対象のフォルダパスを指定してください
    フォルダパス = "C:\Users\user\OneDrive\ドキュメント\VBA"
    
    ' 対象フォルダを作成
    Set 対象フォルダ = CreateObject("Scripting.FileSystemObject").GetFolder(フォルダパス)
    
    ' フォルダ内の各ファイルに対して処理を行う
    For Each 対象ファイル In 対象フォルダ.Files
        ファイル名 = 対象ファイル.Name
        拡張子 = UCase(Right(ファイル名, Len(ファイル名) - InStrRev(ファイル名, ".")))
        
        ' 拡張子のフォルダが存在しない場合は作成
        If Not CreateFolderIfNotExists(フォルダパス & "\" & 拡張子) Then
            MsgBox "フォルダの作成に失敗しました。"
            Exit Sub
        End If
        
        ' ファイルを移動
        対象ファイル.Move フォルダパス & "\" & 拡張子 & "\" & ファイル名
    Next 対象ファイル
    
    MsgBox "ファイルの分類が完了しました。"
    
    Set 対象ファイル = Nothing
    Set 対象フォルダ = Nothing
End Sub

Function CreateFolderIfNotExists(フォルダパス As String) As Boolean
    Dim 対象フォルダ As Object
    
    On Error Resume Next
    Set 対象フォルダ = CreateObject("Scripting.FileSystemObject").GetFolder(フォルダパス)
    On Error GoTo 0
    
    If 対象フォルダ Is Nothing Then
        On Error Resume Next
        CreateObject("Scripting.FileSystemObject").CreateFolder フォルダパス
        On Error GoTo 0
        
        Set 対象フォルダ = CreateObject("Scripting.FileSystemObject").GetFolder(フォルダパス)
        If 対象フォルダ Is Nothing Then
            CreateFolderIfNotExists = False
        Else
            CreateFolderIfNotExists = True
        End If
    Else
        CreateFolderIfNotExists = True
    End If
    
    Set 対象フォルダ = Nothing
End Function