nommer fichier.batRésolu

Question

salut et bonne journée à tout le monde

'quelque part jai  Textnom.Text=""  une zone texte que l utilisateur/éléve y tape son nom.
'et dans une procedure click  je fais créer fichier.bat  ds le repertoire de l application
Set FSys = CreateObject("Scripting.FileSystemObject")
Set Monfic = FSys.CreateTextFile(App.Path & "\fichier.bat")
'merci à l auteur du source

ma question
'est il possible de creer un nom du fichier en fonction de lachaine entrée dans Textnom?
'par exemple si Textnom.Text="kysid"
'est il possible  que le fichier créé porte le nom trés joli  : fichierkysid.bat  ?

grand merci à vous et bonne journée?
kysid

NHenry · Accepted Answer

Bonjour

Set Monfic = FSys.CreateTextFile(App.Path & "\fichier"+Textnom.Text+".bat")

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en privé
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

cs_kysid · Answer

merci infiniment NHenry je vais essayé ton code

crenaud76 · Answer

Par contre une question ?? Pourquoi passer par FSO pour créer un fichier ?? Je ne sais vraiment aps ce que vous trouvé tous à FSO, mais c'est une véritable marotte ce machin !!!

cs_kysid · Answer

j'y suis pour rien .lolololooool
Si t'as un autre moyen pour faire creer ces objet par le systéme.
alors merci de me passer ton code plus simple.il me sera surement util dans mes debuts [qui durent]
kysid

crenaud76 · Answer

Création d'un fichier texte sans FSO ??? rien de plus simple, cela tient en une simple instruction Open. Avec quelques fioriture, cela donnera un truc du genre de ca :

Dim FN As Long
FN = FreeFile
Open "MonFichier.Bat" For Output #FN
Print #1, "@Echo Off" & vbCRLF & "Dir" & vbCRLF & "Pause"
Close #FN

cs_kysid · Answer

Merci crenaud76 pour ta suggestion je vais l'essyée.
bonne journée
kysid

Nommer fichier.bat

6 réponses

Votre réponse

Discussions similaires