topic Re: Current Drawing Location Path in .NET Forum

Current Drawing Location Path

Anonymous — Sat, 30 Apr 2011 02:45:04 GMT

Hi Guys,

I am using vb.net and I need to find the directory path that my current or open drawing is located in. I'm not sure how to get this from vb.net. Any help is appreciated. Thanks.

Re: Current Drawing Location Path

Anonymous — Sat, 30 Apr 2011 08:21:02 GMT

Take a look at

Document.Name

Database.OriginalFileName

        <CommandMethod("GetFileName")> _
        Sub GetFileName()
            Dim doc As Document = Application.DocumentManager.MdiActiveDocument
            Dim db As Database = doc.Database
            Dim ed As Editor = doc.Editor

            ed.WriteMessage(doc.Name & vbCrLf)
            ed.WriteMessage(db.OriginalFileName)

        End Sub

Re: Current Drawing Location Path

Anonymous — Sat, 30 Apr 2011 08:57:41 GMT

Sorry you want the folder,

 Application.GetSystemVariable("DWGPREFIX")

or another way

make sure you Import System.IO

Change previos Post to

 <CommandMethod("GetFileName")> _
        Sub GetFileName()
            Dim doc As Document = Application.DocumentManager.MdiActiveDocument
            Dim db As Database = doc.Database
            Dim ed As Editor = doc.Editor
            ed.WriteMessage(Path.GetDirectoryName(doc.Name) & vbCrLf)
            ed.WriteMessage(Path.GetDirectoryName(db.OriginalFileName))
        End Sub

Re: Current Drawing Location Path

Anonymous — Sat, 30 Apr 2011 13:06:26 GMT

Thank you for your post. This is exactly what i was looking for. I have a another question now that I'm seeing the output of this. Is there a way to go up one folder level in the directory path? Or i would have to manually trim the string?

Re: Current Drawing Location Path

Anonymous — Sat, 30 Apr 2011 13:59:01 GMT

        <CommandMethod("GetFileName")> _
        Sub GetFileName()
            Dim doc As Document = Application.DocumentManager.MdiActiveDocument
            Dim db As Database = doc.Database
            Dim ed As Editor = doc.Editor

            ed.WriteMessage(Path.GetDirectoryName(doc.Name) & vbCrLf)
            ed.WriteMessage(Path.GetDirectoryName(db.OriginalFileName) & vbCrLf)


            Dim fpath As String = Path.GetDirectoryName(doc.Name)


            While fpath <> Nothing
                ed.WriteMessage(fpath & vbCrLf)
                fpath = Path.GetDirectoryName(fpath)
            End While

            fpath = doc.Name
            Dim levels As Integer = ed.GetInteger("Enter number of levels you want" & vbCrLf).Value

            For i As Integer = 0 To levels
                fpath = Path.GetDirectoryName(fpath)
                If fpath = Nothing Then
                    Exit For
                End If
            Next
            ed.WriteMessage(fpath & vbCrLf)

        End Sub