Hello,
The following code returns an "Invalid Procedure call or argument" Error.
In the instruction: StilesFSO.CopyFile Source:=ListerFolder, Destination:=ToSalvagniniFolder;
if I disable this line it actually debug.prints the accurate information.
Can someone help to figure out the issue with it?
'Paths
Public MoveFromPath As String, _
MoveToPath As String
'Folders
Public ListerFolder As Folder, _
ToSalvagniniFolder As Folder
Sub Mve_JOBFiles()
Dfn_StilesFSO
Dfn_JobNumberFolder
Dfn_JobTypeFolder
Dfn_ReleaseNumberFolder
Dfn_Rng_RowLastJob
Select Case Rng_CellRUN_LastJob.Value
Case 200 To 299
MoveFromPath = ("\\Xpmode-002\icc\S4.30")
Case 400 To 499
MoveFromPath = ("\\Xpmode-samm\icc\S4.30")
Case 700 To 899
MoveFromPath = ("\\Warren\s4.30")
Case 900 To 999
MoveFromPath = ("\\Xpmode-001\s4.30")
End Select
MoveToPath = ("\\SERVER2K8\salvagnini\Salvagnini Jobs\JOB" & JobNumberFolder & "\" & JobTypeFolder & "\" & ReleaseNumberFolder & "\")
Set ListerFolder = StilesFSO.GetFolder(MoveFromPath)
'Set ToSalvagniniFolder = StilesFSO.GetFolder(MoveToPath)
For Each JobFile In ListerFolder.Files
If Left(JobFile.Name, 3) = RunNumber.text Then
StilesFSO.CopyFile Source:=ListerFolder, Destination:=ToSalvagniniFolder
Debug.Print JobFile.Name
End If
Next JobFile
End Sub
Bookmarks