Finding the User's Acad Support folder

Is there VBA way to find the path to the location of the User's Acad Support
Folder

Thanks much

David

 

Run the system variable MYDOCUMENTSPREFIX (autocad 2005)

 

How about:
thisdrawing.application.path

HTH,
Mike Weaver

 

Sorry Mike, that gives the location of acad.exe, not the Support folder.

DH, there are more than one support folder. Use the Preferences to find them.

Application.Preferences.Files.SupportPath

This returns a semicolon delimited string of all the support folders.

--
----
Ed
----
"Mike Weaver" <mweaver AT bettisworth DOT com> wrote in message How about:
thisdrawing.application.path

HTH,
Mike Weaver

 

I tried this, and it seems to work. I'm trying to write a text file somewhere that makes sense on the user's computer. I'm assuming in this that everyone using AutoCAD has a "Support" folder within the folder that contains acad.exe .

Is that maybe not a good assumption?


Dim pathString As String
pathString = ThisDrawing.Application.path & "\Support\MyFile.txt"
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(pathString, True)

Sorry Mike, that gives the location of acad.exe, not the Support folder.

DH, there are more than one support folder. Use the Preferences to find them.

Application.Preferences.Files.SupportPath

This returns a semicolon delimited string of all the support folders.

--
----
Ed
----
"Mike Weaver" <mweaver AT bettisworth DOT com> wrote in message How about:
thisdrawing.application.path

HTH,
Mike Weaver

 

Yes, "...\Support" is a standard acad folder, through 2005.

--
----
Ed
----
I tried this, and it seems to work. I'm trying to write a text file somewhere that makes sense on the user's computer. I'm assuming in this that everyone using AutoCAD has a "Support" folder within the folder that contains acad.exe .

Is that maybe not a good assumption?


Dim pathString As String
pathString = ThisDrawing.Application.path & "\Support\MyFile.txt"
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(pathString, True)

Sorry Mike, that gives the location of acad.exe, not the Support folder.

DH, there are more than one support folder. Use the Preferences to find them.

Application.Preferences.Files.SupportPath

This returns a semicolon delimited string of all the support folders.

--
----
Ed
----
"Mike Weaver" <mweaver AT bettisworth DOT com> wrote in message How about:
thisdrawing.application.path

HTH,
Mike Weaver

 

My bad.

How about this (works in 2005):

Public Function GetSupportPaths() As Variant
Dim strPrefsFiles As String

strPrefsFiles = ThisDrawing.Application.preferences.files
GetSupportPaths = Split(strPrefsFiles, ";")

End Function

returns an array of strings, each item being a support folder

The support folder under the executable may or may not be in the search path.

Mike
Sorry Mike, that gives the location of acad.exe, not the Support folder.

DH, there are more than one support folder. Use the Preferences to find them.

Application.Preferences.Files.SupportPath

This returns a semicolon delimited string of all the support folders.

--
----
Ed
----
"Mike Weaver" <mweaver AT bettisworth DOT com> wrote in message How about:
thisdrawing.application.path

HTH,
Mike Weaver

 

Good. A complementary function would be useful too, to rebuild the string after editing/adding folders.

--
----
Ed
----
"Mike Weaver" <mweaver AT bettisworth DOT com> wrote in message My bad.

How about this (works in 2005):

Public Function GetSupportPaths() As Variant
Dim strPrefsFiles As String

strPrefsFiles = ThisDrawing.Application.preferences.files
GetSupportPaths = Split(strPrefsFiles, ";")

End Function

returns an array of strings, each item being a support folder

The support folder under the executable may or may not be in the search path.

Mike
Sorry Mike, that gives the location of acad.exe, not the Support folder.

DH, there are more than one support folder. Use the Preferences to find them.

Application.Preferences.Files.SupportPath

This returns a semicolon delimited string of all the support folders.

--
----
Ed
----
"Mike Weaver" <mweaver AT bettisworth DOT com> wrote in message How about:
thisdrawing.application.path

HTH,
Mike Weaver

 

There is no formal 'support' folder, there is a
support path that can include any number of folders.

In AutoCAD 2004/2005, this will give you the root
folder where user-specific support files can be
placed:

(getvar "ROAMABLEROOTPREFIX")





I tried this, and it seems to work. I'm trying to write a text file somewhere that makes sense on the user's computer.
I'm assuming in this that everyone using AutoCAD has a "Support" folder within the folder that contains acad.exe .

Is that maybe not a good assumption?


Dim pathString As String
pathString = ThisDrawing.Application.path & "\Support\MyFile.txt"
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(pathString, True)

Sorry Mike, that gives the location of acad.exe, not the Support folder.

DH, there are more than one support folder. Use the Preferences to find them.

Application.Preferences.Files.SupportPath

This returns a semicolon delimited string of all the support folders.

--
----
Ed
----
"Mike Weaver" <mweaver AT bettisworth DOT com> wrote in message How about:
thisdrawing.application.path

HTH,
Mike Weaver