begin process at 2012 02 16 12:39:09
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Fichier / Disque

 > COMMONDIALOG ET DOSSIERS

COMMONDIALOG ET DOSSIERS


 Information sur la source

Note :
7,5 / 10 - par 2 personnes
7,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Fichier / Disque Classé sous :dossier, chemin, commondialog, split Niveau :Débutant Date de création :02/08/2006 Vu / téléchargé :7 096 / 950

Auteur : Sechaud

Ecrire un message privé
Commentaire sur cette source (6)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
J'ai beaucoup cherché pour trouver le moyen d'obtenir le chemin d'un dossier
avec le CommonDialog.
Les solutions trouvées font appel à des Apis ou des modules et j'ai trouvé cela trop lourd.
J'ai donc écrit une solution bien plus simple.
Elle a un petit défaut c'est qu'il faut sélectionner un fichier à l'intérieur du dossier et s'il est vide, vous avez deviné, on est bredouille.
Je pense que ma solution peut quand même rendre service et donc je la propose.



 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture FLÉCHES DES ICONES DU BUREAU
Source avec Zip Source avec une capture UTILISER LES COMMANDES WINDOWS EN VB
Source avec Zip Source avec une capture COULCOD 4.2 _COULEURS - VALEURS -NUANCES
Source avec Zip Source avec une capture SCRIPT HOST MANAGER
Source avec Zip Source avec une capture EPHÉMÉRIDE

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) MODIFIER LES EXTENSION DES FICHIERS par okosa
ROUTINE DIR RÉCURSIVE POUR OBTENIR LA LISTE DE TOUS LES FICH... par kerisolde
Source avec Zip Source avec une capture FILE,SECURITY,FICHIER par okosa
Source avec Zip Source avec une capture Source .NET (Dotnet) PATCHEUR DE FICHIER par tototh
Source avec Zip Source avec une capture LECTURE DES INFORMATIONS DES DISQUES COMPOSANT UN ENSEMBLE R... par jack

 Sources en rapport avec celle ci

RACCOURCIR UN CHEMIN (PATH) OU URL INTERNET par Tioneb
Source avec Zip Source avec une capture FOLDER HELPER - DOSSIERS SPECIAUX, MANIPULATION DE DOSSIERS,... par PCPT
Source avec Zip Source avec une capture [OCX] GETFOLDER BY CORSICA MOD ERGO5 par nico1610
Source avec Zip CHEMIN D'UN DOSSIER par fadhel_akram
CREER UN CHEMIN DE PLUSIEURS DOSSIERS par softeur

Commentaires et avis

Commentaire de DARKSIDIOUS le 02/08/2006 20:03:08 administrateur CS

Pourtant, l'API SHBrowseForFolder est assez simple à utiliser !

Bon c'est sûr, ta méthode est plus simple, mais moins pratique...

Commentaire de Sechaud le 02/08/2006 22:04:09

Merci DARKSIDIOUS pour le tuyau.
J'ai pu constater dans le source
http://www.vbfrance.com/codes/CHEMIN-DOSSIER_32628.aspx
que la solution proposée n'était pas trop lourde et elle me plaît assez.
En passant, j'ai trouvé que son auteur avait été noté injustement.

Commentaire de Sechaud le 08/08/2006 09:23:50

Voici la solution la plus courte que j'ai trouvée avec SHBrowseForFolder sans module.
(Un bouton et un TextBox, pour ceux qui veulent essayer.)

Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" _
       (ByVal pidl As Long, ByVal pszPath As String) As Long

Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" _
       (lpBrowseInfo As BROWSEINFO) As Long

Private Type BROWSEINFO
       hOwner As Long
       pidlRoot As Long
       pszDisplayName As String
       lpszTitle As String
       ulFlags As Long
       lpfn As Long
       lParam As Long
       iImage As Long
End Type
Private Const BIF_RETURNONLYFSDIRS = &H1

Private Sub Command1_Click()
Dim BROWSEINFO As BROWSEINFO
Dim Chemin As String
Dim pidl As Long
Dim RetVal As Long
Dim p As Integer

