Copy file from one directory to a new directory, using excel spreadsheet as reference for items to be copied

[cjake2299]

All-

I have an excel spreadsheet containing 7509 rows (Products), and I
have a directory containing 16,421 image files. The images are all
named by the Product Number, which is also a row in my excel
spreadsheet. I need to query the excel spreadsheet to get all the
product numbers, then check my current directory for a
<productNumber>.jpg file. If the file exists, I need to COPY it to a
new directy. If it does not exist, I need to write the product number
to a text file that I can go over after the fact to obtain the image
for the products missing photos.

[cjake2299]

On Dec 17, 9:49 am, cjake2299 <cjake2...@gmail.com> wrote:
I should also note that I have absolutely no idea how to query the
excel spreadsheet. I can tell you I need to query 12072009.xls Sheet1
Column "A", begining at row 2 (as row 1 is the header row). I also do
not have any starting script or script in the works at this time, but
am working on it feverishly.

[Pegasus [MVP]]

"cjake2299" <cjak...@gmail.com> schrieb im Newsbeitrag
news:9968e839-e4fc-4b8a...@s21g2000prm.googlegroups.com...

Here are the three steps you need to code:
Step 1: Read the first cell of each of your 7509 rows.
Step 2: Use the oFSO FileExists method to see if the file exists. The
helpfile script56.chm which you can download from the Microsoft site will
show you how it's done.
Step 3: If the file exists, use the oFSO copyfile method to copy the file,
as shown in script56.chm. If the file does not exist, use the oFSO writeline
method to record the fact.

Here is a basic example for Step 1:

sListname = "d:\Test.xls"
Set oExcel = CreateObject("Excel.Application")
oExcel.Visible = True
Set oWorkbook = oExcel.Workbooks.open(sListname)
Set oSheet = oWorkbook.Worksheets(1)

i = 2
Do
sImagename = oSheet.cells(i, 1)
if sImageName = "" then Exit Do
WScript.echo sImagename
i = i + 1
Loop
oWorkbook.close
oExcel.application.quit