|
Les développeurs doivent vérifier l'existence d'un fichier avant de tenter de le manipuler. Si un programmeur tente d'utiliser un fichier qui n'est pas présent , une application peut échouer ou produire des résultats inexacts. VB6 , également connu sous Visual Basic 6, n'a pas de fonction nommée " Voir si ce fichier existe . " Cependant, elle ne permet de détecter la présence de n'importe quel fichier sur un ordinateur en utilisant une méthode indirecte . Instructions
1 Lancez l'application VB6 et appuyez sur " Ctrl" et "N " pour ouvrir le "Nouveau projet" fenêtre.
2 Double-cliquez sur «Standard EXEC" pour créer un nouveau projet. VB6 affiche une forme vide dans sa fenêtre d'édition.
3 Double- cliquez sur le bouton "Commande" situé dans la boîte à outils pour le placer sur le formulaire.
4 < . p> clic droit sur ce bouton et cliquez sur " Afficher le code " pour afficher la fenêtre de code
5 Placez le code suivant avant le " End Sub " déclaration que vous voyez dans le code suivant:
fileToCheck As cordes
fileExists As Boolean
directoryName Dim As String
Ce code définit trois variables. La variable " fileToCheck " contient le nom du fichier dont l'existence vous souhaitez détecter . La variable " fileExists " tient " Vrai" ou "Faux" selon que le fichier existe . VB6 stocke le nom du répertoire du fichier dans la variable nommée " directoryName " si le fichier existe
6 Placez le code suivant sous le code inscrit dans l'étape précédente: .
FileToCheck = " C \\ : somefolder \\ fichier.txt "
directoryName = Dir ( fileToCheck )
Si directoryName =" "Then
fileExists = False
Else
fileExists = True
End If
fileExists MsgBox
remplacer " C: \\ somefolder \\ fichier.txt " avec le nom de chemin complet du fichier que vous souhaiter vérifier . Par exemple, si vous voulez voir si un fichier nommé " music.jpg » existe dans un dossier nommé "Media" sur votre disque dur "D" , remplacez "C: \\ somefolder \\ fichier.txt " avec "D: \\ Media \\ music.jpg . " La ligne de code suivante exécute la fonction " Dir" . Il examine la valeur de " fileToCheck . " Si la commande "Dir " trouve le fichier spécifié , il enregistre son nom du répertoire dans la variable nommée " directoryName . " Sinon, il stocke une valeur vide.
7 Appuyez sur " F5" pour exécuter l'application . Lorsque le formulaire s'affiche , cliquez sur le bouton . Le code s'exécute , et une boîte de message affiche «vrai» si le fichier que vous avez vérifié pour qui existe . Si ce fichier n'existe pas, la boîte de message affiche «faux».
|
