Pour activer Microsoft Scripting Runtime [Résolu]

Messages postés
14
Date d'inscription
lundi 1 août 2005
Dernière intervention
20 décembre 2006
- - Dernière réponse : rstefr
Messages postés
14
Date d'inscription
lundi 1 août 2005
Dernière intervention
20 décembre 2006
- 22 août 2005 à 08:37
Bonjour à tous,
Je viens tout jutse de comprendre qu'il faut cocher Microsoft Scripting Runtime pour utiliser FileSystemObject. Mais est-il possible de l'activer automatiquement via une ligne de code ?
Merci à vous.
rstefr
Afficher la suite 

7 réponses

Meilleure réponse
Messages postés
262
Date d'inscription
samedi 21 décembre 2002
Dernière intervention
19 décembre 2010
3
Merci
Bonjour,

Si tu décoches la référence "Microsoft Scripting Runtime" tu ne peux plus utiliser,
dans la déclaration des variables, les types de données "FileSystemObject" et "Drive", qui sont propres à la référence en question.

Dans ce cas, il faut utiliser le type de données "Object" :

Dim fso As Object
Dim Drive As Object

wape

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 104 internautes ce mois-ci

Messages postés
154
Date d'inscription
samedi 25 octobre 2003
Dernière intervention
5 septembre 2008
0
Merci
non je ne pense po que se soi possible

Couscous
Messages postés
698
Date d'inscription
jeudi 16 janvier 2003
Dernière intervention
20 mai 2011
0
Merci
tu peux utiliser la methode CreateObject, ca t'evite de devoir cocher la case dans les references sous VB
mais le probleme c'est que d'une part si le composant est manquant, tu aura une erreur seulement au moment ou tu essaie de créer ton objet
et en plus tu n'aura pas la complétion, c dommage :)
Messages postés
14
Date d'inscription
lundi 1 août 2005
Dernière intervention
20 décembre 2006
0
Merci
En effet, j'avais cru comprendre qu'on pouvait utiliser cette commande :
Set fs = CreateObject("Scripting.FileSystemObject")
mais le problème est que ca ne fonctionne tjs pas. Peut etre ne l'ai-je pas placée au bon endroit, mais alors où ?
Messages postés
698
Date d'inscription
jeudi 16 janvier 2003
Dernière intervention
20 mai 2011
0
Merci
qu'est ce que tu as comme erreur ?
Messages postés
14
Date d'inscription
lundi 1 août 2005
Dernière intervention
20 décembre 2006
0
Merci
En fait, lorsque je coche manuellement le Scripting Runtime, mon code fonctionne, donc pas de pb:
Dim fso As FileSystemObject
Dim DongLettre As Integer
Dim Drive As Drive

Mais lorsque je le decoche pour utiliser ce code:
Set fs = CreateObject("Scripting.FileSystemObject")
Dim fso As FileSystemObject
Dim DongLettre As Integer
Dim Drive As Drive
J'ai le message suivant pour le fso.
User-defined type not defined
Et si je supprime la ligne du fso, c pour le drive que j ai le message. Donc je pense que je n ai pas bien compris la ligne "set fs ..."
Messages postés
14
Date d'inscription
lundi 1 août 2005
Dernière intervention
20 décembre 2006
0
Merci
ok merci j'ai compris

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.