[VisualBasic] Downloaden via VB

 Private Declare Function DeleteUrlCacheEntry Lib "wininet" Alias _
 "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long

 Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
 "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
 ByVal szFileName As String, ByVal dwReserved As Long, _
 ByVal lpfnCB As Long) As Long
 Private Const ERROR_SUCCESS As Long = 0

Dim OptNum As String

Private Function WebDownload(URL As String) As String
 Dim targetFile As String
 Dim hFile As Long
 On Error Resume Next
 'Datei aus Cache leeren
 Call DeleteUrlCacheEntry(URL)
 'temporärer Dateiname auf der Festplatte
 targetFile = App.Path
 If Right(targetFile, 1) <> "\" Then targetFile = targetFile & "\"
 targetFile = targetFile & "download.tmp"
 If Dir(targetFile) <> "" Then Kill targetFile
 'Download staren
 If DownloadFile(URL, targetFile) Then
 hFile = FreeFile
 Open targetFile For Input As #hFile
 WebDownload = Input$(LOF(hFile), hFile)
 Close #hFile
 Kill targetFile
 Else
 WebDownload = "Error"
 End If
 If Err.Number <> 0 Then WebDownload = "Error"
 End Function

 Private Function DownloadFile(ByVal sURL As String, _
 ByVal sLocalFile As String) As Boolean
 Dim lngRetVal As Long
 DownloadFile = URLDownloadToFile(0&, sURL, _
 sLocalFile, 0&, 0&) = ERROR_SUCCESS
 End Function



 tmp = WebDownload(Url)

Dim Loader As New clsFTP()
Loader.RemoteHost = "ftp.DeinFTP-Server.net"
Loader.RemoteUser = "Username"
Loader.RemotePassword = "DeinPasswort"
 Loader.DownloadFile("Datei.txt", "C:\Datei.txt")