'
Text1.Text = ""
BROWSEINFO.hOwner = Me.hWnd
BROWSEINFO.pidlRoot = 0&
BROWSEINFO.lpszTitle = "Selectionnez un répertoire"
BROWSEINFO.ulFlags = BIF_RETURNONLYFSDIRS
pidl& = SHBrowseForFolder(BROWSEINFO)
'
Chemin = String(512, 0)
RetVal = SHGetPathFromIDList(pidl&, Chemin)
If RetVal Then
        p = InStr(Chemin, Chr$(0))
        Text1.Text = Left(Chemin, p - 1)
    Else
        Text1.Text = ""
        
    End If

End Sub

Commentaire de us_30 le 03/09/2006 15:59:10

Bonjour,

Petite remarque en passant pour VBA, pour que le code ci-dessus fonctionne, il ne faut pas la ligne :
'BROWSEINFO.hOwner = Me.Hwnd
donc la mettre en remarque.

Ensuite si on veut plus court, on peut faire pour les dernières lignes :

Chemin = Space$(512)
RetVal = SHGetPathFromIDList(pidl&, Chemin)
Text1.Text = Chemin

C'est strictement identique.

Amicalement,
Us.

Commentaire de Sechaud le 04/09/2006 08:05:27

Merci beaucoup US_30 pour cette belle simplification.

Commentaire de elloco054 le 01/10/2006 01:42:28

Merci bien Sechaud, c'est tout pile ce qu'il me fallait!! En plus un simple copié/collé dans mon code est ca marche (j'ai juste viré les 2 text1.txt="" qui ne me semblent dailleur pas trés judicieux...si je peux me permettre ...)
Merci encore!

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Comment créer un nouveau dossier en spécifiant le chemin d'accés ??? [ par Chricl ] Voila, je viens de lire la source concernant la création d'un nouveau dossier, je l'ai recopié mais ça marche pas chez moi : (pour l'info, j'ai VB5)Al Controler l'existance d'un dossier [ par villissina ] Tout est dans le sujet :)Je recupere un chemin depuis un fichier ini. Je l'utilise pour y faire des sauvegardes de document. Mais lorsque le chemin n' Recuperer le chemin reseaux d'un dossier a partir de u chemin local ??? [ par dahu ] salut je suis pas au bord du suicide mais je trouve pâs vraiment de solutionj'aimerai savoir le chemin reseau d'un dossier (cad \\nommachine\relocal ) Récupérer le chemin du dossier de l'appli ?! [ par minipod ] Comment charger l'image 'map.jpg' dans un composant Picture1 en sachant que l'image se trouve dans le dossier de l'appli ? Merci. Commondialog et dossier !!! [ par RaZoR ] Je voudrais savoir comment on fais pour ,avec un commondialog, pouvoir sélectionner un DOSSIER !!!Merci dossier [ par tchouck ] Bonjour a tous je crois ne pas avoir été assez explicite lors de mon dernier message. donc voici ce que je voudrais faire :Mon application cree un cer Problème avec CommonDialog [ par philippe ] J'ai mis un commondialog sur le form.tout fonctionne ou presque.Quand j'écris Sub Command1_Click() CommonDialog1.ShowFontEnd Subj'ai un message d' Pb de chemin de fichier urgent!!!!!!!!!! [ par bossun ] salut,j'ai une applicaiton qui me fait générer des documents word. le problème est que lorsque je lui dis de copier le document de base qui se trouve trouver le chemin du dossier (Mes documents) NT4 & win9x [ par claudetom ] bonjourJe recherche un source qui me donne le chemin du dossier 'Mes Documents' sous NT4 & Win9x j'ai essayé grace a l'api getSpecialFolder et CSLID m Chemin de dossier [ par ralf19b3 ] Voila g recuperer un chemin de dossier mais g tout les repertoire depuis la racine du disque dur, je souhaiterait juste avoir le dernier dossier CADsa


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,702 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales