Récuperer le chemin d'accès relatif d'un fichier

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 785 fois - Téléchargée 36 fois

Contenu du snippet

Imaginons que l'on travaille sur un projet bien structuré où toutes les données sont dans un même répertoire, avec sous-repertoires.
A un moment donnée, on doit récuperer le chemin d'accès entre le programme VB et un fichier (une image par exemple). Voila la form qu'il nous faut !
Dans l'exemple, le dossier est "Mes Images", et l'on veut voir les images du sous repertoire "Fond d'écran". Le programme est dans "Mes Images/VB"
Remarque : le dossier de travail doit contenir un caractère particulier (ici, "F")

Sur une form, on place un exploratezur de dossier (Dir1), un explorateur de fichier (File1), et deux textbox (text1 et text2) pour récuperer séparement le chemin et le nom du fichier.

Source / Exemple :


'On commence par définir le dossier de travail :
Private Sub Form_Load()
    Dir1.Path = "C:\Documents and Settings\Sylvain\Mes documents\Mes images\Fond d'écran"
End Sub

'On lie Dir1 et File1 :
Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub

'Et on bosse un peu :
Private Sub File1_DblClick()
    'Selection du chemin d'accès
    Dim complet As String 'Chemin d'accès complet
    Dim relatif As String 'Chemin d'accès relatif
    Dim car 'Caractère particulier
    car = "F"
    complet = Dir1.Path
    relatif = Mid$(complet, InStr(complet, car))
    Text1.Text = "..\" & relatif & "\"
    'Selection du fichier
    Text2.Text = File1.FileName
End Sub

Conclusion :


Et voili !

Et merci à tout les dévellopeurs de VBFrance !

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de BebopMan

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.