EXPLORATEUR DE RÉPERTOIRES TRÈS SIMPLE RESEAU Y COMPRIS

Commentaire de alfamick le 05/11/2005 12:55:44

j'avais essayé avec un common dialog mais je n'arrivais pas simplement à récupérer le chemin du repertoire, j'etais obligé de selectionner un fichier.

Commentaire de rambc le 06/11/2005 11:44:30

Voici une petite fonction qui ouvre un CommonDialog en renvoyant le chemein du fichier sélectionné.


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

Commentaire de Alain Proviste le 06/11/2005 13:07:31 administrateur CS

tu n'as pas à préciser que ça n'est pas de toi, c'est juste un appel standar à une fonction windows ...

Commentaire de M51 le 04/12/2005 13:14:14

C'est exactement ce que je cherchais. Soit le moyen de récupérer un répertoire (et que le répertoire!!!!!) sur tous les lecteurs y compris réseau.
Simple sans code inutile
Il y a peut être plus court, mais moi aussi je n'ai rien trouvé. Donc pour moi 10/10