FileCopy problem

R

rju

in a nutshell: I have a folder named ScannedClientDocs with a series o
.jpg images...want to copy them to a more defined folder calle
ClientDocs

tried the following code:

For j = 2 To SCnum
For i = 0 To 17

SourceFile = Dir("" & drive & ":\ScannedClientDocs\" & Ws.Cells(j
5).Value _
& "" & neuArray(i) & ".jpg", vbDirectory)

DestinationFile = Dir("" & drive & ":\ClientDocs\" & Ws.Cells(j
5).Value & "\" _
& Ws.Cells(j, 5).Value & "" & snArray(i) & "", vbDirectory)
If SourceFile <> "" Then 'Dir("" & drive & ":\ScannedClientDocs\"
Ws.Cells(j, 5).Value & "" & neuArray(i) & ".jpg", vbDirectory)

FileCopy SourceFile, DestinationFile

End If
Next i
Next j

recieve the message: File not found

When I go to debug, Source file is there (e.g., SmithJohnDD.jpg) an
the more defined Destination folder is there (e.g.
SmithJohnDDForm...so I want to put the SmithJohnDD.jpg file into th
sub-folder SmithJohnDDForm...where did I goof?

Thanks, Ro
 
Top