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 !
19 oct. 2007 à 23:21
Aidez moi s'il vous plait. Je souffre. Merci
19 sept. 2004 à 20:47
9 juin 2003 à 17:30
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.