VBScript
Utilisateur anonyme
-
xeo56 Messages postés 106 Statut Membre -
xeo56 Messages postés 106 Statut Membre -
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
53 réponses
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
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
