"cjake2299" <cjake2299@newsgroup> schrieb im Newsbeitrag
> 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.
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
sImagename = oSheet.cells(i, 1)
if sImageName = "" then Exit Do
i = i + 1