Pour activer Microsoft Scripting Runtime [Résolu]

rstefr 14 Messages postés lundi 1 août 2005Date d'inscription 20 décembre 2006 Dernière intervention - 19 août 2005 à 10:57 - Dernière réponse : rstefr 14 Messages postés lundi 1 août 2005Date d'inscription 20 décembre 2006 Dernière intervention
- 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
cs_wape 262 Messages postés samedi 21 décembre 2002Date d'inscription 19 décembre 2010 Dernière intervention - 21 août 2005 à 17:16
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

Merci cs_wape 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 88 internautes ce mois-ci

Paladin2107 154 Messages postés samedi 25 octobre 2003Date d'inscription 5 septembre 2008 Dernière intervention - 19 août 2005 à 11:07
0
Merci
non je ne pense po que se soi possible

Couscous
aieeeuuuuu 698 Messages postés jeudi 16 janvier 2003Date d'inscription 20 mai 2011 Dernière intervention - 19 août 2005 à 11:19
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 :)
rstefr 14 Messages postés lundi 1 août 2005Date d'inscription 20 décembre 2006 Dernière intervention - 19 août 2005 à 11:39
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ù ?
aieeeuuuuu 698 Messages postés jeudi 16 janvier 2003Date d'inscription 20 mai 2011 Dernière intervention - 19 août 2005 à 11:48
0
Merci
qu'est ce que tu as comme erreur ?
rstefr 14 Messages postés lundi 1 août 2005Date d'inscription 20 décembre 2006 Dernière intervention - 19 août 2005 à 12:02
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 ..."
rstefr 14 Messages postés lundi 1 août 2005Date d'inscription 20 décembre 2006 Dernière intervention - 22 août 2005 à 08:37
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.