Comment vérifier qu’un fichier ou un dossier existe ?

Vous souhaitez importer des données dans une table sous Access 95 ou 97 de Microsoft. Pour cela, vous avez écrit un programme en VBA qui va rechercher les informations dans un fichier d’un disque du réseau local. Toutefois, il suffit que le fichier ait été renommé ou déplacé dans un autre dossier pour que la routine grippe et engendre une erreur. Pour éliminer ce type de dysfonctionnement, testez la présence du fichier au moyen d’une fonction personnalisée. Dans la fenêtre Base de données, optez pour l’onglet Modules. Cliquez sur le bouton [nouveau] et saisissez le listing ci-après. Enregistrez ensuite votre base en cliquant sur l’icône Enregistrer de la barre d’outils. Dans le champ Nom du module, tapez FichierExiste et validez par un clic sur [ok]. Ouvrez la fenêtre de mise au point en appuyant sur + et saisissez par exemple :

? FichierExiste(“C:Autoexec.bat”, vbnormal)

Si le résultat est nul, le fichier n’existe pas. Si la valeur -1 est retournée par la fonction, le fichier recherché est bel et bien présent à l’emplacement voulu. Pour tester l’existence d’un dossier, il suffit de remplacer vbnormal par vbdirectory dans la formule. De même, vbHidden et vbSystem servent à tester la présence des fichiers possédant respectivement l’attribut caché ou système.Listing :
Function FichierExiste(stPath As String, Optional lngType As Variant) As Integer
‘ En cas d’erreur, la fonction n’est pas exécutée
On Error Resume Next
FichierExiste = Len(Dir(stPath, lngType)) > 0
End Function

🔴 Pour ne manquer aucune actualité de 01net, suivez-nous sur Google Actualités et WhatsApp.