TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
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 SubDo 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.
