Visual Basic

Private Sub SEMAK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SEMAK.Click

        Dim fileName As String = TextBox1.Text.Trim
        Dim lineNumber As Integer = 0
        Dim sr As StreamReader = New StreamReader(fileName)
        Dim conn As New SqlClient.SqlConnection("Data Source=10.0.0.70;User ID= sysadm;Password=sysadm;Initial Catalog=SPGA_Latihan;Persist Security Info=True;")

        Dim tarikh As String = ""
        Dim runNo As String = ""
        Dim coop As String = ""
        Dim line As String = ""


        Do
            line = sr.ReadLine()

            If line <> Nothing Then
                Try
                    tarikh = line.Substring(0, 8).Trim()
                    runNo = line.Substring(9, 5).Trim()
                    coop = line.Substring(15).Trim()

                Catch ex As Exception
                    Console.Write(ex.ToString())
                End Try

                Dim strSQL As String = "INSERT INTO portal (tarikh,runNo, coop) VALUES (@tarikh, @runNo, @coop)"
                Dim cmd As New System.Data.SqlClient.SqlCommand(strSQL, conn)

                conn.Open()

                cmd.Parameters.Add(New SqlClient.SqlParameter("@tarikh", SqlDbType.Char, 8))
                cmd.Parameters("@tarikh").Value = tarikh

                cmd.Parameters.Add(New SqlClient.SqlParameter("@runNo", SqlDbType.Char, 20))
                cmd.Parameters("@runNo").Value = runNo

                cmd.Parameters.Add(New SqlClient.SqlParameter("@coop", SqlDbType.VarChar, 100))
                cmd.Parameters("@coop").Value = coop

                cmd.ExecuteNonQuery()
                conn.Close()
                
                Dim dirB1 As DirectoryInfo = New DirectoryInfo(TextBox2.Text)





                Try

                    convertCoop(coop)



                    Dim dA1 As DirectoryInfo
                    Dim dirB2 As FileSystemInfo() = dirB1.GetDirectories

                    Dim strSQL2 As String = "SELECT folder, portal FROM  kodPortal"
                    Dim cmd2 As New System.Data.SqlClient.SqlCommand(strSQL2, conn)

                    For Each dA1 In dirB2
                        If dA1.Name = portal Then

                            Dim dA2 As DirectoryInfo
                            Dim dirB3 As FileSystemInfo() = dA1.GetDirectories

                            For Each dA2 In dirB3
                                If dA2.Name = "Fail_Bayaran" Then



                                    Dim dA3 As DirectoryInfo
                                    Dim dirB4 As FileSystemInfo() = dA2.GetDirectories

                                    For Each dA3 In dirB4
                                        If dA3.Name = coop Then

                                            Dim dA4 As FileSystemInfo
                                            Dim dirB5 As FileSystemInfo() = dA3.GetFileSystemInfos

                                            For Each dA4 In dirB5
                                                If dA4.Name <> runNo Then
                                                    MsgBox(coop)

                                                End If
                                            Next dA4
                                        End If
                                    Next dA3
                                End If
                            Next (dA2)
                        End If
                    Next dA1



                Catch ex As Exception

                End Try


            End If

        Loop Until line Is Nothing

        sr.Close()


    End Sub



Private Sub convertCoop(ByVal coop As String)

        Dim conn1 As New SqlClient.SqlConnection("Data Source=10.0.0.70;User ID= sysadm;Password=sysadm;Initial Catalog=SPGA_Latihan;Persist Security Info=True;")
        Dim comm As SqlClient.SqlDataAdapter = Nothing
        Dim ds As DataSet = New DataSet()

        Try
            Dim strSQL2 As String = "SELECT folder, portal FROM kodPortal WHERE folder ='" & coop & "'"

            conn1.Open()
            comm = New SqlClient.SqlDataAdapter(strSQL2, conn1)
            comm.Fill(ds, "kodPortal")

            portal = ds.Tables(0).Rows(0).Item("portal")


            conn1.Close()

        Catch ex As Exception 
            MsgBox(ex.Message)

        Finally
            If Not conn1 Is Nothing And conn1.State = ConnectionState.Open Then
                conn1.Close()
            End If
            conn1 = Nothing
            comm = Nothing
        End Try

    End Sub