تهيئة القرص المرن بالكود

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

Public Sub FormatDrive(DriveLetter As String)
    Dim DriveNumber As Byte, DriveType As Byte, retval As Integer
    DriveLetter = UCase(DriveLetter)
    DriveNumber = (Asc(DriveLetter) - 65)
    DriveType = GetDriveType(DriveLetter)
    If DriveType = 1 Then 'Floppies, etc
        retval = SHFormatDrive(Application.hWndAccessApp, DriveNumber, 0&, 0&)
    Else
        MsgBox "This drive is Not a removeable"
    End If
End Sub

أخي الكريم:

إليك هذا المثال فلعل فيه مايفيد.

ملاحظة لم اشاهد مشاركة الأخ مهند إلا مؤخراً ولكن لابأس من المشاركة.

Format drive dialog.zip

مشكورين وما قصرتم والله يكثر من امثالكم والمثال 100%

ألف شكر ويعطيكم العافية