topic Re: Ilogic to search the file, open it and do something in Inventor Programming Forum

Ilogic to search the file, open it and do something

Anonymous — Sat, 24 Oct 2020 16:18:48 GMT

Im looking for a code in vb.net that could search the file (in my case for now .ipt), open it and do something like convert, add parameters etc. Usually the file names comes as list in excel.

This code can search but doesnt do much.

If System.IO.Directory.GetFiles("C:\Inventor Study\", "Test.ipt", IO.SearchOption.AllDirectories).Length > 0 Then
    MsgBox("Found!")
Else
    MsgBox("Not found!")
End If

This one got error: textbox_sa is not decleared.

Dim allFiles As IEnumerable(Of String) = System.IO.Directory.EnumerateFiles("C:\Inventor Study\", "Test.ipt", IO.SearchOption.AllDirectories)
Dim filePaths As IList(Of String) = allFiles.Where(Function(f) f.IndexOf(TextBox_sa.Text, StringComparison.OrdinalIgnoreCase) <> -1).ToList()

If filePaths.Count = 0 Then
    MessageBox.Show("File not found")
Else
    For Each filePath As String In filePaths
        System.Diagnostics.Process.Start(filePath)
    Next
End If

Thank you.

Re: Ilogic to search the file, open it and do something

FINET_Laurent — Sun, 25 Oct 2020 16:17:09 GMT

Where do you want to open the document from ?

Regards,

FINET L.

Re: Ilogic to search the file, open it and do something

Anonymous — Sun, 25 Oct 2020 16:30:57 GMT

Hi @FINET_Laurent . I'd like to open it in Inventor.

Re: Ilogic to search the file, open it and do something

FINET_Laurent — Sun, 25 Oct 2020 16:56:38 GMT

From the start menu ? From an assembly file ?

Regards,

FINET L.

Re: Ilogic to search the file, open it and do something

Anonymous — Mon, 26 Oct 2020 01:57:03 GMT

The code will search the file using ilogic. If found, it should open it in Inventor.

Re: Ilogic to search the file, open it and do something

JhoelForshav — Mon, 26 Oct 2020 08:11:27 GMT

Hi @Anonymous

Try this 🙂

Dim oFolder As String = "C:\Inventor Study"
Dim oName As String = "Test.ipt"
If System.IO.Directory.Exists(oFolder) = False
	MessageBox.Show("The directory: " & oFolder & " doesn't exist!", "Invalid directory", _
	MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
Dim oFoundDocs As String() = System.IO.Directory.GetFiles(oFolder, oName, IO.SearchOption.AllDirectories)
If oFoundDocs.Length > 0 Then
    For Each oPath As String In oFoundDocs
		ThisApplication.Documents.Open(oPath, True)
	Next
Else
    MessageBox.Show("Couldn't find the document " & oName & " in " & oFolder & " or any of its sub folders!", _
	"No file found", _
	MessageBoxButtons.OK, MessageBoxIcon.Information)
End If

GetFiles returns an array of strings with the filepaths to all the found documents.

Re: Ilogic to search the file, open it and do something

Anonymous — Mon, 26 Oct 2020 14:49:44 GMT

It works like magic. A super mega THANK YOU @JhoelForshav .