I needed to watch a directory for incoming files, then rename the files sequentially and move them. Here’s how I did it.

int i

for i = 1 to 10000  
    strComputer = "."  
  
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")  
  
    Set colFiles = objWMIService.ExecQuery("Select * From CIM_DataFile Where Path = '\scripts\' and Extension = 'pdf'")  
  
    For Each objFile in colFiles  
     strNewName = objFile.Drive & objfile.path & "\new\" & i & ".pdf"  
     errResult = objFile.copy(strNewName)    
     objfile.delete  
      
    Next  
  
    wscript.sleep 3000  
  
    'Wscript.echo "done " & i  
 next