topic Re: Is there a MultiSelect option for getfilenameforopen? in .NET Forum

Is there a MultiSelect option for getfilenameforopen?

Anonymous — Wed, 12 May 2010 13:49:58 GMT

...and if so, can you provide a syntax example?

Re: Is there a MultiSelect option for getfilenameforopen?

Anonymous — Wed, 12 May 2010 15:20:24 GMT

do you mean selecting more than one file at once by code ?
use OpenFileDialog more than one times ?

Re: Is there a MultiSelect option for getfilenameforopen?

Anonymous — Wed, 12 May 2010 15:26:25 GMT

Yes I mean to select multiple files from a single dialog box. I was hoping to use the one associated with AutoCAD so I could access customized shortcuts from the ACAD file open dialog. The Windows dialog does not have those shortcuts.

Re: Is there a MultiSelect option for getfilenameforopen?

Anonymous — Wed, 12 May 2010 17:30:06 GMT

This explains how:

http://through-the-interface.typepad.com/through_the_interface/2007/08/using-autocads-.html

Re: Is there a MultiSelect option for getfilenameforopen?

Anonymous — Wed, 12 May 2010 17:36:12 GMT

Thanks for the reply, but that is windows OpenFileDialog, not GetFileNameForOpen. I am checking to see if it is possible with the internal dialog with AutoCAD.

Re: Is there a MultiSelect option for getfilenameforopen?

Anonymous — Wed, 12 May 2010 17:57:16 GMT

You're right.

If it's available, It would be under your

PromptOpenFileOptions

My version doesn't support it so I can't check.

HTH

Bill

Re: Is there a MultiSelect option for getfilenameforopen?

chiefbraincloud — Wed, 12 May 2010 19:00:11 GMT

I do not believe that GetFileNameForOpen will allow multiples, but you can use something like this.

{code}
Public Function CadOpen(ByVal title As String, ByVal defName As String, ByVal ext As String, _
ByVal flags As Autodesk.AutoCAD.Windows.OpenFileDialog.OpenFileDialogFlags) As String()
Dim OpenDia As New Autodesk.AutoCAD.Windows.OpenFileDialog(title, defName, ext, "", flags)
Try
Dim res As Windows.Forms.DialogResult = OpenDia.ShowDialog
If res <> Windows.Forms.DialogResult.OK Then Return Nothing
Dim Filenames() As String = OpenDia.GetFilenames
If Filenames.Length = 0 Then Return Nothing
Return Filenames
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "Error Getting Filenames")
Return Nothing
End Try
End Function
{code}

Then call it like this:
Dim Filenames() As String = CadOpen("Select Files for Data Extraction:", "", "dwg", _
Autodesk.AutoCAD.Windows.OpenFileDialog.OpenFileDialogFlags.AllowMultiple)

Check to make sure Filenames is not Nothing before using the names.

Re: Is there a MultiSelect option for getfilenameforopen?

Anonymous — Wed, 12 May 2010 19:33:05 GMT

That's it! Thanks!

Re: Is there a MultiSelect option for getfilenameforopen?

chiefbraincloud — Wed, 12 May 2010 21:26:35 GMT

BTW,

For the benefit of others who may read this thread, Kean's post that Bill's Link goes to is using the AutoCAD open file dialog, just like my code, not the Windows one. He just had Autodesk.AutoCAD.Windows imported. I didn't notice that until after I posted my version.