Do While ........ Loop
Do ........ Loop
Exit Do
Do While Condition1 Actions1 If Condition2 Then Actions2 Action 3 Loop
Do If Not Condition1 Then Exit Do Actions1 If Condition2 Then Actions2 Actions 3 Loop
Do If Not Condition1 Then Exit Do Actions1 If Condition2 Then Actions3 Else Actions2 End If Loop
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionset readfile = filesys.OpenTextFile(Fic_In, 1, false) do while readfile.AtEndOfStream=false Poste = readfile.ReadLine Retour = objShell.Run("%comspec% /c " & Psinfo_Exe & Poste & Sortie, 2, true ) If Retour < 0 then Echec.Write Poste & VbCr else objShell.Run("%comspec% /c " & PsExec_cmd & Poste & " ipconfig" & Sortie ), 2, true objShell.Run("%comspec% /c echo _____________________________________________________________________" & Sortie ), true end if loop readfile.close
Do While "not EOF" Test Condition1 If Condition1=false Then action1 Else Action2 Action3 End If Loop
readfile.AtEndOfStream=false
readfile.AtEndOfStream
je vous souhaite le bon jour