[VB] pb avec scripting/filesystem sous XP

pb avec scripting/filesystem sous XP [VB] - VB/VBA/VBS - Programmation

Marsh Posté le 10-09-2003 à 10:49:33    

voilà j'ai un pb avec bout de prog (pourtant simple) mais uniquement sous XP:
 
 
dim fs as filesystemobject
Set fs = CreateObject("Scripting.FileSystemObject" )
Set a = fs.CreateTextFile("c:\fichiertest.txt", True)
a.WriteLine("Ceci est un test." )
a.Close
 
à la signe Set fs.. j'ai une erreur 429: l'activeX ne peut pas créer l'objet
 
j'ai pourtant tiré le code directement de la MSDN... :/
(il faut la référence microsoft scripting runtime de chargée)
 
si quelqu'un à déjà eu ce pb..
 
merci...  :hello:

Reply

Marsh Posté le 10-09-2003 à 10:49:33   

Reply

Marsh Posté le 10-09-2003 à 10:58:44    

tu as ajouter la reférence à Microsoft Scripting Runtime ?


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 10-09-2003 à 11:00:12    

oui la référence est bien présente sinon il aurait marqué qu'il connaissait pas filesystemobject

Reply

Marsh Posté le 10-09-2003 à 11:28:50    

un truc m'échappe, tu déclares ton objet As FileSystemObject, mais tu le crées avec CreateObject et pas un New :heink:

Reply

Marsh Posté le 10-09-2003 à 11:39:17    

drasche a écrit :

un truc m'échappe, tu déclares ton objet As FileSystemObject, mais tu le crées avec CreateObject et pas un New :heink:


spa grave ça...
 
G tjs créé un FileSystemObject comme ça


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 10-09-2003 à 11:40:20    

c'est pas très performant :heink:  et surtout ça n'est pas propre, c'est un mélange d'early et late binding. Si t'utilises CreateObject, déclare au moins tes variables As Object :o

Reply

Marsh Posté le 10-09-2003 à 11:53:03    

drasche a écrit :

c'est pas très performant :heink:  et surtout ça n'est pas propre, c'est un mélange d'early et late binding. Si t'utilises CreateObject, déclare au moins tes variables As Object :o


j'crois ke kan je faisais new ça me pétait à la gueule...
 
et G tjs vu ça comme ça... (MSDN/Groupe google)


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 10-09-2003 à 11:54:19    

euh moi ça m'a jamais pété à la gueule :o
config foireuse je dirais plutôt :o

Reply

Marsh Posté le 10-09-2003 à 11:55:04    

drasche a écrit :

un truc m'échappe, tu déclares ton objet As FileSystemObject, mais tu le crées avec CreateObject et pas un New :heink:


meme si je fait ca sa revient au meme:  
 
Public fs As New filesystemobject
Private Sub Form_Load()
 
Set a = fs.CreateTextFile("c:\fichiertest.txt", True)
a.WriteLine ("Ceci est un test." )
a.Close
End Sub

Reply

Marsh Posté le 10-09-2003 à 11:56:05    

les déclarations avec As New ObjetMachin dedans, c'est mal. Dès que tu essaies de détruire l'objet, il en réinstancie un nouveau :/

Reply

Marsh Posté le 10-09-2003 à 11:56:05   

Reply

Marsh Posté le 10-09-2003 à 11:58:19    


 
je peux mettre quoi à la place ?

Reply

Marsh Posté le 10-09-2003 à 12:01:29    

drasche a écrit :

euh moi ça m'a jamais pété à la gueule :o
config foireuse je dirais plutôt :o


G un WIN98 tout pourri sur un PII  :whistle:


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 10-09-2003 à 12:02:18    

Ryle Hunter a écrit :


 
je peux mettre quoi à la place ?


 
dim fs as filesystemobject
 
set fs = new filesystemobject


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed