Moving Specific Files

[Jamehall]

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

[arlu1201]

Welcome to the forum.

I have added code tags to your post. As per forum rule 3, you need to use them whenever you put any code in your post. Please add them in future. If you need more information on how to use them, check my signature.

[JBeaucaire]

So the macro above is not suited for moving multiple randomly named files from one known location to multiple other locations.

What I would need to see is:

1) Sample complete filenames
2) The exact list of search strings and matching target destinations