IEdoc.getelementbyid("popup-photos").Click
      Set CurItem = IEdoc.getelementbyid("form1")
      CurItem.Focus
      CurItem.Click
      CurItem(0).Click 'открывает диалог выбора файла

Public Sub Upload_Set_Filename(sFilePathName As String)
'    'Populate the 'File name:' edit window in the Choose File to Upload dialogue with the specified folder and/or filename.
'
'
'    'The Choose File to Upload has the following child window hierarchy:
'
'    '   #32770  Choose File to Upload   Static             Look &in:
'ComboBox           N / A
'Static             N/A
'ToolbarWindow32    N / A
'ToolbarWindow32    N / A
'ListBox            N / A
'SHELLDLL_DefView   N/A         1376604 SysListView32   FolderView
'Static             File &name:
'ComboBoxEx32       N/A         8520100 ComboBox        N/A 1245594 Edit    N/A
'Static             Files of &type:
'ComboBox N / A
'Button             Open as &read-only
'Button             &Open
'Button             Cancel
'Button             &Help
'ScrollBar N / A

    Dim hWnd As Long
    Dim timeout As Date
    'MsgBox ""
    'Debug.Print "Save_As_Set_Filename " & folder
    'Find the Window, waiting a maximum of 10 seconds for it to appear
    timeout = Now + TimeValue("00:00:10")
    Do
      hWnd = FindWindow("#32770", "Выбор выкладываемого файла") 'Choose File to Upload
      DoEvents
      Sleep 200
    Loop Until hWnd Or Now > timeout
    If hWnd Then
      SetForegroundWindow (hWnd)
      'Find the child ComboBoxEx32 window
      hWnd = FindWindowEx(hWnd, 0, "ComboBoxEx32", vbNullString)
      'Debug.Print "   ComboBoxEx32 "; Hex(hWnd)
    End If
    If hWnd Then
      'Find the child ComboBox window
      hWnd = FindWindowEx(hWnd, 0, "ComboBox", "")
      'Debug.Print "   ComboBox "; Hex(hWnd)
    End If
    If hWnd Then
      SetForegroundWindow (hWnd)
      'Find the child Edit window
      hWnd = FindWindowEx(hWnd, 0, "Edit", "")
      'Debug.Print "   Edit "; Hex(hWnd)
    End If
    If hWnd Then

      'Populate the Edit window with the full file name
      '        Sleep 200
      SendMessageByString hWnd, WM_SETTEXT, Len(sFilePathName), sFilePathName
    End If

End Sub

Public Sub Upload_Click_Open(Optional cmb As String)

    Dim hWnd As Long
    Dim timeout As Date

    'Debug.Print "File_Download_Click_Save"

    'Find the File Download window, waiting a maximum of 30 seconds for it to appear

    timeout = Now + TimeValue("00:00:10")
    Do
      hWnd = FindWindow("#32770", "Выбор выкладываемого файла")
      DoEvents
      Sleep 200
    Loop Until hWnd Or Now > timeout

    'Debug.Print "   File Download window "; Hex(hWnd)

    If hWnd Then
      'Find the child Open button

      hWnd = FindWindowEx(hWnd, 0, "Button", "&Открыть")
      'Debug.Print "   Save button "; Hex(hWnd)
    End If

    If hWnd Then

      'Click the Open button

      SetForegroundWindow (hWnd)
      Sleep 600     'this sleep is required and 600 miiliseconds seems to be the minimum that works
      SendMessage hWnd, BM_CLICK, 0, 0
    End If
End Sub