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
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
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
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
@+
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
@+
cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
27
11 sept. 2002 à 22:11
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 !!!!
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 !!!!
cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
27
11 sept. 2002 à 22:16
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...
Il vaut mieux suivre les conseils de "AntiSlash" que les miens !!!! Avec mon VBS, je t'induis en erreur...
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
11 sept. 2002 à 22:30
Mercis à vous :D
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
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 ~~~
A savoir, pour utiliser "FileSystemObject", tu dois cocher "Microsoft Scripting Runtime" dans les références (Menu Projet, Références)
~~~ NuNu ~~~
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
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")
Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.CreateTextFile("C:\fichier.txt")
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
8 déc. 2004 à 11:34
Et pour écrire dans le fichier créer, on fais comment???
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
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..."
(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..."
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
10 déc. 2004 à 22:32
Ca ta aider ????