~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période. Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes. ~ Rechercher ~
~ Annuaire VB ~
~ Partenaires ~
|
Fonction : FichierAssocie (ByVal lpFile As String, ByVal lpDirectory As String, _ ByVal lpResult As String) As Long Private Function FichierAssocie(stFichier As String, stChemin As String) As String ' Retour l'application associé au fichier passé en argument. Dim stRep As String Dim lgRep As Long ' Initialisation du buffer de retour stRep = Space$(250) ' Appel à la fonction lgRep = FindExecutable(stFichier, stChemin, stRep) ' Traitement de la valeur de retour stRep = Left$(stRep, InStr(1, stRep, vbNullChar) - 1) ' Retourne le résultat FichierAssocie = stRep End Function |