gabchampagne
Messages postés216Date d'inscriptionmercredi 2 avril 2003StatutMembreDernière intervention 5 mai 2004 17 oct. 2003 à 05:22
c simple. ta juste à enlever le "new" de fso et à ajouter ça :
Private Sub Class_Initialize()
Set fso = CreateObject("scripting.filesystemobject")
End Sub
personellement, je n'aime pas ton code. Il est compliqué pour rien. Mais ça permet au moins d'expliquer fso. je n'utilise que fso pour mes projets. FSO convient à tout ce qui a rapport aux fichiers.
cs_Spectrum
Messages postés21Date d'inscriptionjeudi 19 décembre 2002StatutMembreDernière intervention 7 décembre 2004 2 oct. 2003 à 09:20
Tu as oublié de préciser que le projet contenant ta classe devais contenir une référence à "Windows Script Host Object Model" pour pouvoir fonctionner, sinon le code est propre et bien commenté.
17 oct. 2003 à 05:22
Private Sub Class_Initialize()
Set fso = CreateObject("scripting.filesystemobject")
End Sub
personellement, je n'aime pas ton code. Il est compliqué pour rien. Mais ça permet au moins d'expliquer fso. je n'utilise que fso pour mes projets. FSO convient à tout ce qui a rapport aux fichiers.
2 oct. 2003 à 09:20