Fonction If Vbs

Fermé

zfaze - 3 févr. 2012 à 08:47
Utilisateur anonyme - 3 févr. 2012 à 15:40

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 ! :)

A voir également:

Fonction If Vbs
Fonction si et - Guide
Vbs windows - Guide
Fonction moyenne excel - Guide
Fonction somme excel - Guide
Fonction trier excel - Guide

1 réponse

Réponse 1 / 1

Utilisateur anonyme
Modifié par Lupin.PC4 le 3/02/2012 à 15:41

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

Discussions similaires

Fonction if exist et else

comment contourner la fonction FILTRE

Message "cette fonction n'est pas disponible actuellement"

Comment savoir comment on nous a ajouté sur Snap

Fonction MS-DOS non valide

Discussions similaires

Newsletters