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
--
Message posted from
http://www.ExcelForum.com