Private Function GetOnlyDirectories() As String
Dim TheShortList As String = FTPListDirectory(txbx_FTPServer.Text, txbx_FTPUID.Text, txbx_FTPPassword.Text, True)
Dim TheLongList As String = FTPListDirectory(txbx_FTPServer.Text, txbx_FTPUID.Text, txbx_FTPPassword.Text)
Dim theDirectories As String = “”
If TheShortList.StartsWith(“Connection Problem – Error:”) Then
Dim Lines() As String = Split(TheLongList.Trim, vbCrLf)
For Each theLine As String In Lines
If theLine.Trim “” And theLine.ToLower.StartsWith(“d”) Then
Dim Temp As String = theLine.Remove(0, theLine.IndexOf(“:”) + 3).Trim
If Temp “.” And Temp “..” Then
theDirectories &= vbCrLf & Temp
theDirectories = theDirectories.Trim
End If
End If
Next
Else
Dim TheLists() As String = Split(TheShortList.Trim, vbCrLf)
Dim Lines() As String = Split(TheLongList.Trim, vbCrLf)
For Each thelist As String In TheLists
For Each theLine As String In Lines
If theLine.Trim.ToLower.EndsWith(thelist.Trim.ToLower) And theLine.Trim “.” And theLine.Trim “..” Then
theDirectories &= vbCrLf & thelist.Trim
theDirectories = theDirectories.Trim
End If
Next
Next
End If
Return theDirectories
End Function

Function FTPListDirectory(ByVal Target As String, ByVal UID As String, _
ByVal Pass As String, Optional ByVal Shortlist As Boolean = False) As String
Try
Dim clsRequest As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(Target), _
System.Net.FtpWebRequest)
clsRequest.Credentials = New System.Net.NetworkCredential(UID, Pass)
If Shortlist Then
clsRequest.Method = System.Net.WebRequestMethods.Ftp.ListDirectory
Else
clsRequest.Method = System.Net.WebRequestMethods.Ftp.ListDirectoryDetails
End If
Dim str As String = GetStringResponse(clsRequest)
clsRequest.Abort()
Return str
Catch ex As Exception
Return “Connection Problem – Error:” & vbCrLf & vbCrLf & ex.Message
End Try
End Function

”’
”’ Obtains a response stream as a string
”’
”’ current FTP request
”’ String containing response
”’ FTP servers typically return strings with CR and
”’ not CRLF. Use respons.Replace(vbCR, vbCRLF) to convert
”’ to an MSDOS string
Private Function GetStringResponse(ByVal ftp As FtpWebRequest) As String
‘Get the result, streaming to a string
Dim result As String = “”
Using response As FtpWebResponse = CType(ftp.GetResponse, FtpWebResponse)
Dim size As Long = response.ContentLength
Using datastream As Stream = response.GetResponseStream
Using sr As New StreamReader(datastream)
result = sr.ReadToEnd()
sr.Close()
End Using
datastream.Close()
End Using
response.Close()
End Using
Return result
End Function

04-30-08 03:04PM 40960 File Space Mine.exe