Ouvrir une boite de formatage de disquette

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 725 fois - Téléchargée 66 fois

Contenu du snippet

:
Dans la fenêtre "Feuille", ajouter 1 boutons de commande qui va s'appeler par défaut "Command1", lui laisser ce nom.
"Command1" va ouvrir la boite de dialogue de formatage Disque de Windows.

Source / Exemple :


Private Declare Function GetWindowsDirectory Lib "kernel32" _
    Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, _
    ByVal nSize As Long) As Long
Private WinDir As String

Private Sub Command1_Click()
    Dim r As Long
    Dim CmdLine As String
    Dim RetVal As Long
'
    WinDir = String(255, 0)
    r = GetWindowsDirectory(WinDir, Len(WinDir))
    WinDir = Left$(WinDir, r)
'
    If Right$(WinDir, 1) <> "\" Then WinDir = WinDir + "\"
'
    CmdLine = WinDir + "RUNDLL32.EXE SHELL32.DLL,SHFormatDrive"
'
    RetVal = Shell(CmdLine, 1)
End Sub

Conclusion :


@+

A voir également

Ajouter un commentaire

Commentaire

Il manque des "rem" entre les lignes de codes pour expliquer le fonctionnement pour nous, pauvres débutants!
salout

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.