Vraag : het eenvoudige Voorbeeld van de vb- dossierdownload

Ik heb verscheidene voorbeelden hier bekeken en op Internet, schijnen allemaal zij een verschillend doel hebben. Om het grootste deel van één of ander soort fout in hen niet te vermelden. Ik zou één dossier in een klein programma willen downloaden elke maand. Ik wil het met een geplande taak elke maand op een server in brand steken zodat een persoon niet moet babysit program.

Antwoord : het eenvoudige Voorbeeld van de vb- dossierdownload

Goed is dat iets verschillende completley:)  Ik merkte geen credentierequirment op zodat werd het verondersteld u enkel van een urlplaats wilde downloaden.  Er zijn een paar verschillende manieren om met FTP te verbinden dat ik heb gehouden van gebruikend de () methodes FtpWebRequest aangezien het u een te manipuleren stroom kan geven.

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

Schemerige fs als FileStream
        Schemerige fwr als FtpWebRequest
        Schemerige gegevens (4096) als Byte
        Schemerige bytesRead als Geheel = 1

        Schemerige ftpUrl als Koord = „ftp://ftp.server.com:21/“ 'FTP url + haven
        Schemerige ftpUser als Koord = „gebruikersbenaming“
        Schemerige ftpPass als Koord = „wachtwoord“
        Schemerige ftpFile als Koord = „TEST/myfile.txt“ 'omslag/dossier op server
        Schemerige savePath als Koord = „C:\myfile.txt“ 'sparen plaats

        ftpUrl = ftpUrl.Insert (ftpFile ftpUrl.Length,)
        fwr = FtpWebRequest.Create (ftpUrl)
        fwr. Geloofsbrieven = Nieuwe NetworkCredential (ftpUser, ftpPass)
        fwr. Methode = WebRequestMethods.Ftp.DownloadFile
        fs = Nieuwe FileStream (savePath, FileMode.Create, FileAccess.Write, FileShare.Read)
        Doe terwijl bytesRead > 0
            bytesRead = fwr.GetResponse.GetResponseStream.Read (gegevens, 0, gegevens. Lengte)
            fs. Schrijf (gegevens, 0, bytesRead)
        Lijn
        fs. Sluit ()
        fs. Schik ()
        fs = niets
        fwr = niets
Andere oplossingen  
 
programming4us programming4us