COMMONDIALOG POUR SÉLECTIONNER UN RÉPERTOIRE ( OCX )

ScSami
Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
- 9 janv. 2006 à 18:37
facknrask
Messages postés
5
Date d'inscription
vendredi 10 novembre 2006
Statut
Membre
Dernière intervention
7 mars 2007
- 21 déc. 2006 à 18:41
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/35482-commondialog-pour-selectionner-un-repertoire-ocx

facknrask
Messages postés
5
Date d'inscription
vendredi 10 novembre 2006
Statut
Membre
Dernière intervention
7 mars 2007

21 déc. 2006 à 18:41
facknrask
Messages postés
5
Date d'inscription
vendredi 10 novembre 2006
Statut
Membre
Dernière intervention
7 mars 2007

21 déc. 2006 à 18:40
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
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
11 janv. 2006 à 00:46
il s'agit bien de cela
ScSami
Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
24
10 janv. 2006 à 18:19
Oui, la MSDN parle de liaison tardive ou précoce - enfin, je crois que c'est ces termes...
bouv
Messages postés
1411
Date d'inscription
mercredi 6 août 2003
Statut
Membre
Dernière intervention
3 mars 2019
1
10 janv. 2006 à 18:13
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