'**********************************************************************
'  Visual Basic ActiveX Script
'************************************************************************

Function Main()

  Dim fso
  Dim rs
  
  ' Eseguo la query
  Set rs= ("SELECT * FROM DBLIST_file_stra WHERE catpv IN (SELECT catpv FROM DBLIST_stato_pv WHERE data_start IS NOT NULL AND risolto=0);")

  ' Istanzio il FileSystemObject
  Set fso = CreateObject("Scripting.FileSystemObject")
  
  Do Until rs.EOF
      ' Elimino il file specificato
      fso.DeleteFile "E:\3D\invio_stra\ready\" & rs.Fields("nome_file").Value
  
      rs.MoveNext
  Loop
  
  ' Pulizia
  rs.Close
  Set rs = Nothing
  Set fso = Nothing
  Main = DTSTaskExecResult_Success

End Function