Le vrai chemin d'un fichier

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 829 fois - Téléchargée 40 fois

Contenu du snippet

Ca ne sera pas forcément utile a beaucoup de monde mais j'en ai eu besoin et je n'ai rein trouvé de mieux. cette fonction transforme un chemin exotique en chemin correct et vérifie au passage si le fichier existe bien. exemple
GetRealPath("c:\windows\..\a.txt")
renverra "c:\a.txt" si le fichier existe ou une chaine vide si ce n'est pas le cas.

Source / Exemple :


Public Function GetRealPath(Chaine As String) As String
'transforme un chemin bizaroïde en chemin correct et vérifie au passage si le fichier existe
'exemple GetRealPath("c:\windows\..\a.txt")
'   renvoi "c:\a.txt" si le fichier existe
'   renvoi une chaine vide si ce fichier n'existe pas
    Dim fs As Object
    Dim f As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
    
    On Error GoTo fin 'pour la gestion de l'erreur si le fichier n'existe pas
        Set f = fs.GetFile(Chaine)
    On Error GoTo 0
    
    GetRealPath = f.Path
    Exit Function
fin:
    GetRealPath = ""
End Function

Conclusion :


voila, si vous avez une meilleur idée pour faire la même chose je suis prenneur ! alors laissez vos commentaire ! pour d'autres et logiciels vennez faire un tour sur http://www.rature.com

A voir également

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.