Nabídka portálu se při zobrazení článku přesouvá na konec pravého sloupce nabídek.
 Jak ve VB naformátovat disketu. |
Autor: SwitCZ
| Zdroj: MSDN
| Vytvořeno: 1.9.2003
| Publikováno: 2.9.2003
| Čtenářů: 2494
| Unikátních: 2474
|
Funkce pro formátování disků ve Visual Basicu.
Zde nabízím funkci pro formátování disků, myslím, že není třeba ji nějak více rozepisovat, protože je vše jasné. :o))
Funkci zavoláte jménem s parametrem písmena disku včetně dvojtečky (viz Command1_Click).Toť vše.
Option Explicit
Private Declare Function SHFormatDrive _
Lib "shell32" (ByVal hwnd As Long, _
ByVal Drive As Long, _
ByVal fmtID As Long, _
ByVal options As Long) As Long
Private Declare Function GetDriveType _
Lib "kernel32" Alias _
"GetDriveTypeA" _
(ByVal nDrive As String) As Long
Private Sub Formatuj(ByVal sDrive As String)
Dim DrivNum As Long
Dim DriveTyp As Long
Dim sRet, vRet
DrivNum = (Asc(sDrive) - 65)
DriveTyp = GetDriveType(sDrive)
If DriveTyp = 2 Then
vRet = SHFormatDrive(Me.hwnd, DrivNum, 0&, 0&)
Else
sRet = MsgBox("Disk není výmìnný" & vbCrLf & _
"opravdu formátovat?", 276, "Format")
End If
End Sub
Private Sub Command1_Click()
Formatuj "A:"
End Sub
|
Novinky e-mailem
Nejčtenější články
Anketa
Nabídka portálu