windows map openen in vba

[benprint]

hallo allemaal

Mijn bedoeling is een middels en record id een folder te openen in windows
en als die folder er niet is moet hij gemaakt worden en dan die folder openen.
en ik dacht dat het zo wel werkte

strFolder = strFolder & "d:\klanten\" & Id
Set filesys = CreateObject("Scripting.FileSystemObject")
If Not filesys.FolderExists(strFolder) Then
MkDir "d:\klanten\" & Id
If filesys.FolderExists(strFolder) Then
strFolder = strFolder & "d:\klanten\" & Id

maar hij maakt alleen de folder aan die er niet is maar werder gebeurt er niets
als ik alleen strFolder = strFolder & "d:\klanten\" & Id gebruik dan gat hij wel naar de juise folder maar als een folder nog niet aanwezig is krijg ik een foutmelding .

misschien zijn er andere oplossingen ik ben een noop op vba gebied
Ik werk met access 2003

gr. bennie

 

[snb]

zoek eens met de term getopenfilename

 

[benprint]

zoek eens met de term getopenfilename

IK heb me de blubber gezocht maar ik kan niet iets vinden wat bied wat ik wil en ik heb ook al geprobeerd het in de code te gebruiken maar dit doe ik hoofstwaarschijnlijk niet goed want dan krijg ik allemaal foutmeldingen

 

[benprint]

Ik heb het als volgt opgelost:
Private Sub Knop24_Click()
Dim strXLSFile As String, strPDFFile As String, strFolder As String, strWebsite As String
Dim strEmail As String, strSubject As String, strEmailHyperlink As String
On Error GoTo ErrorHandler

strFolder = strFolder & "d:\klanten\" & Id
Application.FollowHyperlink Address:=strFolder, NewWindow:=True

ErrorHandler:
If Err = 490 Then
MkDir "d:\klanten\" & Id
Resume Next
Else
MsgBox "als de folder voor de klant er nog niet was is die nu aangemaakt"
End If


End Sub

misschien wel niet de juist oplossing maar het werkt nu wel zoals ik wil
maar wel bedankt voor het meedenken

 

[FeelNice]

Sub OpenBepaaldeMap()
Dim stFolder As String

stFolder = Sheets("Blad1").Range("$A$1").Value

If Len(Dir(stFolder, vbDirectory)) <> 0 Then
Shell "Explorer.exe /n,/e," & Sheets("blad1").Range("$A$1").Value, vbNormalFocus
Else
MsgBox "De map bestaat niet op deze PC!", vbCritical
End If

End Sub