Visual Basic

Public Class ShellUtilities

    Public Declare Unicode Function SHFormatDrive _
    Lib "Shell32.dll" _
    (ByVal hwnd As IntPtr, _
     ByVal iDrive As Int32, _
     ByVal iFormatID As Int32, _
     ByVal iOptions As Int32) As Int64

    Public Const SHFD_CAPACITY_DEFAULT = 0  'default drive capacity
    Public Const SHFMT_OPT_FULL = 1
    Public Const SHFMT_OPT_SYSONLY = 2


    Public Shared Sub FormatDrive(ByVal dialogOwner As IntPtr, ByVal iDrive As Int32)
        SHFormatDrive(dialogOwner, iDrive, SHFD_CAPACITY_DEFAULT, SHFMT_OPT_FULL)
    End Sub

End Class

Const A_Drive = 0
Const B_Drive = 1
Const C_Drive = 2
' ... etc ...

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    ShellUtilities.FormatDrive(Me.Handle, A_Drive)
End Sub

Const SHFMT_ID_DEFAULT = -1
Const SHFMT_OPT_FULL = 1
Const SHFMT_OPT_SYSONLY = 2
Const SHFMT_ERROR = -1          ' Error on last format, drive may be formatable
Const SHFMT_CANCEL = -2         ' Last format was canceled
Const SHFMT_NOFORMAT = -3       ' Drive is not formatable

' SHFormatDrive takes 4 parameters:
'   hWnd        The handle to the window that will be the dialogs parent window.
'   Drive       The drive number to format, 0 is A:, 1 is B:, 2 is C:, ...
'   fmtID       Must always be SHFMT_ID_DEFAULT, or the value ????.
'   options     Opitons.
Private Declare Function SHFormatDrive Lib "shell32" ( _
    ByVal hWnd As IntPtr, _
    ByVal Drive As Integer, _
    ByVal fmtID As Integer, _
    ByVal options As Integer) _
    As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim iDrive As Integer
    Dim rc As Integer

    iDrive = 0
    rc = SHFormatDrive(Me.Handle, iDrive, 0, 0)
    Select Case rc
        Case SHFMT_ERROR
            MsgBox("Format failed, user pressed CLOSE")
        Case SHFMT_CANCEL
            MsgBox("Format cancelled - user hit CLOSE")
        Case SHFMT_NOFORMAT
            MsgBox("Unable to format this disk drive")
        Case Else
            MsgBox("Disk was formatted successfully and returned: " & rc)
    End Select
End Sub

    Private Declare Function SetVolumeLabel Lib "kernel32" _
        Alias "SetVolumeLabelA" ( _
        ByVal rootPath As String, _
        ByVal newLabel As String) _
        As Integer
 
    Dim rc as Integer
 
    rc = SetVolumeLabel( "A:\", "LabelTest" )

'<br />
' Procedure voor het opstarten van de default browser met een URL<br />
'<br />
' Zie Q224816, Q174156 voor meer informatie<br />
'<br />
Public Sub StartDefaultBrowser(ByVal strUrl As String)<br />
    Dim lngReturnValue As Long<br />
    <br />
    lngReturnValue = ShellExecute(0, _<br />
                                  "open", _<br />
                                  strUrl, _<br />
                                  0, _<br />
                                  0, _<br />
                                  SW_SHOWNORMAL)<br />
    ' Returnvalue <= 32 means error<br />
    If (lngReturnValue <= 32) Then<br />
        Err.Raise ERR_WARNING, FormatErrSource(MODULENAME, "CheckFields"), "Can't start default internet browser (" & CStr(lngReturnValue) & ")"<br />
    End If<br />
<br />
End Sub

    Dim sText As String = "Text to print Centered"
    Dim iPad As Integer
 
    iPad = ( 40 - sText.Length ) / 2
    sText = New String( Chr(32), iPad ) & sText

    Dim sText As String
    Dim iPad As Long
 
    sText = "Text to print Centered"
    iPad = ( 40 - Len(sText) ) / 2
    sText = String$( iPad, 32 ) & sText

Dim UserData As String
UserData = Request.Form.Item("UserData")