Création d'un nouveau fichier qui prend le nom du contenu du textbox.Résolu

Question

Bonjour je suis entrain de réaliser un gros programme et je voudrais que quand on marque dans le textbox quelque chose il y ait un fichier qui se créer et qui prend son nom. Ex:"Test vb'10" et dans mes document je retrouve un document sous le nom de "Test vb'10".Merci d'avance.

4u4me4us · Accepted Answer

canal = freefile
Open "chemin de destination " & Textbox.Text & "extention" For Output(ou autre) As #canal
Close #canal

Remplace mes commentaires par tes valeurs.

clementgeek41 · Answer

Ok merci pour avoir répondu rapidement, je teste ça.
Merci.

4u4me4us · Answer

2 rien tien moi au courant.

clementgeek41 · Answer

Justement je bloc là mais je pense que c'est moi qui l'emploi mal je te montre le contexte : Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        My.Computer.FileSystem.CreateDirectory("C:\Users\User\Documents\Gestion des client")
        NotifyIcon1.Icon = SystemIcons.Asterisk
        NotifyIcon1.BalloonTipTitle = "Procédure suivi client"
        NotifyIcon1.BalloonTipText = "Désormais un fichier est créer dans: Mes document"
        NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info
        NotifyIcon1.Visible = True
        NotifyIcon1.ShowBalloonTip(2)
    End Sub
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        OpenFileDialog1.ShowDialog()
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim f As Form2 = New Form2()
        f.Text = TextBox2.Text
        f.Show()
        My.Computer.FileSystem.CreateDirectory("C:\Users\User\Documents\Gestion des client\client:")

    End Sub

    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        OpenFileDialog1.Title = ("client existant")
        OpenFileDialog1.Filter = "texte (*.txt)|(*.txt)|tous les fichiers(*.*)|*.*"
        OpenFileDialog1.FilterIndex = 1
        OpenFileDialog1.InitialDirectory = "C:\WINDOWS"
        OpenFileDialog1.FileName = "client.txt"
        OpenFileDialog1.ShowDialog()
    End Sub
C'est au button 2 que je veux implanter le code: canal = freefile 
Open "chemin de destination " & Textbox.Text & "extention" For Output(ou autre) As #canal 
Close #canal 
voilà si tu peux m'orienter sa serait bien.
merci. :)

4u4me4us · Answer

Le code qui suit créera un fichier .txt vide dans le C:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
OpenFileDialog1.ShowDialog()
Open "C:" & TextBox2.Text & ".txt" For Output As #canal
Close #canal 
End Sub

G vite fait regarder ton code et je me demande si la ligne suivante et juste :

My.Computer.FileSystem.CreateDirectory("C:\Users\User\Documents\Gestion des client\client:")

J'ai des gros doute car ":" fais parti des caractères interdit dans le nom de dossier et fichier. Je me trompe peut être mais cette ligne devrais te générer un erreur

clementgeek41 · Answer

Pas mal, je n'ai pas encore éssayer car je l'ait rajouter que sur fichier texte pas sur vb donc c est possible que sa pose pb.
Bon je regarde sa de suite et je te dis.
Merci encore. :D

clementgeek41 · Answer

Je ne suis pas sûre que tu'es compris ce que je veux..
Je ne veux pas me servir d'un OpenFileDialog je voudrais que quand je rentre un texte dans le TextBox et que je valide avec le Button il y ait un fichier (.txt si possible) qui se créer a un endroit que j'aurais définit.
Voilà en tout cas je trouve que tu code bien.

4u4me4us · Answer

"Je ne suis pas sûre que tu'es compris..." Donne mois une piste car si je relis je vois "button 2 que je veux implanter" et le "OpenFileDialog1.ShowDialog()" c toi qui l'a mis . Teste et tien moi au courant

clementgeek41 · Answer

Sur mon code oubli le button2 c'est à part et moi là je créer un logiciel de gestion des clients et le button1 et le textbox1 sont là pour créer un nouveau client et quand je rentre le nouveau nom et que je valide avec le button1 je voudrais qu'il y ait un document texte qui se créer sous le nom du client. 
Merci, dis moi si tu vois toujours pas ou je veux en venir.

4u4me4us · Answer

Si je vois là ou tu veux en venir. Mais l'important n'est pas là. Finalement le code tu peux le mettre dans n'importe qu'elle bouton. Toi tu veux créer un fichier vide qui aura pour nom la valeur de TextBox2.Text et ce code le fait. J'ai juste oublier canal, donc  voici
canal =freefile 
Open "C:" & TextBox2.Text & ".txt" For Output As #canal
Close #canal

clementgeek41 · Answer

Je galère ils ne veulent pas de mon "canal" pourtant niveau textbox et button tout est dans l'ordre..

4u4me4us · Answer

donc ce cas fai
dim canal as byte
canal =freefile
Open "C:" & TextBox2.Text & ".txt" For Output As #canal
Close #canal

Création d'un nouveau fichier qui prend le nom du contenu du textbox.

12 réponses

Votre réponse

Discussions similaires