Problèmes VBScript
Utilisateur anonyme
-
Utilisateur anonyme -
Utilisateur anonyme -
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 :
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
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 :
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 :
mais pour le reste ça fonctionne chez moi ?
Cdt
Lupin
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.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
