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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 912 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

peregna2007
Messages postés
1
Date d'inscription
vendredi 12 octobre 2007
Statut
Membre
Dernière intervention
19 octobre 2007
-
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
1878
Date d'inscription
mercredi 21 août 2002
Statut
Contributeur
Dernière intervention
7 janvier 2019
-
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
-
Cool, c'est vachement pratique !!

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.