Environ("HOMEPATH") in Vista/Excel 2007

Code below will output:

sHome=\Users\myusername
sMyFolder=\Users\myusername\KALLE
\Users\myusername exists:False
\Users\myusername\KALLE exists:False

I know that both my home folder and "KALLE" exists. It used to work under windows 2000/Office 2000.

Is there a solution or workaround?

Sub Testi()
    
    Dim fso As New FileSystemObject
    Dim sHome, sMyFolder As String
    sHome = Environ("HOMEPATH")
    sMyFolder = sHome & "\KALLE"
    Debug.Print "sHome=" & sHome
    Debug.Print "sMyFolder=" & sMyFolder
    Debug.Print sHome & " exists:" & fso.FolderExists(sHome)
    Debug.Print sMyFolder & " exists:" & fso.FolderExists(sHome)
        
End Sub

Select all Open in new window