VBScript
Fermé
Utilisateur anonyme
-
Modifié par BmV le 22/12/2011 à 17:21
xeo56 Messages postés 92 Date d'inscription mardi 23 novembre 2010 Statut Membre Dernière intervention 15 janvier 2014 - 19 août 2012 à 17:01
xeo56 Messages postés 92 Date d'inscription mardi 23 novembre 2010 Statut Membre Dernière intervention 15 janvier 2014 - 19 août 2012 à 17:01
Bonjour,
J'aimerai savoir le code en VBScript pour fermer le premier lecteur puis ouvrir le deuxieme , ne pas refermer le deuxieme et ceci a une heure, une minute et une seocbnde précise.
Merci de'avance j'en ai besoin pour dans quelques jours.
Merci d'avance
J'aimerai savoir le code en VBScript pour fermer le premier lecteur puis ouvrir le deuxieme , ne pas refermer le deuxieme et ceci a une heure, une minute et une seocbnde précise.
Merci de'avance j'en ai besoin pour dans quelques jours.
Merci d'avance
A voir également:
- VBScript
- Microsoft VBScript - Forum Windows 7
- Pause vbscript ✓ - Forum VB / VBA
- Vbscript split ✓ - Forum VB / VBA
- Shutdown en vbscript - Forum VB / VBA
- Windows 11 vbscript - Accueil - Optimisation
53 réponses
xeo56
Messages postés
92
Date d'inscription
mardi 23 novembre 2010
Statut
Membre
Dernière intervention
15 janvier 2014
24
21 déc. 2011 à 23:51
21 déc. 2011 à 23:51
oue lol
xeo56
Messages postés
92
Date d'inscription
mardi 23 novembre 2010
Statut
Membre
Dernière intervention
15 janvier 2014
24
22 déc. 2011 à 01:29
22 déc. 2011 à 01:29
jme penche dmain bonne nuit
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
xeo56
Messages postés
92
Date d'inscription
mardi 23 novembre 2010
Statut
Membre
Dernière intervention
15 janvier 2014
24
22 déc. 2011 à 14:51
22 déc. 2011 à 14:51
je mi mais mais se seras un ee car j ai un logiciel qui s'appele neobook qui fais du jscript , vbs et son propre langage en graphique--
xeo56
xeo56
Utilisateur anonyme
22 déc. 2011 à 17:24
22 déc. 2011 à 17:24
euh ben tant que ca sexecute comme avant no csoucis;)
alors ? XD
alors ? XD
xeo56
Messages postés
92
Date d'inscription
mardi 23 novembre 2010
Statut
Membre
Dernière intervention
15 janvier 2014
24
22 déc. 2011 à 19:27
22 déc. 2011 à 19:27
Va sur raphy2010.free.fr
xeo56
Messages postés
92
Date d'inscription
mardi 23 novembre 2010
Statut
Membre
Dernière intervention
15 janvier 2014
24
22 déc. 2011 à 19:28
22 déc. 2011 à 19:28
ilya le logiciel
xeo56
Messages postés
92
Date d'inscription
mardi 23 novembre 2010
Statut
Membre
Dernière intervention
15 janvier 2014
24
22 déc. 2011 à 19:57
22 déc. 2011 à 19:57
Pour se soir imposible je suis pas chez moi mais mais sir portable ke vais essayer mais se que j ai faisait marche
Utilisateur anonyme
22 déc. 2011 à 20:06
22 déc. 2011 à 20:06
J'ai pas compri. Ta di koi
xeo56
Messages postés
92
Date d'inscription
mardi 23 novembre 2010
Statut
Membre
Dernière intervention
15 janvier 2014
24
22 déc. 2011 à 21:37
22 déc. 2011 à 21:37
Je suis pas chez moi mais je rentre et donc peut être que tu auras ton script
xeo56
Messages postés
92
Date d'inscription
mardi 23 novembre 2010
Statut
Membre
Dernière intervention
15 janvier 2014
24
23 déc. 2011 à 10:42
23 déc. 2011 à 10:42
Tu auras ton script ce midi
xeo56
Messages postés
92
Date d'inscription
mardi 23 novembre 2010
Statut
Membre
Dernière intervention
15 janvier 2014
24
Modifié par xeo56 le 23/12/2011 à 13:04
Modifié par xeo56 le 23/12/2011 à 13:04
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 1 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
i=0
colCDROMs.Item(i).Eject
i=1
colCDROMs.Item(i).Eject
i=0
colCDROMs.Item(i).Eject
i=1
Vbscript.delay (5000)
AlertBox "Fin du processus du lecteur"
Set Choix=MsgBox("Voulez-vous recommencer",vbYesNo+vbQuestion,"Ejecte Cd")
if Choix>=oui then
else
Set fichier= FileExists (001)
If Fichier >= True then
DeleteFile(001)
Msgbox "Fichier trouver et supprimer"
else
msgbox "Fichier non trouver"
End If
i=1000000000000000
End If
Next ' cdrom
End If
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 1 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
i=0
colCDROMs.Item(i).Eject
i=1
colCDROMs.Item(i).Eject
i=0
colCDROMs.Item(i).Eject
i=1
Vbscript.delay (5000)
AlertBox "Fin du processus du lecteur"
Set Choix=MsgBox("Voulez-vous recommencer",vbYesNo+vbQuestion,"Ejecte Cd")
if Choix>=oui then
else
Set fichier= FileExists (001)
If Fichier >= True then
DeleteFile(001)
Msgbox "Fichier trouver et supprimer"
else
msgbox "Fichier non trouver"
End If
i=1000000000000000
End If
Next ' cdrom
End If
Utilisateur anonyme
24 déc. 2011 à 12:57
24 déc. 2011 à 12:57
Euh peux-tu corriger le script stp ? C'est embarassant. Enfin STP hein^^
xeo56
Messages postés
92
Date d'inscription
mardi 23 novembre 2010
Statut
Membre
Dernière intervention
15 janvier 2014
24
24 déc. 2011 à 13:00
24 déc. 2011 à 13:00
OUI je me mais de suite mais sa tu vas faire koi avec
Utilisateur anonyme
24 déc. 2011 à 13:03
24 déc. 2011 à 13:03
C'est juste pour étudier tkt.
Nan laisse ca sert à rien finallement ^^
Par contre j'ai des scripts que j'ai fais moi-même dis(mo ce qu'il va pa stp :
Sub DeleteAFile(ByVal 001.wav)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile("001.wav")
End Sub
J'en ai plusieurs scripts mais déjà dis mo ce qu'il ne va pas dans celui la stp
Nan laisse ca sert à rien finallement ^^
Par contre j'ai des scripts que j'ai fais moi-même dis(mo ce qu'il va pa stp :
Sub DeleteAFile(ByVal 001.wav)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile("001.wav")
End Sub
J'en ai plusieurs scripts mais déjà dis mo ce qu'il ne va pas dans celui la stp
xeo56
Messages postés
92
Date d'inscription
mardi 23 novembre 2010
Statut
Membre
Dernière intervention
15 janvier 2014
24
24 déc. 2011 à 13:08
24 déc. 2011 à 13:08
bien sûre il est bien met le à la place de se que j ai fais
Utilisateur anonyme
24 déc. 2011 à 13:10
24 déc. 2011 à 13:10
Nan il ne marche pas celui que je viens de mettre pourquoi ne fonctionne-t-il pas ?
xeo56
Messages postés
92
Date d'inscription
mardi 23 novembre 2010
Statut
Membre
Dernière intervention
15 janvier 2014
24
24 déc. 2011 à 13:22
24 déc. 2011 à 13:22
Enlevé le byval
xeo56
Messages postés
92
Date d'inscription
mardi 23 novembre 2010
Statut
Membre
Dernière intervention
15 janvier 2014
24
24 déc. 2011 à 13:34
24 déc. 2011 à 13:34
Enleve le 001.wa au début
Utilisateur anonyme
24 déc. 2011 à 13:25
24 déc. 2011 à 13:25
Bon alors là le script s'éxécute mais le fichier ne s'efface pas.
xeo56
Messages postés
92
Date d'inscription
mardi 23 novembre 2010
Statut
Membre
Dernière intervention
15 janvier 2014
24
24 déc. 2011 à 13:29
24 déc. 2011 à 13:29
Enlevé le À au tout debut à deletez
xeo56
Messages postés
92
Date d'inscription
mardi 23 novembre 2010
Statut
Membre
Dernière intervention
15 janvier 2014
24
24 déc. 2011 à 13:35
24 déc. 2011 à 13:35
Enleve le 001.wa au début s
xeo56
Messages postés
92
Date d'inscription
mardi 23 novembre 2010
Statut
Membre
Dernière intervention
15 janvier 2014
24
Modifié par xeo56 le 24/12/2011 à 14:40
Modifié par xeo56 le 24/12/2011 à 14:40
Enleve dim fso