Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
FileCopy problem
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Filecopy and UNC-pathname | Excel Programming | |||
Filecopy in vba macro | Excel Programming | |||
FileCopy | Excel Programming | |||
FileCopy | Excel Programming | |||
FileCopy error | Excel Programming |