topic Re: Get the name of the file open in VBA Forum

Get the name of the file open

Anonymous — Thu, 21 Dec 2000 10:05:35 GMT

I need to know how to get the name of the file that is open and open the
same drawing on a different drive. The other problem is the paths are not
same. So how can I do this with VBA

Re: Get the name of the file open

Anonymous — Thu, 21 Dec 2000 12:27:37 GMT

Hi TJ,

There's a .dvb file for you in CF "Duplicate File for TJ". Virtually all of
the code in the module was donated by John Wilde in this NG a few months
ago. I stuck a little public sub in front of it. As it sits it will build
an array of all dwg files starting with D:\ (sStartPath = "D:\") and include
all dwg files in every directory thereunder. Then it will search the array
for a drawing named the same as the active drawing. You should be able to
change the sStartPath = "D:\" to wherever you want to start looking. Hope
that's what your looking for.

Gary

Re: Get the name of the file open

Anonymous — Thu, 21 Dec 2000 12:44:34 GMT

TJ:

dim dwgName as string
dim newPath as string
newPath = "c:\xx\"
dwgName = Thisdrawing.Name
ThisDrawing.Application.Documents.Open(newPath & dwgName)

Gaston Nunez

TJ Robinson wrote:

> I need to know how to get the name of the file that is open and open the
> same drawing on a different drive. The other problem is the paths are not
> same. So how can I do this with VBA
>

Re: Get the name of the file open

Anonymous — Fri, 11 Jan 2008 18:07:41 GMT

Where is this .dvb file you're referring to? I'm also trying to search the hard drive for duplicate files, and have had some trouble.