Function Main()
         dim fso
         set fso = CreateObject("Scripting.FileSystemObject")
         set folder = fso.GetFolder(DTSGlobalVariables("DirectoryRiace").Value) 
         set files = folder.Files 
         filename=""

         For Each file in Files 
  if (UCase(fso.GetExtensionName(file.path))="TXT")  then
' chiaramente i nomi dei miei files hanno una codifica con "Nomefile_data.txt"
    if ((instr(1,ucase(file.path),"Nomefile_")>1)then
      filename=file.path
    end if
  end if
        Next  
      
      Set fso=nothing
      Set files=nothing

' PARTE CHIAVE
 ' DICHIARO 2 VARIABILI
      dim pkg
      Dim stpbegin
     if (filename<>"") then
'SE LA VARIABILE filename NON è VUOTA SIGNIFICA CHE è RIMASTO ANCORA UN FILE
'RICORDO CHE NEL DTS CHE RICHIAMO C'è UN TASK CHE ELIMINA I FILE UNA VOLTA IMPORTATI      
  set pkg = DTSGlobalVariables.Parent
'            IMPOSTO IL PACKAGE
' PRENDO IL TASK CHE MI INTERESSA E LO SETTO (LO SI PUO' VEDERE CLICCANDO CON IL DESTRO SUL TASK > WORKFLOW PROPERTIES > OPTIONS )
    set stpbegin = pkg.Steps("DTSStep_DTSExecutePackageTask_1")
'IMPOSTO LO STATUS DI ATTESA
               stpbegin.ExecutionStatus = DTSStepExecStat_Waiting

  end if
Main = DTSTaskExecResult_Success
End Function