Private Sub LoadFTPFiles()
Dim ftp As New FTPClient(My.Settings.ftpSite, My.Settings.ftpUsername, My.Settings.ftpPassword)
For Each file As String In ftp.ListDirectory(My.Settings.ftpFolder)
ftp.Download(file, tempDirectory & "\" & file)
Next
End Sub
Dim URI As String = Hostname & target
'to
Dim URI As String = Hostname & My.Settings.ftpFolder & "\" & target