Object Model Reference : Classes : A : Application : Properties : Application.UserDataPath
|
|
| Object Model Reference : Classes : A : Application : Properties : Application.UserDataPath |
Property UserDataPath As String
Member of Application
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 VBA 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 |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.