Listing Directory using FTPwebrequest and updating DB tables

[Sachin k Rajput]

I'm listing the directories using FTPWebRequest and updating the data into a sql table. My code is:

If Con.State = ConnectionState.Closed Then Con.Open()
ObjEventlog.WriteEventLog("TimerListing_Task()", "Connection Is Open Now")
Dim Rs As SqlDataReader = com.ExecuteReader(CommandBehavior.CloseConnection)
While Rs.Read
''ExecuteQuerys("Delete from temp_Listing_result where deviceID=" & Rs(0))
ListBox1.Items.Add("Listing DeviceID-->" & Rs(0).ToString & " Start...")
ObjEventlog.WriteEventLog("TimerListing_Task()", "Table temp_Listing_result Is Refresh Now For Device ID---> " & Rs(0).ToString)
Dim arr() As String
Dim request As FtpWebRequest = WebRequest.Create("ftp://" & Rs(1) & ":" & Rs(2) & "/" & Rs(3))
request.Credentials = New NetworkCredential(Rs(4).ToString, Rs(5).ToString)
request.Method = WebRequestMethods.Ftp.ListDirectoryDetails
Dim response As FtpWebResponse = request.GetResponse()
Dim responseStream As Stream = response.GetResponseStream()
Dim reader As StreamReader = New StreamReader(responseStream)
ObjEventlog.WriteEventLog("TimerListing_Task()", "WebRequest is Created with ----> " & "ftp://" & Rs(1) & ":" & Rs(2) & "/" & Rs(3))
Dim loadData As String = ""
Dim lineNumber As Integer = 0
While loadData IsNot Nothing
loadData = reader.ReadLine()

                arr = Split(loadData, vbNewLine)
                For i = 0 To UBound(arr)
                    If Len(arr(i)) > 0 Then
                        Dim ss As String = arr(i)
                        ObjEventlog.WriteEventLog("TimerListing\_Task()", "WebRequest Listing Result---> " & ss)
                        Dim isFolder As String = ss.Substring(0, 4)
                        If isFolder <> "drwx" Then
                            ss = Trim(ss.Substring(28))
                            ObjEventlog.WriteEventLog("TimerListing\_Task()", "WebRequest Listing Result After Split---> " & ss)