vb 读取指定路径文件名

Private Sub ExportCostSheetData()
        InsertRow("")
        InsertRow("Run 2:Export CostingSheet=========================")
        InsertRow("Status:System Connectting DataBase!")
        If ConnJWeb() = False Or ConnJWeb2() = False Then
            InsertRow("Status:System Connectting DataBase fialed!")
            AddRow("", "", "Status:System Connectting DataBase fialed!", "system")
            Exit Sub
            ' GoTo End1
        End If
        Dim CurrentComp As Integer
        Dim strDestFolder As String = "\\1.1.1.1\BogartCosting\CostSheet\"
        Dim rsR As New ADODB.Recordset
        Dim Flag As String = selectValue(" select top 1 flag from CostingSheetFileInfo ", adoJWeb, )
        Try

            Dim strFiles() As String = Directory.GetFiles(strDestFolder)
            Dim strFile As String
            Dim AbsolutePath As String
            Dim strFilePresent As String

            rsR.Open("select * from CostingSheetFileInfo ", adoJWeb, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
            For Each strFile In strFiles
                strFilePresent = Path.GetFileName(strFile)
                AbsolutePath = strDestFolder & strFilePresent
                Dim netCmd As New OleDb.OleDbCommand("P_DeleteRecord", netJWeb)
                netCmd.CommandType = CommandType.StoredProcedure
                netCmd.Parameters.Add("@FileName", strFilePresent)
                netCmd.Parameters.Add("@FileType", "Complete Costing")
                netCmd.ExecuteNonQuery()
                rsR.AddNew()
                rsR.Fields("FileName").Value = strFilePresent
                rsR.Fields("FileType").Value = "Complete Costing"
                rsR.Fields("AbsolutePath").Value = AbsolutePath
                rsR.Fields("LastUpdateDate").Value = Now()
                rsR.Fields("Flag").Value = IIf(Flag = , "", "")
                rsR.Update()
                InsertRow(strFilePresent & "===OK!")
                CurrentComp = CurrentComp +
                Me.ProgressBar1.Value = (CurrentComp / strFiles.Length) *
            Next
            rsR.Close()
        Catch ex As Exception
            SendEmail()
            InsertRow("===Open Folder Fail===")
            InsertRow("End Time:" & Now)
            Exit Sub
        End Try

        adoJWeb.Execute("Update CostingSheetFileInfo set flag='" & IIf(Flag = , "", "") & "' where flag is null ")
        adoJWeb.Execute(" delete from CostingSheetFileInfo where flag='" & Flag & "'")
        '  InsertRow(" Total error records:" & strFiles.r & "")
        InsertRow("")
        InsertRow("***************** System export result *******************")

        InsertRow("")
        InsertRow("End Time:" & Now)
        InsertRow("***************************************************************")

    End Sub