[adel50]

أن كان ممكن تحويل هذا الكود الئ C#

---

Imports System.IO
Imports System.Runtime.InteropServices

Public Class Form1


    <DllImport("shell32.dll")> _
    Private Shared Function SHFormatDrive(ByVal hwnd As IntPtr, ByVal drive As UInteger, _
             ByVal fmtID As UInteger, ByVal options As UInteger) As ULong
    End Function


    Private Enum SHFormatFlags As Integer
        SHFMT_ID_DEFAULT = &HFFFF
        SHFMT_OPT_FULL = &H1
        SHFMT_OPT_SYSONLY = &H2
        SHFMT_ERROR = &HFFFFFFFF
        SHFMT_CANCEL = &HFFFFFFFE
        SHFMT_NOFORMAT = &HFFFFFFD
        SHFD_FORMAT_FULL = 0   ' full format
        SHFD_FORMAT_QUICK = 1  ' quick format
    End Enum

    Private Sub FButton_Click_1(sender As System.Object, e As System.EventArgs) Handles FButton.Click
        If CBoxDrives.Text = "" Then
            MsgBox("No Drive Selected")
            Exit Sub
        End If
        Dim Iresult As ULong = SHFormatDrive(CType(Me.Handle.ToInt32, IntPtr), CUInt(Asc(CBoxDrives.Text.Substring(0, 1)) - Asc("A")), CUInt(SHFormatFlags.SHFMT_ID_DEFAULT), 1)
    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        With FButton
        End With
        Me.Controls.Add(FButton)
        With CBoxDrives
            .DropDownStyle = ComboBoxStyle.DropDown
        End With
        Me.Controls.Add(CBoxDrives)

        Dim DrivesFound As Integer = 0
        Dim allDrives() As DriveInfo = DriveInfo.GetDrives()
        Dim d As DriveInfo
        For Each d In allDrives
            If ((d.DriveType = DriveType.Fixed) Or (d.DriveType = DriveType.Removable)) AndAlso Environment.GetEnvironmentVariable("SYSTEMROOT").StartsWith(d.Name) = False Then
                CBoxDrives.Items.Add(d.Name)
                DrivesFound += 1
            End If
        Next
        CBoxDrives.SelectedIndex = DrivesFound - 1
    End Sub
End Class