Gets a drive alias.

FindByPath(RealPath As String) As Alias

Returns the alias.

RealPath

The actual path represented by an existing alias.

Use a second backslash to delimit each backslash in the path.

The following example assumes the existence of a drive alias for C:\temp. The example shows how to find and print the name of the alias in the Immediate Window.

Dim als As Alias

Dim amap As AcadMap

 

Set amap = ThisDrawing.Application. _

GetInterfaceObject("AutoCADMap.Application") 

Set als = amap.Aliases.FindByPath("C:\\Temp")

Debug.Print als.Name