Comment creer fichiers TXT en masse à partir d'un fichier d'entrée?

Bonjour,
Voilà j'ai assez souvent comme tache la creation en masse de fichiers .txt, pour ce faire j'utilise un petit script ci dessous :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

'*************************************************************** '* 'Pour creer le fichier texte * '***************************************************************   Set FSys = CreateObject("Scripting.FileSystemObject") Set MonFic = FSys.CreateTextFile("D:\Documents and Settings\jean_jacques\Bureau\TEMP\fichier1") Set MonFic = FSys.CreateTextFile("D:\Documents and Settings\jean_jacques\Bureau\TEMP\fichier2") Set MonFic = FSys.CreateTextFile("D:\Documents and Settings\jean_jacques\Bureau\TEMP\fichier3") Set MonFic = FSys.CreateTextFile("D:\Documents and Settings\jean_jacques\Bureau\TEMP\fichier4") Set MonFic = FSys.CreateTextFile("D:\Documents and Settings\jean_jacques\Bureau\TEMP\fichier5") Msg = "Creation des fichiers terminée" MsgBox(Msg)

---

Comme vous pouvez le constater, je dois ecrire autant de lignes qu'il y a de fichier à creer. Je souhaiterais en fait disposer d'un fichier txt qui contient tous les noms de fichiers à creer et l'utiliser en imputfile pour la creation de mes fichiers txt. Comme ça plus besoin de toucher au code, juste à completer le imputfile à chaque nouvelle demande de creation.

Merci par avance pour votre aide. :ccool:

Utilisation du fichier d'entrée :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

'Fichier d'entrée input_File = pathOpen &"\createTXT.txt"   'Lecture du fichier : Do Until objTextFile.AtEndOfStream   strLigne = Trim(objTextFile.Readline)   If strLigne <> "" Then   Set FSys = CreateObject("Scripting.FileSystemObject")

---

A partir de la, je suis coince, je voudrais que mon programme prenne chaque ligne de mon fichier d"entrée txt et me créer un fichier txt portant le nom présent dans mon input file.
:ccool: merci pour votre aide
Je commence en VB donc, don't panik si je dis des enormités...:aie:

pour cela tu n'as besoin que d'un seul objet filesystem :

Code:

---

Set FSys = CreateObject("Scripting.FileSystemObject")

---

dans ta boucle :

Code:

---

Set MonFic = FSys.CreateTextFile(strLigne)

---

Bonjour et merci pour les réponses :ccool:. Voilà donc j'ai ce petit résultat mais j'ai toujours des erreurs mais je ne vois d'où ça vient, :calim2: si vous pouvez jeter un œil est me dire d'ou cela vient ça serait super sympathique.
Cordialement

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

'*************************************************************** '* 'Creation de fichiers txt en masse * '***************************************************************   Set objFSO = CreateObject("Scripting.FileSystemObject")   'Fichier d'entrée input_File = pathOpen &"\createTXT.txt"   'Lecture du fichier :   Do Until objTextFile.AtEndOfStream   strLigne = Trim(objTextFile.Readline)   If strLigne <> "" Then   Set FSys = CreateObject("Scripting.FileSystemObject") Set MonFic = FSys.CreateTextFile("D:\Documents and Settings\username\Bureau\dossier_test" &strLigne)   End If Loop   Msg = "Creation des fichiers terminée"   MsgBox(Msg)

---

:calim2:

Citation:

---

Envoyé par bbil

pour cela tu n'as besoin que d'un seul objet filesystem :

Code:

---

Set FSys = CreateObject("Scripting.FileSystemObject")

---

dans ta boucle :

Code:

---

Set MonFic = FSys.CreateTextFile(strLigne)

---

---

commence par n`útiliser quùn seul objet filesystem!!

Voilà j'ai modifié et ca me donne ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

'*************************************************************** '* 'Creation de fichiers txt en masse * '***************************************************************     'Fichier d'entrée input_File = pathOpen &"\createTXT.txt"   'Lecture du fichier :   Do Until objTextFile.AtEndOfStream   strLigne = Trim(objTextFile.Readline)   If strLigne <> "" Then   Set FSys = CreateObject("Scripting.FileSystemObject") Set MonFic = FSys.CreateTextFile(strLigne)   End If Loop   Msg = "Creation des fichiers terminée"   MsgBox(Msg)

---

Par contre j'ai un message d'erreur : "reation_fichiers_txt.vbs(11, 2) Microsoft VBScript runtime error: Object required: 'objTextFile'"

Merci pour ton aide, je rappel que je suis debutant et que par consequent merci de m'expliquer en détail ou sont mes erreurs.
Cordialement

Bon la tu me sembles mal embarkette ! (oui, je sais, elle était facile :aie:)

Bon je t'ai fait les modifs de principe en live, alors essaye ;)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

'*************************************************************** '* 'Creation de fichiers txt en masse * '***************************************************************   Set FSys = CreateObject("Scripting.FileSystemObject")   'Fichier d'entrée input_File = pathOpen &"\createTXT.txt" Set objTextFile = FSys.OpenTextFile (input_File)   'Lecture du fichier :   Do Until objTextFile.AtEndOfStream   strLigne = Trim(objTextFile.Readline)   If strLigne <> "" Then   Set MonFic = FSys.CreateTextFile(strLigne)   End If Loop   Msg = "Creation des fichiers terminée"   MsgBox(Msg)

---

:P Mmmmmerci beaucoup messieurs Thierry et bbil !
Vous m'enlever une sacré épine du pieds!
Ça marche impeccable ! J'espère que ca pourra servir à d'autre :o)
et pour la blagounette no probleme, pour la barkette ca continue de flotter ;o)
:ccool: