call section (C:\Program Files) (1 Viewer)

[azhar2006]

Good evening guys
I am trying to call section (C:\Program Files) of the computer through a button and display its contents only. I used this code that I found in the forum for the colleague (arnelgp) but it did not work.

Dim strPath As String
strPath = ""
If Len(strPath) Then
    strPath = getPath(strPath)
Else
strPath = Environ$("C:\Program Files")
End If
Application.FollowHyperlink strPath



Public Function getPath(ByVal p As String)
Dim sPath As String
Dim i As Integer
i = InStrRev(p, "\")
sPath = Left$(p, i)
getPath = sPath
End Function

 

[arnelgp]

if strpath is Constant, you do not need Environ$() for it:

Dim strPath As String
strPath = ""
If Len(strPath) Then
strPath = getPath(strPath)
Else
strPath = "C:\Program Files\"
End If
Application.FollowHyperlink strPath

 

[azhar2006]

if strpath is Constant, you do not need Environ$() for it:

Dim strPath As String
strPath = ""
If Len(strPath) Then
strPath = getPath(strPath)
Else
strPath = "C:\Program Files\"
End If
Application.FollowHyperlink strPath

Thank you very much, dear (arnelgp)