Soyez le premier à donner votre avis sur cette source.
Snippet vu 7 692 fois - Téléchargée 36 fois
'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
Aidez moi s'il vous plait. Je souffre. Merci
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.