browser

[julien]

bonjour,

j'ai un fichier avec browser de disque. j'aimerai savoir ce que je dois changer à l'interieur de ce code afin de pouvoir déterminer le fichier ouvert actuellement à l'ouverture du browser en fonction du text d'une textbox!

ex:
c:\
-->windows
--> temp

merci

--------------------------
voici le code:

Sub Parcourir()
choix = ChoixDossierFichier("", 0) '<- ici le chemin de ton choix
End Sub


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

If SelType = 0 Then
FlagChoix = &H1&: Msg = "Choisissez un dossier :"
Else
FlagChoix = &H4000&: Msg = "Choisissez un fichier :"
End If

Set objShell = CreateObject("Shell.Application")

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

 

[STéphane]

julien


sur le code que tu utilises, on te dit bien ou indiquer le chemin de ton choix ;-)

tu peux donc faire comme ça
choix = ChoixDossierFichier(textbox1.text, 0) '

bye
stephane

 

[julien]

avec ce code, je ne peux pas remonter dans le répertoire parent de celui que j'indique!!

ex:

si textbox1.text="c:\temp"

la boite d'explorateur s'ouvre dans ce dossier, mais je ne peux pas revenir sur c:\

merci