Problèmes VBScript
Bonjour,
J'ai deux problèmes VBScript et j'aimerais savoir d'où cela provient :
Celui-ci sert a ce que les 2 lecteurs s'ouvrent et se referment à une heure précise :
Dim t_12:33
while t_12:33 <> now
wait(0,01)
Wend
Set owmp = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = owmp.cdromCollection
For d = 0 To colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next
For d = 0 to colCDROMs.Count -1
colCDROMs.Item(d).Eject
Next
Et celui ci utilise le deletefile :
Sub DeleteAFile("001.avi")
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile("001.avi")
End Sub
Aucun ne marche donc j'ai besoin d'aide.
Merci d'avance
J'ai deux problèmes VBScript et j'aimerais savoir d'où cela provient :
Celui-ci sert a ce que les 2 lecteurs s'ouvrent et se referment à une heure précise :
Dim t_12:33
while t_12:33 <> now
wait(0,01)
Wend
Set owmp = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = owmp.cdromCollection
For d = 0 To colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next
For d = 0 to colCDROMs.Count -1
colCDROMs.Item(d).Eject
Next
Et celui ci utilise le deletefile :
Sub DeleteAFile("001.avi")
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile("001.avi")
End Sub
Aucun ne marche donc j'ai besoin d'aide.
Merci d'avance
6 réponses
-
Bonjour,
Suggestion :
Dim owmp, colCDROMs Dim t t = "12:33:00" while t <> now WScript.Sleep(10) Wend Set owmp = CreateObject("WMPlayer.OCX.7") Set colCDROMs = owmp.cdromCollection For d = 0 To colCDROMs.Count - 1 colCDROMs.Item(d).Eject Next For d = 0 to colCDROMs.Count -1 colCDROMs.Item(d).Eject Next 'Et celui ci utilise le deletefile : Sub DeleteAFile(ByVal NomFichier) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFile(NomFichier) End Sub '
n.b.
Procédure de déboggage :
p.s. Nécessite le suite Microsoft Office
1.) Creer un raccourci du script.
2.) Atteindre les propriétés du raccourci
3.) Ajouter à la fin de la ligne dans l'emplacement Cible : [ //x]
4.) Lancer le script par le raccourci
5.) Répondre [OK] 2 fois
Tu es en mode "debug" pas à pas
Cdt
Lupin -
J'ai copié les deux scripts et aucun ne marche pourtant j'ai remplacé le " NomduFichier" par mon fichier. Cela ne fonctionne pas. HELP SVP
-
re:
Partie 2 /
Pour ce qui est de la méthode :
Sub DeleteAFile(ByVal NomFichier) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFile(NomFichier) End Sub '
la ligne :
Sub DeleteAFile(ByVal NomFichier)
ne peut être modifié :
on appelle la méthode ainsi :
DeleteAFile("001.avi")
n.b. Le fichier .avi doit obligatoirement être dans le même dossier,
sinon il faut spécifié aussi le chemin d'accès :
DeleteAFile("C:\Temp\001.avi")
Fin Partie 2 /
Partie 1 /
Je n'ai pas tester le timer :t = "12:33:00" while t <> now WScript.Sleep(10) Wend
mais pour le reste ça fonctionne chez moi ?
Cdt
Lupin -
Moi cela ne fonctionne toujours pas pour la 1 il me dit que ca vient de la ligne 2 et pour la partie 2 ca marche pas du tout.
-
re:
désolé, je ne peux rien faire de plus ! :-(
Cdt
Lupin -
En faiti la ffiche pas de message d'érreur mais cela n'efface rien.
