windows explorer openen met vba

[Melten]

Ik wil graag een windows explorer venster openen van een bepaalde map.Ik heb hiervoor een formulier gemaakt die met een combobox een naam ophaalt. De map die het explorer venster moet openen is dan (basismap + naam). (basis map heb ik reeds gedefinieerd: basismap = "C:\Documents and Settings\Melten en Léonne\Mijn documenten\Melten\actieve bestanden\")
Ik lees iets over Shell maar begrijp het niet helemaal.
Wie kan mij helpen?

 

[beheer25]

De opdracht (in VBA) kan er als volgt uitzien:

Shell ("explorer c:\temp\")


Grtz,

 

[Melten]

Het klopt dat de windows verkenner nu geopend wordt in c:/temp maar nog niet op de lokatie die ik wil selecteren met de combobox.
De code ziet er als volgt uit

Private Sub cmdOKDossier_Click()

'
' Klanten dossier openenen Macro
' De macro is opgenomen op 29-04-2006 door Melten en Leonne.
'

' Aanmaken van de constanten voor de juiste mapverwijzing.

On Error Resume Next

Dim basismap5 As String
Dim Klantcode As String



Dim fs As Object

'' Geef het pad van de map waar de nieuwe map in aangemaakt moet worden ..
basismap5 = "C:\Documents and Settings\Melten en Léonne\Mijn documenten\Melten\Deco\actieve bestanden\"

'' tekst uit combobox van formulier heet cbxklantcode.
Klantcode = cbxklantcode.Text

Shell ("explorer basismap5 & Klantcode")

'frmDossier.Hide
End Sub

ik krijg de melding: het pad basismap5 & klantcode bestaat is of is een map.
Kan je me hiermee verder helpen?

Groeten,
Melten

 

[beheer25]

basismap5 = "C:\Documents and Settings\Melten en Léonne\Mijn documenten\Melten\Deco\actieve bestanden\"

Klantcode = cbxklantcode.Text
dim strShell as string
strShell = "explorer " & chr(34) basismap5 & klantcode & chr(34)

Shell (strShell)

Dat zou het moeten doen. chr(34) geeft (even uit mijn hoofd) een dubbele quote (") terug. Die heb je nodig als er spaties in de padnaam staan.


Grtz,