Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2987 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  boucle if avec condition en VBS !

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

boucle if avec condition en VBS !

n°1209986
mims1664
3 / vert
Posté le 28-09-2005 à 16:11:44  profilanswer
 

hello tout le monde !
 
je cherche a effetuer un ptit script VBS avec une boucle if et quelques conditions !
le probleme est que j'ai beaucoup de mal avec la syntaxe de ce language alors si vous pouvez m'eclairer ....
 
 
dim objNet, computerlogon, var1, var2
Set objNet = CreateObject("Wscript.Network" )  
computerlogon =objNet.ComputerName
 
var1 = "ORDI1"
var2 = "ORDI2"
 
if computerlogon = var1 || computerlogon = var2 Then
 'si c vrai
 MsgBox (computerlogon)
 Else
 'sinon
 
 End if
 
 
je n'arrive pas a faire le OU avec une seule condition ca fonctionne !
 
 
merci pour votre aide !

mood
Publicité
Posté le 28-09-2005 à 16:11:44  profilanswer
 

n°1209993
mareek
Et de 3 \o/
Posté le 28-09-2005 à 16:14:37  profilanswer
 

Citation :

if computerlogon = var1 Or computerlogon = var2 Then


 
ça marchera mieux


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
n°1210009
mims1664
3 / vert
Posté le 28-09-2005 à 16:26:41  profilanswer
 

yes ca roule merci pour otn aide mareek !!

n°2088164
ZeratuuL
Posté le 08-07-2011 à 11:36:30  profilanswer
 

Bonjour,
 
Spécialiste du déterrage de topic au rapport :D
 
J'ai à peu près le même soucis que mims1664 mais moi c'est un AND ^^

Code :
  1. Set Folder = fso.Getfolder(TEST)
  2. For Each File In Folder.Files
  3. If (DateDiff("d", File.DateCreated, DateSysteme) > AgeMaximalFichiers) AND Const DeleteReadOnly = True
  4.  Set objFSO = CreateObject("Scripting.FileSystemObject" )
  5.  objFSO.DeleteFile("C:\TEST\*.txt" ), DeleteReadOnly Then
  6.   File.Delete()
  7.  End If
  8. Next


Le message d'erreur donne "Erreur de syntaxe" ligne 3.
 
Je n'arrive donc pas à exécuter deux conditions dans une boucle IF, pourriez-vous m'éclairer ?
 

n°2088671
tarnx
Posté le 11-07-2011 à 14:13:13  profilanswer
 

Code :
  1. IF (DateDiff("d", File.DateCreated, DateSysteme) > AgeMaximalFichiers) AND Const DeleteReadOnly = True THEN


Il ne faut pas oublier THEN


Message édité par tarnx le 11-07-2011 à 14:13:39

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  boucle if avec condition en VBS !

 

Sujets relatifs
prb de double boucle[C#] Boucle for sur DataSet ??
[VBS]Problème de taille d'un fichier non mis à jour...[EDIT]peut simplifier cette boucle
avec VBS ecrire dans un fichier exel dans des champs a1 a2 ...Script VBS Mappage Disque Réseau et printer LPT2
comment faire ma boucle ?![RESOLU]Boucle dans remplacement regex
Sauvegarde Classeur Excel dans un VBSautosier mon script VBS dans mcafee
Plus de sujets relatifs à : boucle if avec condition en VBS !


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR