Hit-Parade .VB Research Center . Compteur
Accueil ~  Code ~  Programmes ~  Api ~  Forum ~  Cours ~  Livres ~  Quiz ~  Annuaire
~ 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 ~
 Rechercher un site :
  

~ Partenaires ~

Fonction : ShortToLong
Convertit un nom court de fichier au format long.
(Consulté 18251 fois.)

Public Function ShortToLong(stNom As String) As String
' 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
Visual Basic Research Center - (c) 2000/2002 -  Webmaster : docvb (chez) free (point) fr