Comment enregistrer une valeur de zone de texte dans un dossier .txt et obtenir l'horodatage en tant que nom de fichier en utilisant VB?

Question

Voici mon code:..

Private CurrentRecipient As String 
Private User As String = "Name" 
Dim UserFolder As String 
Dim FileName As String = Format(Now, "MMMMDDDDYYYYHHNNSS") & ".txt" 

Private Sub SendButton_Click(sender As Object, e As EventArgs) Handles 
    SendButton.Click 
    If CurrentRecipient = "Edward" Then 
     UserFolder = "C:\Users\bele\Desktop\Edward'sFolder" & FileName 
    ElseIf CurrentRecipient = "Criziel" Then 
     UserFolder = "C:\Users\bele\Desktop\Criziel'sFolder" & FileName 

    End If 

'J'ai reçu aucune erreur mais une fois que j'envoyer un message, il ne doe rien :(

Answer 1

Try this Ajouter les importations suivantes au-dessus de votre classe de formulaire

Imports System Imports System.IO Imports System.Text

Vous aurez besoin d'ajouter un contrôle TextBox nommé txtFolderName pour entrer les noms de dossier (Edward ou Criziel) pour que cela fonctionne. Entrez le nom du dossier sur le bureau (Edward ou Criziel) dans txtFolderName, cliquez sur le bouton nommé Button1 et il créera le fichier dans le bon dossier.

Je devine que cela vient de tester des idées de code, parce que vous devez aussi faire le chemin du répertoire une variable que vous pouvez entrer dans une zone de texte

Private Sub SaveFile() 

    Dim UserFolder As String = "" 
    Dim FileName As String = DateTime.Now.ToString("MMddyyyyHHmmss") & ".txt" 
    Dim fs As FileStream 

    UserFolder = "C:\Users\bele\Desktop\" & txtFolderName.Text & "\" & FileName 

    ' Create a file 
    fs = File.Create(UserFolder) 

End Sub 


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    SaveFile() 

End Sub 

Bonne chance!

Commentez la ligne fs = File.Create (UserFolder) et ajoutez ce code juste en dessous.

Using sw As StreamWriter = File.CreateText(UserFolder) 
     sw.WriteLine("Hello") 
     sw.WriteLine("And") 
     sw.WriteLine("Welcome") 
    End Using