Met een stukje VB code maak ik aan de hand van de inhoud van cellen een aantal 'nested' folders aan, dit werkt prima.
Wat veel makkelijker zou moeten zijn is een stukje code om d.m.v. een knop de laagste van deze folders te openen.
Onderstaand stukje code zou dit volgens mijn gebrekkige VB kennis moeten doen, helaas...
Kan iemand mij uitleggen waarom onderstaande code niet werkt om deze folder te openen?
Werkt "Shell"niet met string values???
vast dank...
Wat veel makkelijker zou moeten zijn is een stukje code om d.m.v. een knop de laagste van deze folders te openen.
Onderstaand stukje code zou dit volgens mijn gebrekkige VB kennis moeten doen, helaas...
Kan iemand mij uitleggen waarom onderstaande code niet werkt om deze folder te openen?
Werkt "Shell"niet met string values???
Code:
Sub OpenFolder()
Dim fdrPath As String
Dim stPath As String
Dim stDate As String
Dim stCheck As String
Dim stType As String
Dim stReg As String
With Sheets("Checklist")
stType = .Range("K2").Value
stReg = .Range("A1").Value
stShortReg = .Range("J2").Value
stCheck = .Range("L1").Value
stDate = .Range("E2").Value
stDate = Format(stDate, "dd-mmm-yyyy")
stPath = "C:\VB_Test\Projecten\V-sign\"
fdrPath = stPath & stType & "\" & stReg & "\" & stShortReg & " " & stCheck & " " & stDate
Shell "Explorer.exe fdrPath", vbNormalFocus
End With
End Sub
vast dank...