~ 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 : ShortToLong ' Retourne le nom long d'un fichier en fonction de son nom court Dim stLong As String, stTmp As String Dim lgPos As Integer ' Ajout bidon pour gestion de la boucle stNom = stNom & "\" ' On saute la déclaration du lecteur lgPos = InStr(4, stNom, "\") Do While lgPos stTmp = Dir$(Left$(stNom, lgPos - 1), vbDirectory) If stTmp = vbNullString Then ' Sortie en cas de problème ShortToLong = vbNullString Exit Function End If lgPos = InStr(lgPos + 1, stNom, "\") stLong = stLong & "\" & stTmp Loop ' Retourne le nom long ShortToLong = Left$(stNom, 2) & stLong End Function |