Привет, это mounika .в настоящее время я работаю над пакетами ssis .мне нужно преобразовать приведенный ниже код из vbscript в VB.NET не могли бы вы сказать мне, пожалуйста, как это сделать

---

Function Main()

                dim strFeedFileName

               

               Const ForReading = 1, ForWriting = 2, ForAppending = 8

                Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0

 

                strFeedFileName = DTSGlobalVariables("gFeedFileName").Value

 

                ' Check if file exists and size is > 0 and not a junk by checking first line

                Dim fs, f, s, t, strData, strAllocDate

 

                Set fs = CreateObject("Scripting.FileSystemObject")

                if not fs.FileExists(strFeedFileName) then

                                err.Raise 12345,"CRS-" & DTSGlobalVariables("gAccountType").Value & "-DataUpload DTS Package",  " Extract file not found! Cannot proceed. " & strFeedFileName

                                Main = DTSTaskExecResult_Failure

                                Exit function

                else

                                Set f = fs.GetFile(strFeedFileName)

                                if not f.Size > 0 then

                                                err.Raise 12346,"CRS-" & DTSGlobalVariables("gAccountType").Value & "-DataUpload DTS Package", " Extract file empty! Cannot proceed."

                                                Main = DTSTaskExecResult_Failure

                                                Exit function           

                                end if

                end if

                set fs = nothing

                'to execute the DTS event start values

                Main = DTSTaskExecResult_Success

End Function

Что я уже пробовал:

я пробовал писать на разных языках, но не получил iam new Для этого vbscript и vb.net


заранее спасибо

---