Sorting files in folders per name

I have thousands of files with names consisted of six capital letters, six numbers, dot, six numbers, dot, xlsx (I.E. SMIJOH140469.040823). What I would like to do is to have all of them sorted in subfolders made automatically according to first twelve symbols (I.E. SIMJOH140469), AND I would like ALL the files starting with same twelve symbols to end-up in the same subfolder. (I.E. SMIJOH140469.040823, SMIJOH140469.080223, SMIJOH140469.030922 to folder SMIJOH140469.
Can it be done?

See if this gets you started:

Code:

---

Sub CopyFiles()
    Dim strFolder As String, strFile As String, strPrefix As String
    Dim colFiles As New Collection, varItem As Variant, fso As FileSystemObject
    Set fso = CreateObject("scripting.filesystemobject")
    strFolder = "C:\folderpath"
    strFile = Dir(strFolder & "\*.*")
    Do While strFile <> vbNullString
        If strPrefix <> Left(strFile, 12) Then
            strPrefix = Left(strFile, 12)
            colFiles.Add strPrefix
        End If
        strFile = Dir
    Loop
    For Each varItem In colFiles
        If Dir(strFolder & "\" & varItem) = "" Then MkDir strFolder & "\" & varItem
        fso.CopyFile strFolder & "\" & varItem & "*", strFolder & "\" & varItem
    Next
End Sub

---

Quote:

---

Originally Posted by June7

See if this gets you started:

Code:

---

Sub CopyFiles()
    Dim strFolder As String, strFile As String, strPrefix As String
    Dim colFiles As New Collection, varItem As Variant, fso As FileSystemObject
    Set fso = CreateObject("scripting.filesystemobject")
    strFolder = "C:\folderpath"
    strFile = Dir(strFolder & "\*.*")
    Do While strFile <> vbNullString
        If strPrefix <> Left(strFile, 12) Then
            strPrefix = Left(strFile, 12)
            colFiles.Add strPrefix
        End If
        strFile = Dir
    Loop
    For Each varItem In colFiles
        If Dir(strFolder & "\" & varItem) = "" Then MkDir strFolder & "\" & varItem
        fso.CopyFile strFolder & "\" & varItem & "*", strFolder & "\" & varItem
    Next
End Sub

---

---

Many thanks for your help.
I am not very experienced, so please ignore my ignorance as much as you can.
I have started your script as macro from Excel.
I have changed folder path to "C:\Users\User\Desktop\Sort"
Compile error: user-defined type not defined (in script marked in red)
What can I do?

Options:

1. change code to use late binding: Dim fso As Object

2. set VBA reference library Microsoft Scripting Runtime for early binding

Review https://www.automateexcel.com/vba/us...-in-excel-vba/

Edit code to use your folder path in place of "folderpath"