'**********************************************************************
' Visual Basic ActiveX Script
'************************************************************************
Function Main()
Dim oFSO, oFile
'************************************************************************
' Delete file from FTP server.
'************************************************************************
set oFSO = CreateObject("Scripting.FileSystemObject")
set oFile = oFSO.CreateTextFile("c:\ftp_remove_file.txt", true)
oFile.writeline "lcd c:\"
oFile.writeline "open xxx.xxx.x.xx"
oFile.writeline "login_name"
oFile.writeline "password"
oFile.writeline "cd /download"
oFile.writeline "del somefile.txt"
oFile.writeline "quit"
oFile.Close
set oFile = nothing
set oFSO = nothing
Main = DTSTaskExecResult_Success
End Function