"Franck" a écrit dans le message de news:198e001c44d41$82391ad0$ Bonjour,
Quelqu'un peut il m'aiguiller pour mes débuts en VBS ?
En fait, je dois écrire un petit programme afin de vider le contenu de répertoires spécifiques au démarrage de l'ordinateur.
Pouvez me conseiller des sites, ou des forums, pour apprendre le language VBS ?
Merci
Michel Pierron
Bonjour Frank; Petit exemple commenté pour effacer les fichiers temporaires de windows:
Set ObjetFichier = WScript.CreateObject("Scripting.FileSystemObject") 'Chemin des dossiers temporaires Set DossierTemp = ObjetFichier.GetSpecialFolder(2) 'Assemblage chemin et spécifications fichiers Selection = ObjetFichier.BuildPath(DossierTemp,"*.tmp") 'Texte du message Message = "Effacement des fichiers temporaires !" Titre = "Nettoyage" 'Temps d'attente Delai = 3 'Boutons et icones à afficher Boutons = 4 + 32 'Récupération boîte de dialogue Set ObjetShell = WScript.CreateObject("WScript.Shell") 'Appelle la boîte Reply = ObjetShell.Popup(Message, Delai, Titre, Boutons) 'Abandon si la réponse est non If Reply = 7 Then WScript.Quit 'Délète les fichiers tmp trouvés 'Abandon si fichier en cours d'utilisation... On Error Resume Next ObjetFichier.DeleteFile(Selection)
MP
"Franck" a écrit dans le message de news:198e001c44d41$82391ad0$ Bonjour,
Quelqu'un peut il m'aiguiller pour mes débuts en VBS ?
En fait, je dois écrire un petit programme afin de vider le contenu de répertoires spécifiques au démarrage de l'ordinateur.
Pouvez me conseiller des sites, ou des forums, pour apprendre le language VBS ?
Merci
Bonjour Frank;
Petit exemple commenté pour effacer les fichiers temporaires de windows:
Set ObjetFichier = WScript.CreateObject("Scripting.FileSystemObject")
'Chemin des dossiers temporaires
Set DossierTemp = ObjetFichier.GetSpecialFolder(2)
'Assemblage chemin et spécifications fichiers
Selection = ObjetFichier.BuildPath(DossierTemp,"*.tmp")
'Texte du message
Message = "Effacement des fichiers temporaires !"
Titre = "Nettoyage"
'Temps d'attente
Delai = 3
'Boutons et icones à afficher
Boutons = 4 + 32
'Récupération boîte de dialogue
Set ObjetShell = WScript.CreateObject("WScript.Shell")
'Appelle la boîte
Reply = ObjetShell.Popup(Message, Delai, Titre, Boutons)
'Abandon si la réponse est non
If Reply = 7 Then WScript.Quit
'Délète les fichiers tmp trouvés
'Abandon si fichier en cours d'utilisation...
On Error Resume Next
ObjetFichier.DeleteFile(Selection)
MP
"Franck" <bernard@tolbiac.inserm.fr> a écrit dans le message de
news:198e001c44d41$82391ad0$a401280a@phx.gbl...
Bonjour,
Quelqu'un peut il m'aiguiller pour mes débuts en VBS ?
En fait, je dois écrire un petit programme afin de vider
le contenu de répertoires spécifiques au démarrage de
l'ordinateur.
Pouvez me conseiller des sites, ou des forums, pour
apprendre le language VBS ?
Bonjour Frank; Petit exemple commenté pour effacer les fichiers temporaires de windows:
Set ObjetFichier = WScript.CreateObject("Scripting.FileSystemObject") 'Chemin des dossiers temporaires Set DossierTemp = ObjetFichier.GetSpecialFolder(2) 'Assemblage chemin et spécifications fichiers Selection = ObjetFichier.BuildPath(DossierTemp,"*.tmp") 'Texte du message Message = "Effacement des fichiers temporaires !" Titre = "Nettoyage" 'Temps d'attente Delai = 3 'Boutons et icones à afficher Boutons = 4 + 32 'Récupération boîte de dialogue Set ObjetShell = WScript.CreateObject("WScript.Shell") 'Appelle la boîte Reply = ObjetShell.Popup(Message, Delai, Titre, Boutons) 'Abandon si la réponse est non If Reply = 7 Then WScript.Quit 'Délète les fichiers tmp trouvés 'Abandon si fichier en cours d'utilisation... On Error Resume Next ObjetFichier.DeleteFile(Selection)
MP
"Franck" a écrit dans le message de news:198e001c44d41$82391ad0$ Bonjour,
Quelqu'un peut il m'aiguiller pour mes débuts en VBS ?
En fait, je dois écrire un petit programme afin de vider le contenu de répertoires spécifiques au démarrage de l'ordinateur.
Pouvez me conseiller des sites, ou des forums, pour apprendre le language VBS ?
Merci
Clément Marcotte
Bonjour,
Maître JCB
http://bellamyjc.org
http://bellamyjc.org
En principe les deux sites sont en miroir.
"Franck" a écrit dans le message de news:198e001c44d41$82391ad0$ Bonjour,
Quelqu'un peut il m'aiguiller pour mes débuts en VBS ?
En fait, je dois écrire un petit programme afin de vider le contenu de répertoires spécifiques au démarrage de l'ordinateur.
Pouvez me conseiller des sites, ou des forums, pour apprendre le language VBS ?
Merci
Bonjour,
Maître JCB
http://bellamyjc.org
http://bellamyjc.org
En principe les deux sites sont en miroir.
"Franck" <bernard@tolbiac.inserm.fr> a écrit dans le message de
news:198e001c44d41$82391ad0$a401280a@phx.gbl...
Bonjour,
Quelqu'un peut il m'aiguiller pour mes débuts en VBS ?
En fait, je dois écrire un petit programme afin de vider
le contenu de répertoires spécifiques au démarrage de
l'ordinateur.
Pouvez me conseiller des sites, ou des forums, pour
apprendre le language VBS ?
