| Travailler avec des dossiers |
|
Il est possible de sauver des données admises par un programme de VB dans un dispositif de stockage, tel qu'une disquette ou un disque dur, ou même CDRW ? La réponse est possible. En ce chapitre, nous apprendrons comment créer des dossiers en les écrivant dans un dispositif de stockage et puis en lisant les teneurs des dossiers comment rechercher les données en utilisant des programmes adaptés aux besoins du client de VB.
|
| Créer des dossiers
|
|
Pour créer un dossier, employer la commande suivante
|
|
Open "fileName" For Output As #fileNumber
|
|
|
Chaque dossier créé doit avoir un nombre de dossier et un nom de fichier pour l'identification et quant au nom de fichier, vous devez également indiquer le chemin où le dossier résidera.
Par exemple
|
|
Open "c:\My Documents\sample.txt" For Output As #1
|
|
|
créera un dossier des textes par le nom de sample.txt dans la ma chemise de document et le nombre de dossier d'accompagnement est 1. Si vous souhaitez sauver et créer le dossier dans la commande d'A, changer simplement le chemin, comme suit "
|
|
Open "A:\sample.txt" For Output As #1
|
|
|
Si vous souhaitez créer un dossier de HTML, changement simple la prolongation à .html comme suit :
|
|
Open "c:\My Documents\sample.html" For Output As # 2
|
|
| Le programme suivant crée un dossier des textes :
|
Private Sub create_Click()
Dim intMsg As String
Dim StudentName As String
Open "c:\My Documents\sample.txt" For Output As #1
intMsg = MsgBox("File sample.txt opened")
StudentName = InputBox("Enter the student Name")
Print #1, StudentName
intMsg = MsgBox("Writing a" & StudentName & " to sample.txt ")
Close #1
intMsg = MsgBox("File sample.txt closed")
End Sub
|
|
|
Le programme ci-dessus créera un dossier sample.txt dans des mes la chemise documents et préparer pour recevoir l'entrée des utilisateurs et n'importe quelle entrée de données par des utilisateurs sera archivée dans ce dossier des textes.
|
|
Dossiers de lecture
|
|
Pour lire un dossier créé dans l'exemple précédent, vous pouvez employer le rapport de l'entrée # et nous pouvons seulement lire le dossier selon le format quand on lui a écrit. Vous devez ouvrir le dossier selon la variable qui tiennent les données et son nombre de dossier. Nous devons également déclarer la variable en utilisant la FAIBLE commande seulement.
|
| L'exemple suivant est employé pour lire un dossier des textes :
|
Private Sub Reading_Click()
Dim variable1 As String
Open "c:\My Documents\sample.txt" For Input As #1
Input #1, variable1
Text1.Text = variable1
Close #1
End Sub
|
|
|
Ce programme ouvrira le dossier de sample.txt et montrera son contenu dans Text1 la boîte à textes lui-même.
|
Keywords:
Working With Files in vb,
visual basic vb,
vb source code,
vb asp net,
vb functions,
vb array,
vb tutorials,
vb controls,
vb code,
vb date,
vb function,
vb forms,
vb xml,
vb textbox,
vb command,
vb excel
|
