Typy disků
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Typy diskůTypy disků

 
Hledat
Vybavení pro Laser Game
Spuštěn Filmový magazín
Laser Game Brno
Pergoly a střechy Brno

Typy disků

Google       Google       16. 6. 2005       10 031×

Tento jednoduchý krátký zdroják zjistí, jakého typu je určitý vámi nebo programem zvolený disk.

Reklama
Reklama

Pokud potřebujete zjistit typ disku, je tu pro vás jednoduché řešení a opět s využitím API funkce.

Private Declare Function GetDriveType Lib _             
"kernel32.dll" Alias "GetDriveTypeA" ( _
ByVal nDrive As String) As Long
Dim Disc As Variant

Private Sub Command1_Click()
  Disc = (Text1.Text & ":")
  Disc = GetDriveType(Disc)
  If Disc = 5 Then
    Disc = "Optická mechanika"
  ElseIf Disc = 6 Then Disc = "Ram disk"
  ElseIf Disc = 4 Then Disc = "Vzdálený disk"
  ElseIf Disc = 3 Then Disc = "Pevný disk"
  ElseIf Disc = 2 Then Disc = "Výměnný disk"
  ElseIf Disc = 1 Then Disc = "Disk neexistuje"
  ElseIf Disc = 0 Then Disc = "Neznámý typ disku"
  Else: Disc = "asi něco jiného"
  End If
  Print Disc
End Sub

Do textboxu napište písmeno disku. Název se vám po stisknutí tlačítka vypíše na formulář. Jak toho využijete je jen na vás.

×Odeslání článku na tvůj Kindle

Zadej svůj Kindle e-mail a my ti pošleme článek na tvůj Kindle.
Musíš mít povolený příjem obsahu do svého Kindle z naší e-mailové adresy kindle@programujte.com.

E-mailová adresa (např. novak@kindle.com):

TIP: Pokud chceš dostávat naše články každé ráno do svého Kindle, koukni do sekce Články do Kindle.

3 názory  —  3 nové  
Hlasování bylo ukončeno    
0 hlasů
Google
(fotka) Jiří ChytilAutor programuje ve VB, zajímá se o elektrotechniku, studuje na SOŠ Elektrotechnické - obor číslicová technika.
Web    

Nové články

Obrázek ke článku Síla týmů se na home office může vytrácet. Odborníci radí, jak z pracovních omezení vytěžit maximum

Síla týmů se na home office může vytrácet. Odborníci radí, jak z pracovních omezení vytěžit maximum

Za poslední rok se podoba práce zaměstnanců změnila k nepoznání. Především plošné zavedení home office, které mělo být zpočátku jen dočasným opatřením, je pro mnohé už více než rok každodenní realitou. Co ale dělat, když se při práci z domova ztrácí motivace, zaměstnanci přestávají komunikovat a dříve fungující tým se rozpadá na skupinu solitérů? Odborníci na personalistiku dali dohromady několik rad, jak udržet tým v chodu, i když pracovní podmínky nejsou ideální.

Reklama
Reklama
Obrázek ke článku Konference: Moderní informační systémy podporují automatizaci

Konference: Moderní informační systémy podporují automatizaci

Současná situace v šíření onemocnění Covid-19 klade na řadu firem nové nároky a mnohé z nich jsou nyní více než kdy jindy závislé na nejmodernějších informačních technologiích. Proto i v oblasti podnikových informačních systémů vidíme rostoucí důraz na automatizaci nebo na důslednou integraci. Také o těchto trendech se bude mluvit na konferenci Firemní informační systémy, která se koná 24.9.2020 v pražském Kongresovém centru Vavruška na Karlově náměstí.

Obrázek ke článku Nebezpečí ukrytá v USB: z nuly na škvarek za pět sekund

Nebezpečí ukrytá v USB: z nuly na škvarek za pět sekund

Za cenu šesti dolarů lze celkem bez obtíží koupit nový, líbivě vyhlížející flash disk. Přidaná hodnota, které se vám spolu s ním dostane, už tak moc líbivá není. To, co se před pár sekundami tvářilo jako externí disk, se po připojení k počítači změní v důmyslné elektrické křeslo, které vaše zařízení v onen příslovečný škvarek promění za pár sekund. Cílovou skupinou pro koupi takových zařízení by mohli být záškodníci, kteří by tímto způsobem osnovali pomstu třeba vůči záletnému partnerovi. 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032021 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý