Trouver le nom long à partir du nom ms-dos 8.3

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 764 fois - Téléchargée 54 fois

Commenter

Contenu du snippet

Copiez le code dans un .BAS et exécuter la fonction comme ceci:
nom_long=trouve_le_nom_long("C:\PROGRA~1\YES.EXE")

Vous avez besoin d'un dirlistbox appelé dir1,d'une listbox appelée liste et d'un filelistbox appelé file1
Voilà, en espèrant que ce code va en aider plus d'un...

Source / Exemple : 


Public Function trouve_le_nom_long(file As String) As String

Dir1.Path = "\"
chemin = "\"
position = 4
Do
a = InStr(position + 1, file, "\")
If a = 0 Then GoTo fin

dossier = Mid(file, position, a - position)

If InStr(1, dossier, "~") <> 0 Then

If chemin <> "\" Then

    If Right(Dir1.Path, 1) = "\" Then
    nom = Dir1.Path
    Else: nom = Dir1.Path & "\"
    
End If

position = Len(nom) + 1

End If

For i = 0 To Dir1.ListCount - 1
If Left(dossier, InStr(1, dossier, "~") - 1) = UCase(Mid(Dir1.List(i), position, Len(Left(dossier, InStr(1, dossier, "~") - 1)))) And Len(Mid(Dir1.List(i), position)) > 8 Then

incr = Len(Dir1.List(i)) + 1
Do
incr = incr - 1
Loop Until Mid(Dir1.List(i), incr, 1) = "\"

zaza = Right(Dir1.List(i), Len(Dir1.List(i)) - incr)

Liste.AddItem (zaza)
End If

Next

chemin = chemin & Liste.List(Right(dossier, 1) - 1) & "\"
Liste.Clear

Else

For i = 0 To Dir1.ListCount - 1
If UCase(Right(Dir1.List(i), Len(dossier))) = dossier Then dossier = Right(Dir1.List(i), Len(dossier))
Next

chemin = chemin & dossier & "\"

End If

Dir1.Path = chemin

position = a + 1

Loop

fin:
trouve_le_nom_long = Dir1.Path
namen = trouve_le_nom_du_fichier(file, Dir1.Path)
If Right(trouve_le_nom_long, 1) = "\" Then
trouve_le_nom_long = trouve_le_nom_long & namen
Else: trouve_le_nom_long = trouve_le_nom_long & "\" & namen
End If

End Function

Public Function trouve_le_nom_du_fichier(abc As String, chemin_initial As String) As String

Liste.Clear

File1.Path = chemin_initial

incr = Len(abc) + 1
Do
incr = incr - 1
Loop Until Mid(abc, incr, 1) = "\"

nom = Mid(abc, incr + 1)

a = InStr(1, nom, "~")
If a = 0 Then

For i = 0 To File1.ListCount - 1
If UCase(File1.List(i)) = nom Then
trouve_le_nom_du_fichier = File1.List(i)
End If
Next

GoTo fin

Else

For i = 0 To File1.ListCount - 1
If Left(nom, 6) = UCase(Mid(File1.List(i), 1, Len(Left(nom, 6)))) Then

Liste.AddItem (File1.List(i))
End If

Next

trouve_le_nom_du_fichier = Liste.List(Val(Mid(nom, InStr(1, nom, "~") + 1)) - 1)

End If

fin:

End Function

A voir également

Ajouter un commentaire

Commentaires

Signaler Commenter la réponse de naärdin
-
une ligne avec les apis.
Signaler Commenter la réponse de Nico
-
À Naärdin: Chez moi l'API GetFullPathName ne marche pas (Je suis pourtant sous Windaube 98)
Signaler Commenter la réponse de florantanplan
florantanplan
Messages postés
76
Date d'inscription
mardi 11 février 2003
Statut
Membre
Dernière intervention
8 septembre 2006
 -
Déclarer les variables, tu connais!!!
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Nico)