web-dev-qa-db-fra.com

Créer un nouveau fichier txt en utilisant VB.NET

Comment créer un fichier .txt vide à l'emplacement C:\my files\2010 à l'aide de VB.NET?

18
sam

Voici une seule ligne qui créera (ou écrasera ) le fichier:

File.Create("C:\my files\2010\SomeFileName.txt").Dispose()

Remarque: appeler Dispose () garantit la fermeture de la référence au fichier.

46
Schenz

Vous pouvez également vouloir vérifier si le fichier existe déjà pour éviter de le remplacer par accident (à moins que ce ne soit bien entendu l'idée

Dim filepath as String = "C:\my files\2010\SomeFileName.txt"
If Not System.IO.File.Exists(filepath) Then
   System.IO.File.Create(filepath).Dispose()
End If
22
Geoffrey

Vous pouvez essayer d’écrire dans le dossier Documents. Voici une fonction de "débogage" que j'ai créée pour les besoins de débogage de mon projet:

Private Sub writeDebug(ByVal x As String)
    Dim path As String = System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
    Dim FILE_NAME As String = path & "\mydebug.txt"
    MsgBox(FILE_NAME)
    If System.IO.File.Exists(FILE_NAME) = False Then
        System.IO.File.Create(FILE_NAME).Dispose()
    End If
    Dim objWriter As New System.IO.StreamWriter(FILE_NAME, True)
    objWriter.WriteLine(x)
    objWriter.Close()
End Sub

Il existe d'autres dossiers standard auxquels vous pouvez accéder via l'objet "SpecialFolder".

5
Human Wannabe
open C:\myfile.txt for append as #1
write #1, text1.text, text2.text
close()

C'est le code que j'utilise dans Visual Basic 6.0 . Cela m'aide à créer un fichier txt sur mon lecteur, à y écrire deux données, puis à fermer le fichier ... Essayez-le ...

0
Abdullah Gulraiz

Vous pouvez simplement utiliser ceci

FileOpen(1, "C:\my files\2010\SomeFileName.txt", OpenMode.Output)
FileClose(1)

Cela ouvre le fichier remplace ce qu'il contient et ferme le fichier.

0
ABPerson