Application.UserDataPath

Property UserDataPath As String

The UserDataPath property returns the path to the folder where the user’s personal data resides.

The UserDataPath property returns a read-only value.

The following code example displays all installed GMS files in the GMS folder.

Sub Test() 
 Dim s As String 
 Dim s1 As String 
 s = Dir(UserDataPath & "GMS\*.gms") 
 Do 
  If s = "" Then Exit Do 
  s = s & s1 & vbCrLf 
  s1 = Dir 
 Loop Until s1 = "" 
 s = s & Dir(SetupPath & "Draw\GMS\*.gms") 
 Do 
  If s = "" Then Exit Do 
  s = s & s1 & vbCrLf 
  s1 = Dir 
 Loop Until s1 = "" 
 MsgBox s, , "The following GMS files are installed:" 
End Sub