Hi Guys

My script is
______________________________________________________________________________
Sub MoveFiles()
'This example move all Excel files from FromPath to ToPath.
    Dim FSO As Object
    Dim FromPath As String
    Dim ToPath As String
    Dim FileExt As String
    Dim FNames As String

 
 
    FromPath = "D:\Users\LF024\Documents\Files Moving" '<< Change
    ToPath = "D:\Users\LF024\Documents\Files Moved"   '<< Change only the destination folder

    FileExt = "*.csv*"  '<< Change
    'You can use *.* for all files or *.doc for word files

    If Right(FromPath, 1) <> "\" Then
        FromPath = FromPath & "\"
    End If

    FNames = Dir(FromPath & FileExt)
    If Len(FNames) = 0 Then
        MsgBox "No files in " & FromPath
        Exit Sub
    End If

    Set FSO = CreateObject("scripting.filesystemobject")


    FSO.MoveFile Source:=FromPath & FileExt, Destination:=ToPath
    MsgBox "You can find the files from " & FromPath & " in " & ToPath

End Sub
_____________
__________________________________________________

I want it to distingush between files by looking for 1s#3 in the filename

files have very long names and vary by date and a possibility of 1s#1, 1s#2, 1s#3 and 1s#5.

the script is to move them into their respective folders as they are all jumbled together.

Many thanks in advance

James