help with script

Hi

I have the code below in a dts package to read any file from a particular
directory - I get error with My.Computer.FileSystem.... - How can I sort this
out.

Thanks


Function Main()
Dim file As String
file = My.Computer.FileSystem.GetFiles "\\Directory\Inbox\EAF1NL*.xml"
Set objBulkLoad = CreateObject("SQLXMLBulkLoad.SQLXMLBulkload")
objBulkLoad.ConnectionString = "provider=SQLOLEDB;data
source=localhost;initial catalog=myDB; integrated security=SSPI"
objBulkLoad.ErrorLogFile = "\\Directory\Inbox\EAF1errorfile.txt"
objBulkLoad.Execute "\\Directory\Inbox\EAF1NL.xsd", "file"
My.Computer.FileSystem.MoveFile "file","\\Directory\Inbox\Archive\"
Set objBulkLoad = Nothing
Main = DTSTaskExecResult_Success

End Function