>Ciao
>
>ho scritto questa cosa:
>
>Function Main()
>Main = DTSTaskExecResult_Success
> Set fs = CreateObject("Scripting.FileSystemObject")
> Set a = fs.CreateTextFile("c:\testfile.txt", True)
> Set b = fs.FileExists("c:\test2.txt")
> if b="true" then a.WriteLine("This is a test.")
> a.Close
> b.Close
>End Function
>
>Ma mi da un errore... te lo posto di seguito:
>
>Descrizione errore - codice errore: 0
>Origine errore=Errore di run-time di Microsoft VBScript
>Descrizione errore: Necessario oggetto: 'fs.FileExist(...)'
>
>Errore nella riga 8
Certo, Set si utilizza per referenziare le variabili oggetto.
Il metodo FileExist restituisce un valore boolean quindi se vuoi memorizzare il valore di ritorno in una variabile, non devi utilizzare il Set.
Ti allego un pezzo di codice di un mio ActiveX Script Task:
'******************************
' Visual Basic ActiveX Script
'******************************
Option Explicit
Function Main()
Dim oFSO
Dim strLogFileName1
Dim strLogFileName2
strLogFileName1 = DTSGlobalVariables("LogFileName1").Value
strLogFileName2 = DTSGlobalVariables("LogFileName2").Value
' Istanzio il FileSystemObject
Set oFSO = CreateObject("Scripting.FileSystemObject")
' Verifico l'esistenza del primo file di log
If oFSO.FileExists(strLogFileName1) Then
' Lo elimino
oFSO.DeleteFile strLogFileName1
End If
' Verifico l'esistenza del secondo file di log
If oFSO.FileExists(strLogFileName2) Then
' Lo elimino
oFSO.DeleteFile strLogFileName2
End If
' Pulizia
Set oFSO = Nothing
' Uscita
Main = DTSTaskExecResult_Success
End Function
Prendi spunto da quella routine.
Tieni presente che tu dovrai utilizzare 2 ActiveX Script Task: uno per la verifica del file di input e uno per la cancellazione.
Nel caso esista il file di input, Main dovrà essere uguale a DTSTaskExecResult_Success altrimenti DTSTaskExecResult_Failure.
Leggi questo tip:
http://www.sqldts.com/default.aspx?211
>Il problema è che io di VB non ne so praticamente nulla!!!!!!!
>:(
Bene, un'occasione per imparare il VBScript 
Ciao!
--
Lorenzo Benaglia
Microsoft MVP - SQL Server
http://blogs.dotnethell.it/lorenzo/
http://italy.mvps.org