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

4/5 (3 avis)

Snippet vu 9 370 fois - Téléchargée 38 fois

Commenter

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
peregna2007 Messages postés 1 Date d'inscription vendredi 12 octobre 2007 Statut Membre Dernière intervention 19 octobre 2007
19 oct. 2007 à 23:21
bonsoir les potes. J'ai une base de données ACCESS située sur un ordinateur du réseau. J'aimerais acceder à cette base de données via le reseau. mais je ne sais pas comment m'y prendre pour parametrer l'adresse de la base de données à l'ouverture de mon programme. j'utilise vb.net 2005. J'ai vu plusieur propositions sur le site mai ce n'est pas ce que je veux.
Aidez moi s'il vous plait. Je souffre. Merci
cs_PaTaTe Messages postés 2107 Date d'inscription mercredi 21 août 2002 Statut Contributeur Dernière intervention 19 février 2021 2
19 sept. 2004 à 20:47
Le principe est bon mais si le caractere special se trouve plusieurs foir dans le chemin, y a des risque d'erreur.
BebopMan Messages postés 2 Date d'inscription samedi 15 mars 2003 Statut Membre Dernière intervention 9 juin 2003
9 juin 2003 à 17:30
Cool, c'est vachement pratique !!
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.