VBA vous permet de vérifier si un fichier ou un dossier existe en utilisant le Réal fonction.
Utilisation de la commande Dir pour vérifier si un fichier existe
Comme nous l'avons mentionné dans l'introduction, le Réal La fonction nous permet de vérifier si un fichier sélectionné existe sur l'ordinateur. Voici le code :
| 123456789101112131415 | Sous-CheckFileExists ()Dim strFileName en tant que chaîneDim strFileExists As StringstrFileName = "C:\Users\Nikola\Desktop\VBA articles\Test File Exists.xlsx"strFileExists = Dir(strFileName)Si strFileExists = "" AlorsMsgBox "Le fichier sélectionné n'existe pas"AutreMsgBox "Le fichier sélectionné existe"Fin siFin du sous-marin |
Nous avons d'abord assigné le chemin du fichier à la variable strFileName. Ensuite, nous utilisons le Réal fonction pour obtenir le nom du fichier dans la variable strFileExists. Si le fichier existe dans le répertoire, son nom sera affecté à la variable chaîne strFileExists. S'il n'existe pas alors strFileExists restera vide. Enfin, la boîte de message apparaît nous informant si le fichier existe ou non.
Utilisation de la commande Dir pour vérifier si un dossier existe
De la même manière que pour vérifier si un fichier existe, vous pouvez vérifier si un dossier existe. Il vous suffit d'ajouter un argument au Réal commander. Regardons le code :
| 123456789101112131415 | Sous-CheckFolderExists ()Dim strFolderName en tant que chaîneDim strFolderExists As StringstrFolderName = "C:\Users\Nikola\Desktop\VBA articles\Test Folder\"strFolderExists = Dir(strFolderName, vbDirectory)Si strFolderExists = "" AlorsMsgBox "Le dossier sélectionné n'existe pas"AutreMsgBox "Le dossier sélectionné existe"Fin siFin du sous-marin |
Nous avons d'abord assigné le chemin du dossier à la variable strFolderName. Ensuite, nous utilisons le Réal fonction pour obtenir le nom du fichier dans la variable strFileExists. Afin de vérifier un dossier, nous devons ajouter le deuxième argument à la fonction - vbDirection. Si le dossier existe dans le répertoire, son nom sera affecté à la variable strDossierExiste. Si non strDossierExiste restera vide.
