Classe Automation introuvable
Bonjour à tous,
depuis quelques années j'utilise un script vbs qui permet de modifier le compteur dans Itunes (oui, oui, cela m'est utile).
depuis quelques temps, il ne fonctionne plus, j'ai une erreur : La classe Automation appelée "itunes.application" est introuvable
Code : 80020009
Source : WScript.CreateObject
Quelqu'un saurait-il ce qui se passe ?
Je précise que j'ai bien itunes installé sur mon PC.
voici le code source.
Code:
1
2
3
4
5
6
7
8
9
10
11
| Dim iTunesApp, t_selection, x
Set iTunesApp = WScript.CreateObject("iTunes.Application")
Set t_selection = iTunesApp.selectedTracks
x = InputBox("Ceci modifie le compteur des pistes sélectionnées", "Entrez un nombre", 0)
If Len(x) > 0 And IsNumeric(x) Then
If x > -1 Then
For Each T_Track In t_selection
T_Track.PlayedCount = x
Next
End If
End If |
merci
j7w
