Ilogic to search the file, open it and do something

[Anonymous]

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.

[FINET_Laurent]

Where do you want to open the document from ?

Regards,

FINET L.

[Anonymous]

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

[FINET_Laurent]

From the start menu ? From an assembly file ?

Regards,

FINET L.

[Anonymous]

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

[JhoelForshav · Accepted solution]

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.

[Anonymous]

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