Velikost souboru   zodpovězená otázka

VB.NET

Ahoj,

chci se zeptat jen, jak se da udelat, aby treba v textbox1 se ukazovala velikost urciteho souboru (KB,B).

dik

nahlásit spamnahlásit spam 1 / 1 odpovědětodpovědět

Dim file As New IO.FileInfo("soubor")

TextBox.Text = String.Format("{0.0}kB", file.Length / 1024)

nahlásit spamnahlásit spam 0 odpovědětodpovědět

Neco je spatne v 2. radku.

nahlásit spamnahlásit spam 0 odpovědětodpovědět

Musite mit textbox se spravnym natvem.

nahlásit spamnahlásit spam -1 / 1 odpovědětodpovědět

Jo to jo, uz sem to vyresil. Jo a jeste bych potreboval vedet, jak to udelat u souboru na internetu - př. www.abc.cz/download/xxx.rar, aby mi to napsalo velikost souboru.

nahlásit spamnahlásit spam 2 / 2 odpovědětodpovědět

To je již trochu složitější, záleží na ypůsobu připijení k netu (např proxi)

Jednoduchý příklad (podobně můžete i soubor stáhnout pokud příklad správně rozvedete):

Dim webRq As Net.HttpWebRequest = Net.HttpWebRequest.Create("http://www.abc.cz/download/xxx.rar")

Dim webRs As Net.HttpWebResponse = webRq.GetResponse

If webRs.StatusCode = Net.HttpStatusCode.OK Then

Debug.Print(webRs.Headers(Net.HttpRequestHeader.ContentLength))

End If

nahlásit spamnahlásit spam -1 / 1 odpovědětodpovědět

nebo lépe:

Dim webRq As Net.HttpWebRequest = Net.HttpWebRequest.Create("http://www.un.org/Depts/Cartographic/map...")

Dim webRs As Net.HttpWebResponse = webRq.GetResponse

If webRs.StatusCode = Net.HttpStatusCode.OK Then

Debug.Print(webRs.ContentLength)

End If

nahlásit spamnahlásit spam -1 / 1 odpovědětodpovědět
FileLen("C:\Windows\notepad.exe").ToString("N0")

nahlásit spamnahlásit spam 1 / 1 odpovědětodpovědět
                       
Nadpis:
Antispam: Komu se občas házejí perly?
Příspěvek bude publikován pod identitou   anonym.
  • Administrátoři si vyhrazují právo komentáře upravovat či mazat bez udání důvodu.
    Mazány budou zejména komentáře obsahující vulgarity nebo porušující pravidla publikování.
  • Pokud nejste zaregistrováni, Vaše IP adresa bude zveřejněna. Pokud s tímto nesouhlasíte, příspěvek neodesílejte.

přihlásit pomocí externího účtu

přihlásit pomocí jména a hesla

Uživatel:
Heslo:

zapomenuté heslo

 

založit nový uživatelský účet

zaregistrujte se

 
zavřít

Nahlásit spam

Opravdu chcete tento příspěvek nahlásit pro porušování pravidel fóra?

Nahlásit Zrušit

Chyba

zavřít

feedback