Pytanie : prosty VB kartoteka ściąganie przykład

I patrzeć kilka przykład tutaj i na the internet, przykład wydawać się mieć różny purpose. Nie wspominając błąd niektóre jakby błąd w. I polubić jeden kartoteka w mały program mały miesiąc. I chcieć ono z dołączony zadanie dołączony miesiąc na serwer więc osoba musieć babysit the program.

Odpowiedź : prosty VB kartoteka ściąganie przykład

Well który być coś completley różny:)  I zauważać jakaś jakaś requirment więc ono zakładać ty właśnie chcieć od url lokacja.  Tam  być kilka inny sposób ftp I lubić the FtpWebRequest () metoda ponieważ ono móc ty strumień.

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

Ciemnawy fs Jako FileStream
        Ciemnawy fwr Jako FtpWebRequest
        Ciemnawy dane (4096) Jako Bajt
        Ciemnawy bytesRead Jako Integer = (1)

        Ciemnawy ftpUrl Jako Sznurek = "ftp://ftp.server.com:21/" 'ftp url + port
        Ciemnawy ftpUser Jako Sznurek = "username"
        Ciemnawy ftpPass Jako Sznurek = "hasło"
        Ćmić ftpFile Jako Sznurek = "TEST/myfile.txt" 'falcówka/kartoteka na serwer
        Ćmić savePath Gdy Sznurek = "C:\myfile.txt" 'oprócz lokacja

        ftpUrl = ftpUrl.Insert (ftpUrl.Length, ftpFile)
        fwr = FtpWebRequest.Create (ftpUrl)
        fwr. Referencje = Nowy NetworkCredential (ftpUser, ftpPass)
        fwr. Metoda = WebRequestMethods.Ftp.DownloadFile
        fs = Nowy FileStream (savePath, FileMode.Create, FileAccess.Write, FileShare.Read)
        Robić Podczas Gdy bytesRead > (0)
            bytesRead = fwr.GetResponse.GetResponseStream.Read (dane, (0), dane. Długość)
            fs. Pisać (dane, (0), bytesRead)
        Pętla
        fs. Zamykać ()
        fs. Dispose ()
        fs = Nic
        fwr = Nic
Inne rozwiązania  
 
programming4us programming4us