Sub TestSubroutine()
MoveFiles "D:\FromThisFolder\", "D:\OverToThisFolder"
End Sub
Sub MoveFiles(ByVal SourceDirectory As String, ByVal DestinationDirectory As String)
Dim FSO As Object
Dim TargetFile As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
If Right(SourceDirectory, 1) <> "\" Then SourceDirectory = SourceDirectory & "\"
If Right(DestinationDirectory, 1) <> "\" Then DestinationDirectory = DestinationDirectory & "\"
If FSO.FolderExists(SourceDirectory) And FSO.FolderExists(DestinationDirectory) Then
For Each TargetFile In FSO.getfolder(SourceDirectory).Files
If FSO.FileExists(DestinationDirectory & TargetFile.Name) = False Then
TargetFile.Move DestinationDirectory
End If
Next
Else
MsgBox "Error - the path details are incorrect"
Exit Sub
End If
Set FSO = Nothing
Set TargetFile = Nothing
End Sub