EXPLORATEUR DE RÉPERTOIRES TRÈS SIMPLE RESEAU Y COMPRIS
jrbleboss
Messages postés
480
Date d'inscription
jeudi 6 mai 2004
Statut
Membre
Dernière intervention
3 septembre 2007
-
5 nov. 2005 à 12:40
Infosoft07 Messages postés 10 Date d'inscription samedi 1 décembre 2007 Statut Membre Dernière intervention 31 mars 2011 - 31 mars 2011 à 12:50
Infosoft07 Messages postés 10 Date d'inscription samedi 1 décembre 2007 Statut Membre Dernière intervention 31 mars 2011 - 31 mars 2011 à 12:50
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/34493-explorateur-de-repertoires-tres-simple-reseau-y-compris
https://codes-sources.commentcamarche.net/source/34493-explorateur-de-repertoires-tres-simple-reseau-y-compris
31 mars 2011 à 12:50
24 mai 2006 à 15:42
4 déc. 2005 à 13:14
Simple sans code inutile
Il y a peut être plus court, mais moi aussi je n'ai rien trouvé. Donc pour moi 10/10
6 nov. 2005 à 13:53
dwIList = SHBrowseForFolder(bi)
Faut controler si dwIList est non null et le passer à CoTaskMemFree si c'est le cas.
VB ne libère la mémoire QUE pour ce qu'il a alloué, ici il n'est au courant de rien.
6 nov. 2005 à 13:07
6 nov. 2005 à 12:20
Je note avec interet les autres solutions que vous proposez.
C'est sur qu'il doit y avoir une foule de façon de récupérer le chemin d'un répertoire mais malheureusement lors de mes recherches je me suis apperçu que comme moi beaucoup d'entre vous recherchiez la même chose. C'est pour cela que j'ai déposé ce petit bout de code,qui je le rappel n'est pas de moi, afin qu'il soit util à d'autre. Encore merci pour vos commentaire et votre aide précieuse.
6 nov. 2005 à 11:44
Function ramFoncDialogFichier(Optional TypeDeFichierCherché As String = "") As String
' ************************************************
' *D'après une fonction écrite par Guy Moncomble *
' *qui se se trouve à l'adresse faqword.free.fr.*
' ************************************************
Dim MyDialog As Dialog
Dim Nom, Chemin, NomComplet As String
Set MyDialog = Dialogs(wdDialogFileOpen)
With MyDialog
If TypeDeFichierCherché <> "" Then
' En choisissant TypeDeFichierCherché = "" ,
' on autorise la recherche de tous
' les fichiers possibles.
If Mid(TypeDeFichierCherché, 1, 1) = "." Then
' On cherche un type de fichier d'une application.
.Name = "*" + TypeDeFichierCherché
Else
' On l'EXE d'une application.
.Name = TypeDeFichierCherché
End If
End If
.Display
End With
DoEvents
Nom = MyDialog.Name
Chemin = CurDir
If Left(Nom, 3) = "C:" Then
' On a choisi un raccourci du bureau.
NomComplet = Nom
Else
NomComplet = Chemin & "" & Nom
End If
If Len(NomComplet) > 4 Then
If Left(NomComplet, 4) = "C:\" Then
NomComplet = "C:" + Right(NomComplet, Len(NomComplet) - 4)
End If
End If
NomComplet = Replace(NomComplet, Chr(34), "")
If Dir(NomComplet) = "" Then
ramFoncDialogFichier = ""
Else
ramFoncDialogFichier = NomComplet
' Certains fichiers contiennent
' des guillemets inutiles.
End If
End Function
6 nov. 2005 à 10:46
Je pense que tu pouvais utiliser l'API GetOpenFileName
Voici un exemple : http://docvb.free.fr/apidetail.php?idapi=137
Cette API te permet de parcourir les repertoires et fichiers dans le voisinage réseau.
Te permet aussi de stocker le chemin d'accès.
5 nov. 2005 à 12:55
5 nov. 2005 à 12:40