Fonction If Vbs

Question

Bonjour,

J'aimerais utiliser vbs pour faire la tâcher suivante : J'ai un dossier qui s'appelle " Essai " dans C: .. J'aimerais le supprimer, avec l'affichage d'une fenêtre qui dit voulez-vous supprimer ce fichier ? Le fichier se supprime seulement si la personne clique sur " OUI "

Je pense pas que ce soit compliqué mais je ne sais pas du tout comment m'y prendre, merci d'avance ! :)

Utilisateur anonyme · Answer

Bonjour, 

Exemple type : 


'------------------------------------------- 
' 
' Script VBS 
' 
    Dim Reponse 
    Dim objFSO, objFolder 

    Set objFSO = CreateObject("Scripting.FileSystemObject") 
    Set objFolder = objFSO.GetFolder("C:\Essai") 

    Reponse = MsgBox("Question ?", vbYesNo, "Demande de confirmation") 

    If (Reponse = vbYes) Then 
        MsgBox "Oui" 
        objFolder.Delete 
    Else 
        If (Reponse = vbNo) Then 
            MsgBox "Non" 
        End If 
    End If 

    Set objFolder = Nothing 
    Set objFSO = Nothing 

WScript.Quit(0) 


Cdt

Lupin

Fonction If Vbs

1 réponse

Discussions similaires

Newsletters