Fråga : enkla VB sparar nedladdningexempel

Jag har sett flera exempel här, och på internet, alla dem verkar dem har ett olikt att ämna. Inte till omnämnande mest av någon sort av felet i dem. Jag skulle något liknande för att nedladda en sparar i ett litet program varje månad. Jag önskar att avfyra den med en planlagd uppgift varje månad på en server, så en person måste inte att sitta barnvakt program. " klar "

Svar : enkla VB sparar nedladdningexempel

Välla fram som är något den olika completleyen:),  Jag märkte inte någon vitsordrequirment, så det antogs att du önskade precis att nedladda från ett url-läge.  Det finns en koppla ihop av olik väg att förbinda till en ftp som jag gillar using de FtpWebRequest () metoderna, sedan den kan ge dig en strömma för att behandla.

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

Dunkel fs som FileStream
        Dunkel fwr som FtpWebRequest
        Dunkla data (4096) som byte
        Dunkel bytesRead som heltal = 1

        Dunkel ftpUrl som stränger = ”ftp://ftp.server.com:21/” 'ftp url + port
        Dunkel ftpUser som stränger = ”username”,
        Dunkla ftpPass som stränger = ”lösenord”,
        Dunkla ftpFile som stränger = ”TEST/myfile.txt” 'mapp/sparar på serveren
        Dunkel savePath som stränger = ”C:\myfile.txt” 'räddningläge

        ftpUrl = ftpUrl.Insert (ftpUrl.Length som, är ftpFile)
        fwr = FtpWebRequest.Create (ftpUrl)
        fwr. Vitsord = nya NetworkCredential (ftpUser, ftpPass)
        fwr. Metod = WebRequestMethods.Ftp.DownloadFile
        fs = nya FileStream (savePath, FileMode.Create, FileAccess.Write, FileShare.Read)
        Gör stundbytesRead > 0
            bytesRead = fwr.GetResponse.GetResponseStream.Read (data, 0, data. Längd)
            fs. Skriv (data, 0, bytesRead)
        Kretsa
        fs. Nära ()
        fs. Kassera ()
        fs = ingenting
        fwr = ingenting
Andra lösningar  
 
programming4us programming4us