Dieser Beitrag wurde von Jue verfasst.
Dieser Sourcecode ist ein einfaches Modul, womit man eine Datei aus dem Internet laden kann
Keywords: Visual Basic .net, VB .net, VB 2005, Datei download, herunterladen, DownloadFile, Function, Funktion, dwlByLink, File Stream, Net Stream, System.Net.WebRequest, System.Net.WebResonse
Dieser Sourcecode ist ein einfaches Modul, womit man eine Datei aus dem Internet laden kann
VB.NET-Quellcode
- Imports System
- Imports System.Net
- Imports System.IO
- Module Downloader
- Sub Main()
- dwlByLink("http://www.juefinet.de/","C:\test.htm")
- End Sub
- Public Sub dwlByLink(myLink As String, myFile As String)
- Try
- Dim myRequest As System.Net.WebRequest = System.Net.WebRequest.Create(myLink) 'Request erstellen
- Dim myResponse As System.Net.WebResponse = myRequest.GetResponse() 'Respons speichern
- Dim myStream As System.IO.Stream = myResponse.GetResponseStream() 'Datenstream aus dem Respons extrahieren
- Dim myReader As New System.IO.BinaryReader(myStream) 'Binärer "leser" zum Lesen des Streams
- 'Datei speichern
- Dim myFileStream As New System.IO.FileStream(myFile, System.IO.FileMode.Create) 'Datei auswählen
- Dim i As Long
- For i = 1 To myResponse.ContentLength 'Byte für Byte in die Datei übertragen
- myFileStream.writeByte(myReader.ReadByte())
- Next i
- myFileStream.flush() 'noch mal spülen ...
- myFileStream.close() ' und schließen
- Catch exc As Exception
- 'Fehlerbehandlung, MSG-Box, ect ...
- End Try
- End Sub
- End Module
Keywords: Visual Basic .net, VB .net, VB 2005, Datei download, herunterladen, DownloadFile, Function, Funktion, dwlByLink, File Stream, Net Stream, System.Net.WebRequest, System.Net.WebResonse
Die Wissenschaft wird nie ein besseres Kommunikationssystem in den Büros erfinden können als die Kaffeepause.
(Autor: Earl Wilson, amerik. Schriftsteller)
https://www.serviceteam-md.de
(Autor: Earl Wilson, amerik. Schriftsteller)
https://www.serviceteam-md.de
Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Mad Andy“ ()