Visual Basic

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim fdlg As OpenFileDialog = New OpenFileDialog()
        fdlg.Title = "C# Corner Open File Dialog"
        fdlg.InitialDirectory = "c:\"
        fdlg.Filter = "All files (*.*)|*.*|All files (*.*)|*.*"
        fdlg.FilterIndex = 2
        fdlg.RestoreDirectory = True

        If fdlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = fdlg.FileName
        End If




    End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim folderopen As New FolderBrowserDialog
        With folderopen
            .RootFolder = Environment.SpecialFolder.Desktop
            .SelectedPath = "C:\DOCUMENT"
            .Description = "Select the source directory"
            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                ' Display the selected folder if the user clicked on the OK button.
                MessageBox.Show(.SelectedPath)
                TextBox2.Text = .SelectedPath
            End If

        End With
    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()
        Dim strSQL2 As String = "SELECT folder, portal FROM kodPortal WHERE folder ='" & coop & "'"

        Try

            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


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