Comment : lire des fichiers texte existants dans Mes documents (Visual Basic)

Mise à jour : novembre 2007

L'exemple de code suivant lit le contenu des fichiers texte du dossier Mes documents dans un fichier unique.

Exemple

Dim filePaths As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
Dim allText As String
Try
   filePaths = My.Computer.FileSystem.GetFiles _
   (My.Computer.FileSystem.SpecialDirectories.MyDocuments)
   For Each file As String In filePaths
      allText = My.Computer.FileSystem.ReadAllText(file)
      My.Computer.FileSystem.WriteAllText("bigfile.txt", allText, True)
   Next
Catch fileException As Exception
   Throw fileException
End Try

Compilation du code

Remplacez "bigfile.txt" par le nom du fichier dans lequel vous souhaitez écrire.

Programmation fiable

Les fichiers lus doivent être des fichiers texte.

Vous pouvez utiliser le OpenFileDialog, composant (Windows Forms) et le SaveFileDialog, composant (Windows Forms) pour réduire la probabilité d'erreurs d'exécution relatives aux autorisations.

Ne vous basez pas sur le nom d'un fichier pour en déterminer le contenu. Par exemple, il se peut que le fichier nommé Form1.vb ne soit pas un fichier source Visual Basic.

Vérifiez toutes les entrées avant d'utiliser les données dans votre application. Le fichier n'a peut-être pas le contenu attendu, et les méthodes utilisées pour lire le fichier peuvent échouer.

Sécurité

Pour lire un fichier, votre assembly requiert un niveau de privilège accordé par la classe FileIOPermission. Si vous exécutez le programme dans un contexte partiellement fiable, le code peut lever une exception en raison de privilèges insuffisants. Pour plus d'informations, consultez Notions fondamentales de la sécurité d'accès du code. L'utilisateur doit également avoir accès au fichier. Pour plus d'informations, consultez Listes de contrôle d'accès.

Voir aussi

Référence

My.Computer.FileSystem.SpecialDirectories, objet

My.Computer.FileSystem.ReadAllText, méthode

My.Computer.FileSystem.WriteAllText, méthode

OpenFileDialog

SaveFileDialog