× Aktuálně z oboru

SHIELD Experience Upgrade 7 – méně hledání a více zábavy [ clanek/2018052902-shield-experience-upgrade-7-mene-hledani-a-vice-zabavy/ ]
Celá zprávička [ clanek/2018052902-shield-experience-upgrade-7-mene-hledani-a-vice-zabavy/ ]

Typy disků

[ http://programujte.com/profil/27-jiri-chytil/ ]Google [ ?rel=author ]       [ http://programujte.com/profil/118-zdenek-lehocky/ ]Google [ ?rel=author ]       16. 6. 2005       10 718×

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

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.


Článek stažen z webu Programujte.com [ http://programujte.com/clanek/2005061602-typy-disku/ ].