Windows - Formattazione Floppy Da Windows "Professionale" !!!

windows #
Private Sub Format_Click()
Dim rtn As String
Dim Buffer As String
Dim WinPath As String
Buffer = String$(255, 0)
rtn = GetWindowsDirectory(Buffer, Len(Buffer))
WinPath = Left(Trim(Buffer), rtn)
rtn = Shell(WinPath + "\rundll32.exe shell32.dll,SHFormatDrive", 1)
End Sub

inserire dentro un mdulo questa funzione
Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long