Creer un Fichier txt ou autre

cs_Aaron Messages postés 116 Date d'inscription lundi 29 juillet 2002 Statut Membre Dernière intervention 19 janvier 2009 - 11 sept. 2002 à 21:50
Crocodile306 Messages postés 22 Date d'inscription dimanche 4 avril 2004 Statut Membre Dernière intervention 27 juin 2007 - 10 déc. 2004 à 22:32
Voilà j'ai lu dans un message que pour creer il fallait mettre :
Dim OutilSysteme As New FileSystemObject

OutilSysteme.CreateTextFile ("C:\test.txt")
Open "C:\test.txt" For Output As 1
Print #1, "allo"
Close #1

Bon. Je débute. et j'ai mis ca et j'ai une erreur qui dit " Compile Error : User-defined type not defined"..

Je comprends pas grand chose à ce pb , pouvez vous m'aider ?

Merci beaucoup.

9 réponses

cs_AntiSlash Messages postés 61 Date d'inscription dimanche 21 juillet 2002 Statut Membre Dernière intervention 23 avril 2003
11 sept. 2002 à 22:01
personnellement, jmet po
Dim OutilSysteme As New FileSystemObject
OutilSysteme.CreateTextFile ("C:\test.txt")
et ca marche très bien comme ca:

Open "C:\test.txt" For Output As #1
Print #1, "allo"
Close #1

@+
0
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 26
11 sept. 2002 à 22:11
Bonsoir,

Attention, je fais du VBS. Mais ci-dessus un exemple tout simple pour créer un fichier "fichier text.txt" dans le répertoire "c:\Mes Documents". En VB, la syntaxe doit être + ou - de ce genre, excepté la déclaration des variables.

Dim fso, fichier
Set fso = CreateObject("Scripting.FileSystemObject")
Set fichier = fso.CreateTextFile("c:\Mes Documents\fichier text.txt", True)
fichier.WriteLine("Test d'écriture dans un fichier")
fichier.Close

Bonne chance et bon courage !!!!
0
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 26
11 sept. 2002 à 22:16
Aaron,

Il vaut mieux suivre les conseils de "AntiSlash" que les miens !!!! Avec mon VBS, je t'induis en erreur...
0
cs_Aaron Messages postés 116 Date d'inscription lundi 29 juillet 2002 Statut Membre Dernière intervention 19 janvier 2009
11 sept. 2002 à 22:30
Mercis à vous :D
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
cs_NuNu Messages postés 100 Date d'inscription mercredi 29 mai 2002 Statut Membre Dernière intervention 27 juillet 2004
12 sept. 2002 à 09:56
L'erreur que tu as càd " Compile Error : User-defined type not defined"... vient très certainement du fait que tu oublies de référencer l'objet que tu utilises.

A savoir, pour utiliser "FileSystemObject", tu dois cocher "Microsoft Scripting Runtime" dans les références (Menu Projet, Références)

~~~ NuNu ~~~
0
Crocodile306 Messages postés 22 Date d'inscription dimanche 4 avril 2004 Statut Membre Dernière intervention 27 juin 2007
18 juin 2004 à 22:25
J'ai un script en vbs qui marche très bien...

Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.CreateTextFile("C:\fichier.txt")
0
Pudlaix Messages postés 6 Date d'inscription mardi 23 novembre 2004 Statut Membre Dernière intervention 9 décembre 2004
8 déc. 2004 à 11:34
Et pour écrire dans le fichier créer, on fais comment???
0
Crocodile306 Messages postés 22 Date d'inscription dimanche 4 avril 2004 Statut Membre Dernière intervention 27 juin 2007
9 déc. 2004 à 02:42
pour créé un fichier et écrire dedans...
(si il y a déja quelque chose d'écrit, tout cera éffacer)

Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.CreateTextFile("c:\fichier.txt")
With MonFic
.writeLine "1er ligne" 'Mettre write pour ne pas rajouter des sauts de ligne
.writeLine "2er ligne"
.writeLine "Etc..."
End With

pour créé un fichier et écrire à la suite...
(si le fichier existe déja, il écrit à la suite....
et si il existe pas il le crée.)

Const ForAppending = 8
Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.OpenTextFile("nom.txt", ForAppending, true)
MonFic.writeLine "Bla bla bla..."
0
Crocodile306 Messages postés 22 Date d'inscription dimanche 4 avril 2004 Statut Membre Dernière intervention 27 juin 2007
10 déc. 2004 à 22:32
Ca ta aider ????
0
Rejoignez-nous