QTTankReport 'Call the sub
Dim path1
Dim path2
Dim path3
Dim objFile1
Dim objFile2
Dim objFSO


Sub QTTankReport
Dim xlApp
Dim xlBook
Dim xlSheet
Dim first
Dim last
Dim i

set xlapp = CreateObject("Excel.Application")
set xlBook = xlApp.Workbooks.Open("c:\scripting\ips.xls")
set xlSheet = xlBook.Worksheets("Sheet1")

Do
  first = InputBox("First Row", "Starting Row", , 100,200)

If first<=0 Then    
    WScript.Echo "Canceled"
Exit Sub
End If
Loop While first<0 

Do
  last= InputBox("Last Row", "Last Row", , 100,200)

If last<0 Then    
    WScript.Echo "Canceled"
Exit Sub
End If
Loop While last<0 

set objFSO = createobject("Scripting.FileSystemObject")

for i=first to last 
path3= xlSheet.Cells(i,3).Value
if(path3 <> "") Then
if objFSO.FolderExists(path3) then

path1= xlSheet.Cells(i,1).Value
path2= xlSheet.Cells(i,2).Value

WScript.Echo path1


Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile1 = objFSO.GetFile("\\200.200.31.144\sharing\helpeeaccept.htm")
Set objFile2 = objFSO.GetFile("\\200.200.31.144\sharing\TakeControlMsgs.htm")

objFile1.copy(path1)
objFile2.copy(path2)


End If
End If
Next
Set objFile1 = Nothing
Set objFile2 = Nothing
Set objFSO = Nothing

WScript.Echo "Your computer is Clean - Contact me Charbel Assaf ceassaf@hotmail.com"
End Sub