J'aime cet Api, il sert énormément dans l'utilisation des fichiers texte. Il sert à déterminer si un fichier existe. Il est interessant par exemple pour un programme qui a besoin d'un fichier texte comme configuration, si le fichier existe il le modifie, sinon il le crée, c'est un peu l'idée de cet API.

Commencez par créer un projet Exe, disposez sur celui ci 2 CommandButton, l'un avec la propriété Caption réglée sur Vérifier et l'autre sur Quitter. Double-cliquez sur le bouton Quitter et tapez :

End

Ensuite, nous allons déclarer l'API PathFileExists :

Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long

Déclaration privée ( Private ) d'une fonction ( Function ) se nommant PathFileExists ( PathFileExists ) se trouvant dans la bibliothèque shlwapi.Dll ( Lib "shlwapi.dll" ) ayant comme Alias PathFileExistsA ( Alias "PathFileExistsA" ) et comme argument pszPath étant une chaîne de caractère ( (ByVal pszPath As String) ). Cette fonction renvoie un chiffre long ( As Long ). Double-cliquez maintenant sur le bouton vérifier et tapez :

chemin = InputBox("Veuillez entrer le chemin d'accès du fichier", "Chemin d'accès", "") If CBool(PathFileExists(chemin)) = True Then MsgBox "Le fichier existe" Else MsgBox "Le ficheir n'existe pas" End If

Vous allez voir, c'est tout simple. Nous stockons d'abord la réponse à la qu estion "Veuillez entrer le chemin d'accès du fichier" dans la variable chemin. Une fois ce chemin définit, nous testons son existence. Mais avant cela, sachez que la fonction renvoie un chiffre long, ici ce sera 0 si le fichier n'existe pas et un autre nombre s'il existe. Pour convertir ces nombres en valeur booléène, il suffit d'utiliser CBool qui renverra soit True ou False. Nous disons donc, si le fichier existe ( If CBool(PathFileExists(chemin)) = True Then ), une boite de dialogue nous le spécifiant s'affiche ( MsgBox "Le fichier existe" ) , sinon ( Else ) une boite de dialogue disant le contraire apparaît ( MsgBox "Le ficheir n'existe pas" ). Et voilà, c'est aussi simple que ça...