EXEMPLES DE PROCÉDURES VBSCRIPT
cs_TheHacker
Messages postés
442
Date d'inscription
samedi 23 novembre 2002
Statut
Membre
Dernière intervention
19 octobre 2005
-
25 nov. 2002 à 18:03
MoRpHeUsTyLe Messages postés 19 Date d'inscription mercredi 24 août 2005 Statut Membre Dernière intervention 1 septembre 2005 - 28 août 2005 à 21:36
MoRpHeUsTyLe Messages postés 19 Date d'inscription mercredi 24 août 2005 Statut Membre Dernière intervention 1 septembre 2005 - 28 août 2005 à 21:36
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/5063-exemples-de-procedures-vbscript
https://codes-sources.commentcamarche.net/source/5063-exemples-de-procedures-vbscript
28 août 2005 à 21:36
27 mars 2005 à 06:01
Voila le script apres changement:
Dim fso, fldr
fldr = inputbox ("Tapez l'adresse de votre dossier!" ,"" ,"c:")
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder(fldr)
MsgBox "Bravo...Le dossier "&fldr&" a été supprimé !!!"
22 juil. 2004 à 10:55
je ne suis pas developpeur, mais je souhaite fait un script qui me permet de verfier si les sauvegardes des postes clients sur le serveur se sont bien déroulées.
est ce que le script que tu as mis en ligne correspond a a ce que je souhaite?
19 mars 2004 à 11:39
(voir le debut du code de cette page)
Au lieu de faire :
wRepDest1 = "blabla"
wRepDest2 = "bleble"
wRepDest3 = "blibli"
Vaut mieux :
wRepDest(0) = "blabla"
wRepDest(1) = "bleble"
wRepDest(2) = "blibli"
Car cela nous permet de faire :
''''''''''''''''''''''''''''''''''''''''''''''
' Tous les Répertoires '
''''''''''''''''''''''''''''''''''''''''''''''
For i = 0 to UBound(wRepDest)
If Not fso.FolderExists(wRepDest(i)) Then
Set f = fso.CreateFolder(wRepDest(i))
MsgBox "Création du dossier "&f&" effectuée.",vbInformation
fso.MoveFile wSrce(i), wRepDest(i)
Else
MsgBox "Attention:"&vbCrLf&"Le répertoire "&wRepDest(i)&" existe déjà."&vbCrLf&"Les nouveaux fichiers ne sont donc pas archivés",vbCritical
End If
Next
Cela nous permet de rajouter un repertoire en une ligne...
wRepDest(3) = "bloblo"
Voila :)
12 févr. 2004 à 08:30
3 nov. 2003 à 16:25
Bons exemples je trouve
:)
26 nov. 2002 à 08:27
25 nov. 2002 à 18:03