topic Re: VBA FileDialog object - problem with InitialDirectory in Inventor Programming Forum

VBA FileDialog object - problem with InitialDirectory

Anonymous — Wed, 02 Sep 2009 09:38:01 GMT

I need (in VBA makro) save file to given folder.
I want to do it with FileDialog object but I can't set folder in dialog windows with InitialDirectory method.
There is always last used folder in dialog window.
Does anybody know why InitialDirectory doesn't work?

{code}
Call ThisApplication.CreateFileDialog(oFileDlg)
oFileDlg.InitialDirectory = "C:\temp"
oFileDlg.ShowSave
{code}

Re: VBA FileDialog object - problem with InitialDirectory

Anonymous — Tue, 08 Sep 2009 19:44:33 GMT

I have the same problem. And it is odd becuase it is only with the Save, the Open works fine.

For me the Save always goes to my default inventor last save directory.

Any input would be appreciated.

Re: VBA FileDialog object - problem with InitialDirectory

Anonymous — Tue, 08 Sep 2009 22:00:35 GMT

Could you let me know which version of Inventor (and service pack) each of
you is seeing this issue with?

thanks,
Sanjay-

Re: VBA FileDialog object - problem with InitialDirectory

Anonymous — Wed, 09 Sep 2009 07:36:31 GMT

I use Inventor 2009, SP 2 but now I found solution.
Path must be written in FileName attribut
{code}
Call ThisApplication.CreateFileDialog(oFileDlg)
oFileDlg.InitialDirectory = 'C:\temp'
oFileDlg.FileName = 'C:\temp\example.ipt'
oFileDlg.ShowSave
{code}

Re: VBA FileDialog object - problem with InitialDirectory

Anonymous — Wed, 09 Sep 2009 16:00:27 GMT

