none
Application.FileDialog(msoFileDialogFilePicker)

    Question

  • The code in my macro (From a command button): Uses pplication.FileDialog(msoFileDialogFilePicker), but the show command does not always work.  I have to exit MS Word completeluy and then come back in before it will. Any ideas?

     

    the original code came from http://support.microsoft.com/kb/288543

     

    This is the code to make it show

    Private Sub cmdCreateList_Click()
      Dim fd As FileDialog
        Set fd = Application.FileDialog(msoFileDialogFilePicker) 'Create a FileDialog object as a File _
        Picker dialog box.
        Dim vrtSelectedItem As Variant 'Declare a variable to contain the path of each selected item.
        With fd 'Use a With...End With block to reference the FileDialog object.
            .AllowMultiSelect = True
            If .Show = -1 Then

                   Code

           Else

           Endif 'if cancel is pressed

           

    Tuesday, December 11, 2007 9:57 PM