"cjake2299" < XXXX@XXXXX.COM > schrieb im Newsbeitrag
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