Inventor 2009 Service Pack 1
(didn't know 2 was out ill have to update)

That filename trick worked my only problem is that it fills the Filename property which is what i use to check for valid selections. ill be able to work around that though in my error checking to prevent a million copies of that default name being created.

thanks

EDIT:
i used this code since my initial directory changes from time to time....

{code}

newPath.DialogTitle = "Select Location for New File"
newPath.InitialDirectory = ThisApplication.FileLocations.Workspace
newPath.FileName = newPath.InitialDirectory + "\.dwg"
newPath.CancelError = True

{code}

this allows an invalid save with an error and doesn't default your directory to one spot. Edited by: ENDCad on Sep 9, 2009 4:02 PM

Re: VBA FileDialog object - problem with InitialDirectory

Anonymous — Wed, 09 Sep 2009 18:45:01 GMT

I checked and unfortunately, this was a known issue in Inventor 2009.
Providing the full path in the filename is the only workaround, as you've
discovered. This issue is fixed in Inventor 2010 and doesn't need a filename
specification.

Sanjay-

Re: VBA FileDialog object - problem with InitialDirectory

Anonymous — Fri, 27 Nov 2009 08:28:47 GMT

Sanjay wrote:

I checked and unfortunately, this was a known issue in Inventor 2009.

Providing the full path in the filename is the only workaround, as you've

discovered. This issue is fixed in Inventor 2010 and doesn't need a filename

specification.

Sanjay,

I am a user of Inventor 2010 SP1 and unfortunately this issue is NOT solved yet!!!!!!!!!!!!!!
I have the same problems with the "Initial Directory"

How can i solve this?

thx

bjorn

Re: VBA FileDialog object - problem with InitialDirectory

Anonymous — Mon, 04 Mar 2013 18:10:55 GMT

2013 & it seems this thing is still sneaking around.. or???

Re: VBA FileDialog object - problem with InitialDirectory

philippe.leefsma — Mon, 11 Mar 2013 15:50:35 GMT

Hi,

I'm testing that under 2013 SP1.1 Update 2 and it seems to work correctly:

Public Sub CreateFileDialog()

    Dim App As Inventor.Application
    Set App = ThisApplication
    
    Dim dlg As FileDialog
    Call App.CreateFileDialog(dlg)
    
    dlg.InitialDirectory = "C:\"
    dlg.filter = "Inventor Files (*.ipt)|*.ipt | Assembly File (*.iam)|*.iam"
    dlg.DialogTitle = "Save Native"
    
    dlg.ShowSave

End Sub

Regards,

Philippe.

Re: VBA FileDialog object - problem with InitialDirectory

Anonymous — Mon, 11 Mar 2013 21:40:14 GMT

Doesn´t work for me in C# & when I copy paste your code directly in the VBA editor & run I end up in my vault project folder.. e.g. not C:\". I´m on the same build.

Re: VBA FileDialog object - problem with InitialDirectory

xiaodong_liang — Wed, 20 Mar 2013 01:14:56 GMT

Hi,

there is a C# demo code in the API help reference. Hope it helps you to figure out the problem:

public void TestFileDialog()
{
    Application oApp = ThisApplication;

    // Create a new FileDialog object.
    FileDialog oFileDlg;
    oApp.CreateFileDialog(out(oFileDlg));

    // Define the filter to select part and assembly files or any file.
    oFileDlg.Filter = "Inventor Files (*.iam;*.ipt)|*.iam;*.ipt|All Files (*.*)|*.*";

    // Define the part and assembly files filter to be the default filter.
    oFileDlg.FilterIndex = 1;

    // Set the title for the dialog.
    oFileDlg.DialogTitle = "Open File Test";

    // Set the initial directory that will be displayed in the dialog.
    oFileDlg.InitialDirectory = "C:/Temp";

    // Set the flag so an error will not be raised if the user clicks the Cancel button.
    oFileDlg.CancelError = false;

    // Show the open dialog.  The same procedure is also used for the Save dialog.
    // The commented code can be used for the Save dialog.
    oFileDlg.ShowOpen();
    // oFileDlg.ShowSave();

    System.Windows.Forms.MessageBox.Show("File " + oFileDlg.FileName + " was selected.", "Selected file");

}

Re: VBA FileDialog object - problem with InitialDirectory

Anonymous — Wed, 20 Mar 2013 08:09:53 GMT

Yep.. That´s more or less the same code I used, but no cigar as mentioned earlier, Using the IV2009 workaround described in this thread, does the job so I´m long gone. I have a strong feeling the internal vaultclient is overriding oFileDlg.InitialDirectory.. Check it out 😉

Re: VBA FileDialog object - problem with InitialDirectory

Anonymous — Wed, 10 Jul 2013 17:37:12 GMT

Workaround described in this thread doesn't work for an open file dialog. Anybody got a work around for an open file dialog? or an alternative method of calling an open file dialog box where the initial directory can be set??

Thx in advance

Re: VBA FileDialog object - problem with InitialDirectory

xiaodong_liang — Wed, 17 Jul 2013 01:27:45 GMT

Hi ZX_Spectrum_48k ,

could you clarify what kind of problem you hit? I did not get a clue from the existing messages in the thread.

Re: VBA FileDialog object - problem with InitialDirectory

Anonymous — Mon, 22 Jul 2013 07:59:43 GMT

Hi,

The sample code in  the 2014 help menu as reproduced below will not produce a file dialog box starting in c:\temp, instead the file dialog will display the last used folder.
Seems to have been an issue for a while ......................


Public Sub TestFileDialog()
    ' Create a new FileDialog object.
    Dim oFileDlg As FileDialog
    Call ThisApplication.CreateFileDialog(oFileDlg)

    ' Define the filter to select part and assembly files or any file.
    oFileDlg.Filter = "Inventor Files (*.iam;*.ipt)|*.iam;*.ipt|All Files (*.*)|*.*"

    ' Define the part and assembly files filter to be the default filter.
    oFileDlg.FilterIndex = 1

    ' Set the title for the dialog.
    oFileDlg.DialogTitle = "Open File Test"

    ' Set the initial directory that will be displayed in the dialog.
    oFileDlg.InitialDirectory = "C:\Temp"

    ' Set the flag so an error will be raised if the user clicks the Cancel button.
    oFileDlg.CancelError = True

    ' Show the open dialog.  The same procedure is also used for the Save dialog.
    ' The commented code can be used for the Save dialog.
    On Error Resume Next
    oFileDlg.ShowOpen
'    oFileDlg.ShowSave

    ' If an error was raised, the user clicked cancel, otherwise display the filename.
    If Err Then
        MsgBox "User cancelled out of dialog"
    ElseIf oFileDlg.FileName <> "" Then
        MsgBox "File " & oFileDlg.FileName & " was selected."
    End If
End Sub

Re: VBA FileDialog object - problem with InitialDirectory

adam.nagy — Fri, 26 Jul 2013 23:11:11 GMT

Hi,

Strange. It seems to work for me and starts in whatever folder I set as InitialDirectory: http://www.screencast.com/t/w2K7yJ9q

Cheers,

Re: VBA FileDialog object - problem with InitialDirectory

jdkriek — Mon, 29 Jul 2013 17:19:31 GMT

*Make sure the directory actually exists and you have proper permissions*

We had this issue recently and discovered if the directory doesn't exist it will simply use the last directory it succesfully hit.

Re: VBA FileDialog object - problem with InitialDirectory

Anonymous — Tue, 30 Jul 2013 04:46:05 GMT

*Make sure the directory actually exists and you have proper permissions*

Don't think thats the problem - I can get initial directory to behave if I have no inventor files open.

As soon as I have an inventor file open, always get the project folder regardless of what initial directory is set to.

Anyone else find the same thing??

Re: VBA FileDialog object - problem with InitialDirectory

binuvarkey — Tue, 06 Aug 2013 23:49:12 GMT

We have the same problem in all 4 seats of Inventor Pro 2014.

oFileDlg.InitialDirectory settings are not honoured and the dialog opens with Workspace in focus. We have Vault 2014 Workgroup installed and signed in.

Re: VBA FileDialog object - problem with InitialDirectory

binuvarkey — Wed, 07 Aug 2013 00:34:06 GMT

When the dialog opens in the Project Folder, if we browse to another directory from the dialog box and cancel the dialog or open the file, next time initialdirectory is set to the other directory we browsed to or opened file from.