我在SSIS中的脚本任务中使用下面的代码。代码的目的是将CSV文件（文件名以CO2开头）从UTF-8编码转换为标准CSV，然后将其加载到数据库表中。然而，代码没有按照预期转换文件。逻辑正确吗？感谢您的帮助。

Public Sub Main()

    ' Set the folder path where the files are located
    Dim folderPath As String
    folderPath = "<path>"

    ' Set the file extension you want to filter (assuming all are .csv)
    Dim fileExt As String
    fileExt = "*.csv"

    ' Set the initial file to process
    Dim fileName As String
    fileName = Dir(folderPath & "CO2 *" & fileExt)

    ' Loop through matching files
    Do While Len(fileName) > 0
        ' Construct the full file path
        Dim filePath As String
        filePath = folderPath & fileName

        ' Open the file, convert and overwrite
        ConvertAndOverwriteCSV(filePath)

        ' Get the next file
        fileName = Dir()

    Loop
    MsgBox("Conversion completed for CO2 files.")
End Sub

Sub ConvertAndOverwriteCSV(filePath As String)
    Dim oExcel
    oExcel = CreateObject("Excel.Application")

    ' Disable Excel UI elements
    oExcel.Visible = False
    oExcel.DisplayAlerts = False
    oExcel.AskToUpdateLinks = False
    oExcel.AlertBeforeOverwriting = False

    Dim oWorkbook As Object
    oWorkbook = oExcel.Workbooks.Open(filePath)
    oWorkbook.SaveAs(FileName:=filePath & oWorkbook.Name, FileFormat:=6)

End Sub

字符串