Gestion des fichiers
Permet de stocker et récupérer des données d’une
exécution à une autre au travers de fichier texte.
Importer « [Link] » pour permettre la lecture
et l’écriture de fichiers et flux de données.
[Link] met à disposition StreamReader,
StreamWriter et Filestream.
Gestion des fichiers
Pour lire ou écrire dans un fichier, il faut:
Ouvrir le fichier (Open)
Lire ou écrire en utilisant un flux de données
(stream)
Refermer le fichier (Close)
Lire dans un fichier texte
Instancier un objet de la classe StreamReader
Lire avec :
Read : lire un nombre d’octets,
ReadLine : lire une ligne
ou ReadToEnd : lire de la position courante jusqu’à la fin
Enfin, fermer le fichier avec Close.
On écrit:
Dim monStreamReader As StreamReader = New StreamReader(monFichier)
Lire dans un fichier texte
Une erreur se déclenche si la lecture du fichier dépasse la
dernière ligne du fichier. Donc :
Dim ligne as String
Do
Ligne = [Link]()
Loop Until Ligne = ‘‘’’
Cette boucle extrait ligne après ligne le contenu de monFichier
sous forme de String.
Et on finit par :
[Link]()
En cas de non fermeture, le fichier reste verrouillé.
Ecrire dans un fichier texte
Instancier un objet de la classe StreamWriter
Ecrire avec :
Write : écrire sans saut de ligne,
WriteLine : Ecrire ligne par ligne,
Enfin, fermer le fichier avec Close.
On écrit:
Dim monStreamWriter As StreamWriter = New StreamWriter(monFichier)
[Link](‘‘ma première ligne’’)
…
[Link]()
Opérations en lecture sur
fichier
Utiliser la variable :
Dim monFichier as New FileInfo(‘‘[Link]’’)
Taille du fichier :
Dim taille as Integer = [Link]
Date de création du fichier :
Dim dateFichier as String
dateFichier = [Link]
Opérations en lecture sur
fichier
Date du dernier accès au fichier :
Dim dernierAcces as String
dernierAcces = [Link]
Extension du fichier :
Dim extension as Integer =
[Link]
Date de dernière modification du fichier :
Dim derniereModif as String
derniereModif = [Link]
Opérations en écriture sur
fichier
Effacer un fichier:
[Link]()
Créer un fichier : crée un fichier vide si on possède les droits
d’écriture sur le dossier concerné
[Link]()
Modifier la date de création :
Dim monFichierString As String = ‘‘[Link]’’
[Link](monFichierString, #01/14/2021 15:00:00#)
Mettre un fichier en lecture seule :
[Link]() = True
OpenFileDialog
Lancer une boîte de dialogue pour choisir un fichier:
Dim ouvrirDialog As New OpenFileDialog
Répertoire sur lequel s’ouvrira la boîte de dialogue
[Link] = ‘‘C:\MesDocuments’’
Titre de la barre
[Link] = ‘‘ouvrir Fichier …’’
Filtrer sur les fichiers PDF par exemple
[Link] = ‘‘Fichiers PDF (*.pdf) | *.pdf’’
OpenFileDialog
Faire apparaître une boîte de dialogue :
[Link]()
Nom du fichier choisi avec son extension :
Dim monFichier as String
monFichier = [Link]