Probably a Simple Problem: Using CreateFileDialog

[Anonymous]

I am new to iLogic (as I'm sure I am about to make clear), and I am running into an issue creating a macro.  I am trying to adapt the following example to batch process some files (Source) but I am getting errors just copying and pasting the code.

Right now I am trying to get past the first few lines.  When I paste it into the macro editor I get:

Dim oFileDlg As inventor.FileDialog = Nothing

InventorVb.Application.CreateFileDialog (oFileDlg)

'Search Criteria
oFileDlg.Filter = "Inventor Assemblies (*.iam)|*.iam"

I get an syntax error which I can reslove by removing the  " = Nothing" piece.  However, then I get an error message saying "Object variable or With block variable not set".

The more I try to adjust the code the more errors I run into.  Since this is an example I have seen elsewhere I assume the code is correct and I am just doing something wrong.  Do I need to check some references or something?  Has anyone else run into this before?

Sorry if this is a dumb question, I am trying to find the answer on my own but the code above seems to work for everyone else in all the examples I can find.

I am running Inventor 2015

[Anonymous]

Strange, I have a very similar code, with the exact same first 2 lines in a rule of mine and it runs fine.

Do you have an entire code or is this all you have so far? If you're sure these lines are the issue, then try replacing your last line with:

SyntaxEditor Code Snippet

If oDoc.DocumentType = kAssemblyDocumentObject Then
oFileDlg.Filter = "Autodesk Inventor Assembly Files (*.iam)|*.iam"
End If

I am also pretty new to iLogic and inventor so I am just shooting in the dark here.

Also forgot to mention that you have to define oDoc before you try the above. Just paste this line at the top.

SyntaxEditor Code Snippet

oDoc = ThisApplication.ActiveDocument

[Anonymous]

If I try to run it without yet having opened a file I get "Object variable or With block variable not set".  If I open a .iam file and run it I get a "Object Required" error on the beginning of the if statement.

[MechMachineMan]

Private Function FBrowseMulti
	Dim oMultiList As New List(Of String)
    Dim oFileDlg As FileDialog

    Call ThisApplication.CreateFileDialog(oFileDlg)

    With oFileDlg
        .FilterIndex = 1
        .MultiSelectEnabled = True
        .CancelError = True
           On Error Resume Next

            .Filter = "Inventor Files (*.idw;)|*.idw|All Files (*.*)|*.*"
            .DialogTitle = "Select .idw Files To Include In Drawing List"
            .ShowOpen
    End With
    If Err.Number <> 0 Then
        MsgBox("Error Exists")

   ElseIf Not oFileDlg.FileName = "" Then
        Dim fNames As Object
        fNames = Split(oFileDlg.FileName, "|")
        Dim curName As Object

        For Each curName In fNames
            oMultiList.Add(curName)
        Next curName
    End If
Return oMultiList
End Function