open active doc folder

[k14348]

Hi,

    I would like to open the inventor active doc folder through vba or ilogic. Can somebody help on this. folder should open in file explorer not within inventor.

Sample

Sub Openpath()

Dim oDoc As Document
Set oDoc = ThisApplication.ActiveDocument

Dim oPath As String
oPath = oDoc.FullFileName


Call Shell("explorer.exe" & " " & "oPath", vbNormalFocus)
End Sub

Thank u,

K14348

[j.brodersen]

Hi k14348,

I found the code below which opens the win explorer with the path of the part it has been lunched from

Sub Main

Shell ("explorer.exe " & ThisDoc.Path, vbNormalFocus) 

End Sub

Hope it's what you are looking for.

[dean.morrison · Accepted solution]

Hi,

This will open your workspace folder.

Hope it helps.

Dim oFileLocations As FileLocations

Set oFileLocations = ThisApplication.FileLocations

oPath = oFileLocations.Workspace

Call Shell("explorer.exe " & oPath, vbNormalFocus)

Dean.

[k14348]

Hi Dean,

            How u found  FileLocations as its not  default. Its not shown while typing in VBA.

Thanks

Karthikeyan M

[dean.morrison]

Unsure how i found it, it was probably on this forum somewhere.

Dean.

[Anonymous]

Public Sub ExplorerActiveLocation()
Dim oFullfilename As String
oFullfilename = ThisApplication.ActiveDocument.fullFilename
Dim oLocation As String
oLocation = Left(oFullfilename, Len(oFullfilename) - Len(StrReverse(Left(StrReverse(oFullfilename), InStr(1, StrReverse(oFullfilename), "\") - 1))) - 1)
Shell "explorer.exe " & oLocation, vbNormalFocus
End Sub

[Anonymous]

'Open & Select
Public Sub ExplorerActiveLocation()
Dim oFullfilename As String
oFullfilename = ThisApplication.ActiveDocument.fullFilename
Shell "explorer.exe /select, " & oFullfilename, vbNormalFocus
End Sub

[MichaëlStienstra]

There is some code I personally use. Maybe it's helpful. 

'Code voor het openen van de bestandsfolder met behulp van windows file explorer
Sub Main()
	'aanroep locatie
	oPath = ThisDoc.Path
	'open file explorer (programma)
	Dim Proc As String = "Explorer.exe"
	Dim Args As String = ControlChars.Quote & oPath & ControlChars.Quote
	Process.Start(Proc, Args)
End Sub