1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Fichier / Disque
  5. Commondialog pour sélectionner un répertoire ( ocx )

Commondialog pour sélectionner un répertoire ( ocx )

Soyez le premier à donner votre avis sur cette source.

Vue 12 116 fois - Téléchargée 1 859 fois

Télécharger le projet
Commenter

Description

Vous avez toujours rêvé de pouvoir sélectionner un répertoire grâce à l'objet CommonDialog ? Et celui-ci ne le permet pas !
He bien , voilà le problême résolu ...
getFolder est un ocx qui permet de sélectionner n'importe quel répertoire sur votre ordinateur...
Livré avec le source et un exemple ...

Conclusion :


Si vous améliorez ce code , merci de me prévenir sur Codes-Sources
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Signaler
Messages postés
5
Date d'inscription
vendredi 10 novembre 2006
Statut
Membre
Dernière intervention
7 mars 2007
trouver sur http://www.supinfo-projects.com/fr/2006/programmer_vba_sous_excel/2/
Signaler
Messages postés
5
Date d'inscription
vendredi 10 novembre 2006
Statut
Membre
Dernière intervention
7 mars 2007
y a plus simple !!!!

Function ChoixDossierFichier(Racine, Optional SelType As Byte = 0)
Dim objShell, objFolder, chemin, SecuriteSlash, FlagChoix&, Msg$

If SelType = 0 Then
FlagChoix &H1&: Msg "Choisissez votre dossier :"
Else
FlagChoix &H4000&: Msg "Choisissez votre fichier :"
End If
Set objShell = CreateObject("Shell.Application")
'le troisième paramètre permet de choisir
'la sélection d'un dossier ou d'un fichier (0 ou 1)
'le dernier paramètre permet de choisir le dossier racine
Set objFolder = objShell.BrowseForFolder(&H0&, Msg, FlagChoix, Racine)
On Error Resume Next
chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & ""

If objFolder.Title = "Bureau" Then
chemin = "C:\Windows\Bureau"
End If
If objFolder.Title = "" Then
chemin = ""
End If
SecuriteSlash = InStr(objFolder.Title, ":")
If SecuriteSlash > 0 Then
chemin = Mid(objFolder.Title, SecuriteSlash - 1, 2) & ""
End If

ChoixDossierFichier = chemin
End Function

Public Sub testfolder()
aaa = ChoixDossierFichier("d:")
End Sub
Signaler
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
 74
il s'agit bien de cela
Signaler
Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
 24
Oui, la MSDN parle de liaison tardive ou précoce - enfin, je crois que c'est ces termes...
Signaler
Messages postés
1411
Date d'inscription
mercredi 6 août 2003
Statut
Membre
Dernière intervention
3 mars 2019
 1
Ok merci pour l'info, maintenant que tu le dis il me semble que j'en avais entendu parlé (par toi :-)) ailleurs sur le site.
Afficher les 20 commentaires
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.

Du même auteur (cs_corsica)