[VB] probleme activeX ?

Bonjour,

J'ai fait cela dans mon code, et vb bloque

Code:

---

1 2 3 4

Sub main() Set fs = CreateObject("scripting.filesystemobject")   Set fics = fs.createtextfile("C:\Documents and Settings\FRANKY\Bureau\ExoVb\Tout\algo\Fichier\exo1\test.txt")

---

Le debogueur se lance et me dit :

Citation:

---

Le composant activeX ne peut creer l'objet

---

Il bloque sur cette ligne en me disant que fs est vide:

Code:

---

Set fs = CreateObject("scripting.filesystemobject")

---

Est ce qu'i l n'y aurait pas une case a cocher dans les reference ou les composant pr qu'il reconnaisse ma ligne ?

Merci

question habituelle : VB,VBA ... ? ??


à part cela pour filesystemobject , tu peu cocher la référence à "Microsoft Scripting Runtime " dans le menu outils/référence..


:wink:

Tu ne peux pas créer ton txt plus simplement ?

Code:

---

Open "C:\Documents and Settings\FRANKY\Bureau\ExoVb\Tout\algo\Fichier\exo1\test.txt" For Output As #1

---

Ne connaissant pas le contexte, c'est juste une question...

A+

c'est en vb

Donc, voir bbil pour la référence à cocher :wink: