Dobrý den, Chtěl bych se zeptat. Mám několik souborů na serveru cca 50 a potřeboval bych aby se mi stáhly do Pc a přitom vytvořily složku "pack" pokuď již nebyla vytvořena.Ale potřeboval bych to toho vložit pár podmínek. 1. pokud soubor např. locale_cz.epk neežistuje ve složce "pack" aby se stáhl ze serveru. 2. pokud, ale již soubor je a má stejnou velikost jako je na serveru, tak se nebude stahovat a na labelu se vypíše, že soubor je aktuální. 3. pokud, ale již soubor je stažen ale nemá stejnou velikost jako je na serveru, tak se stáhne a přepíše původní. vždy jsou dva soubory stejně pojmenovány, ale mají jinou koncovku .epk a .eix oba bych potřeboval stáhnout podle 1, 2 nebo 3 podmínky. Taky přikládám zdrojový kód, který jsem našel na webu
fileDetail = ReadINI("Název_programu", "locale_cz.epk")
TextBox2.Text = fileDetail
If My.Computer.FileSystem.FileExists("pack\locale_cz.epk") = 0 Then
My.Computer.Network.DownloadFile("http://web_adresa/patcher/client/pack/locale_cz.eix", "pack/locale_cz.eix")
My.Computer.Network.DownloadFile("http://web_adresa/patcher/client/pack/locale_cz.epk", "pack/locale_cz.epk")
End If
strMyFile = "pack\locale_cz.epk"
TextBox3.Text = FileLen(strMyFile)
If TextBox2.Text = TextBox3.Text Then
Else
If My.Computer.FileSystem.FileExists("pack\locale_cz.epk") Then
My.Computer.FileSystem.DeleteFile("pack\locale_cz.epk")
My.Computer.FileSystem.DeleteFile("pack\locale_cz.eix")
End If
My.Computer.Network.DownloadFile("http://web_adresa/patcher/client/pack/locale_cz.epk", "pack/locale_cz.epk")
My.Computer.Network.DownloadFile("http://web_adresa/patcher/client/pack/locale_cz.eix", "pack/locale_cz.eix")
End If
BackgroundWorker1.ReportProgress(16)
System.Threading.Thread.Sleep(100)
Tento kód má chybičku a nedělá co má tak jak jsem psal o těch podmínkách. Budu rád za každou radu nebo pomoc.Děkuji předem
|