Creer un Fichier txt ou autre

Signaler
Messages postés
116
Date d'inscription
lundi 29 juillet 2002
Statut
Membre
Dernière intervention
19 janvier 2009
-
Crocodile306
Messages postés
22
Date d'inscription
dimanche 4 avril 2004
Statut
Membre
Dernière intervention
27 juin 2007
-
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

Messages postés
61
Date d'inscription
dimanche 21 juillet 2002
Statut
Membre
Dernière intervention
23 avril 2003

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

@+
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
24
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 !!!!
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
24
Aaron,

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

Mercis à vous :D
Messages postés
100
Date d'inscription
mercredi 29 mai 2002
Statut
Membre
Dernière intervention
27 juillet 2004

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 ~~~
Messages postés
22
Date d'inscription
dimanche 4 avril 2004
Statut
Membre
Dernière intervention
27 juin 2007

J'ai un script en vbs qui marche très bien...

Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.CreateTextFile("C:\fichier.txt")
Messages postés
6
Date d'inscription
mardi 23 novembre 2004
Statut
Membre
Dernière intervention
9 décembre 2004

Et pour écrire dans le fichier créer, on fais comment???
Messages postés
22
Date d'inscription
dimanche 4 avril 2004
Statut
Membre
Dernière intervention
27 juin 2007

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..."
Messages postés
22
Date d'inscription
dimanche 4 avril 2004
Statut
Membre
Dernière intervention
27 juin 2007

Ca ta aider ????