WM_COMMAND = 273
oIE = createobject("InternetExplorer.Application.1")
oIE.Navigate("c:\")
lWnd = FindWindowEx(oIE.hwnd, 0, "SHELLDLL_DefView", 0)
*!*   28713 - Large icons
*!*   28714 - Small icons
*!*   28715 - List
*!*   28716 - Details
*!*   28717 - Thumbnails
*!*   28718 - Tiles
 SendMessage(lWnd, WM_COMMAND, 28717, 0)
oIE.visible = .t.
*********************************************************

hmwCreateWindowEx(...,"#32770",...)
SendMessage(...) 
showwindow(...)

*////////////////////
#define OFN_PATHMUSTEXIST 0x00000800
#define OFN_FILEMUSTEXIST 0x00001000
#define OFN_EXPLORER 0x00080000
#define OFN_EX_NOPLACESBAR 0x00000001
#define N_SIZE_OPENFILENAME 88

*!* typedef struct tagOFN {
*!* DWORD lStructSize;
*!* HWND hwndOwner;
*!* HINSTANCE hInstance;
*!* LPCTSTR lpstrFilter;
*!* LPTSTR lpstrCustomFilter;
*!* DWORD nMaxCustFilter;
*!* DWORD nFilterIndex;
*!* LPTSTR lpstrFile;
*!* DWORD nMaxFile;
*!* LPTSTR lpstrFileTitle;
*!* DWORD nMaxFileTitle;
*!* LPCTSTR lpstrInitialDir;
*!* LPCTSTR lpstrTitle;
*!* DWORD Flags;
*!* WORD nFileOffset;
*!* WORD nFileExtension;
*!* LPCTSTR lpstrDefExt;
*!* LPARAM lCustData;
*!* LPOFNHOOKPROC lpfnHook;
*!* LPCTSTR lpTemplateName;
*!* #if (_WIN32_WINNT >= 0x0500)
*!* void * pvReserved;
*!* DWORD dwReserved;
*!* DWORD FlagsEx;
*!* #endif // (_WIN32_WINNT >= 0x0500)
*!* } OPENFILENAME, *LPOPENFILENAME;

*
*-- Test VFP version
ACTIVATE SCREEN
CLEAR
IF VERSION(5) < 900
    ? "Sorry, for VFP 9.0 (or later) :-("
    RETURN .F.
ENDIF

*
*-- Declare Win32Api-functions
DECLARE INTEGER GetProcessHeap IN WIN32API AS WinAPI_GetProcessHeap
DECLARE INTEGER HeapAlloc IN WIN32API AS WinAPI_HeapAlloc ;
    INTEGER, INTEGER, INTEGER
DECLARE INTEGER HeapFree IN WIN32API AS WinAPI_HeapFree ;
    INTEGER, INTEGER, INTEGER
DECLARE INTEGER GetOpenFileName IN comdlg32.dll AS WinAPI_GetOpenFileName ;
    STRING @

*
*-- Define input strings
LOCAL lnPos as Integer;
    ,lcFile as String;
    ,lcFilter as String
lcFile = CHR(0) + REPLICATE(CHR(32), 240) + CHR(0) + CHR(0)
lcFilter = "Text" + CHR(32) ;
    + "*.TXT" + CHR(32) + CHR(0) + CHR(0)
DO WHILE .T.
    lnPos = RATC(CHR(32), lcFilter)
    IF lnpos > 0
        lcFilter = STUFFC(lcFilter, lnpos, 1, CHR(0))
    ELSE
        EXIT
    ENDIF
ENDDO

*
*-- Allocate memory & copy input-strings into memory
LOCAL lnPtrFile as Integer ;
    ,lnPtrFilter as Integer
*
*-- lnPtrFile
LOCAL lnLenFile as Integer
lnLenFile = LENC(lcFile)
lnPtrFile = WinAPI_HeapAlloc(WinAPI_GetProcessHeap(), 0, lnLenFile)
IF lnPtrFile == 0
    ? "Error HeapAlloc for lcFile"
    CLEAR DLLS
    RETURN .F.
ENDIF
SYS(2600, lnPtrFile, lnLenFile, lcFile) && Copy value to memory
*
*-- lnPtrFilter
lnPtrFilter = WinAPI_HeapAlloc(WinAPI_GetProcessHeap(), 0, LENC(lcFilter))
IF lnPtrFilter == 0
    WinAPI_HeapFree(WinAPI_GetProcessHeap(), 0, lnPtrFile)
    ? "Error HeapAlloc for lcFilter"
    CLEAR DLLS
    RETURN .F.
ENDIF
SYS(2600, lnPtrFilter, LENC(lcFilter), lcFilter) && Copy value to memory

*
*-- Define & fill OPENFILENAME structure
LOCAL lpofn As String
lpofn = BINTOC(N_SIZE_OPENFILENAME, "4RS") ; && DWORD lStructSize
+ BINTOC(0, "4RS") ; && HWND hwndOwner
+ BINTOC(0, "4RS") ; && HINSTANCE hInstance
+ BINTOC(lnPtrFilter, "4RS") ; && LPCTSTR lpstrFilter
+ BINTOC(0, "4RS") ; && LPTSTR lpstrCustomFilter
+ BINTOC(0, "4RS") ; && DWORD nMaxCustFilter
+ BINTOC(1, "4RS") ; && DWORD nFilterIndex
+ BINTOC(lnPtrFile, "4RS") ; && LPTSTR lpstrFile
+ BINTOC(lnLenFile, "4RS") ; && DWORD nMaxFile
+ BINTOC(0, "4RS") ; && LPTSTR lpstrFileTitle
+ BINTOC(0, "4RS") ; && DWORD nMaxFileTitle
+ BINTOC(0, "4RS") ; && LPCTSTR lpstrInitialDir
+ BINTOC(0, "4RS") ; && LPCTSTR lpstrTitle
+ BINTOC(OFN_PATHMUSTEXIST + OFN_FILEMUSTEXIST + OFN_EXPLORER, "4RS") ; && DWORD Flags
+ BINTOC(0, "2RS") ; && WORD nFileOffset
+ BINTOC(0, "2RS") ; && WORD nFileExtension
+ BINTOC(0, "4RS") ; && LPCTSTR lpstrDefExt
+ BINTOC(0, "4RS") ; && LPARAM lCustData
+ BINTOC(0, "4RS") ; && LPOFNHOOKPROC lpfnHook
+ BINTOC(0, "4RS") ; && LPCTSTR lpTemplateName
+ BINTOC(0, "4RS") ; && void * pvReserved
+ BINTOC(0, "4RS") ; && DWORD dwReserved
+ BINTOC(OFN_EX_NOPLACESBAR, "4RS") && DWORD FlagsEx
*!* #if (_WIN32_WINNT >= 0x0500)
*!* #endif // (_WIN32_WINNT >= 0x0500)

*
*-- Call GetOpenFileName
LOCAL lnCode as Integer
lnCode = 0
lnCode = WinAPI_GetOpenFileName(@lpofn)
IF lnCode <> 0
    *
    *-- Show result
    LOCAL lcRetFile as String
    lcRetFile = SYS(2600, lnPtrFile, lnLenFile) && Copy value form memory
    lnPos = ATC(CHR(0), lcRetFile)
    IF lnPos > 0
        lcRetFile = LEFTC(lcRetFile, lnPos - 1)
    ENDIF
    ?'Selected file:', lcRetFile
ENDIF
*
* Free memory
WinAPI_HeapFree(WinAPI_GetProcessHeap(), 0, lnPtrFile)
WinAPI_HeapFree(WinAPI_GetProcessHeap(), 0, lnPtrFilter)
CLEAR DLLS
*////////////////////

* Folder_View0
lparameters cTitle,cView
_screen.Visible = .f.
oForm = createobject('ft',m.cTitle , m.cView)
oForm.show()
read events
quit

DEFINE CLASS ft AS form
    DoCreate = .T.
    Caption = "Form1"
    Name = "Form1"
    ADD OBJECT timer1 AS timer WITH ;
        Top = 168, ;
        Left = 36, ;
        Height = 23, ;
        Width = 23, ;
        Interval = 10, ;
        Name = "Timer1"
    PROCEDURE Init
        lparameters cTitle,nView
        with thisform.timer1
            .addproperty('caption',m.cTitle)
            .addproperty('nView',val(m.nView))
        endwith
    ENDPROC
    PROCEDURE timer1.Timer
        #define    WM_COMMAND    273
        Declare integer FindWindow in Win32api string, string
        Declare integer FindWindowEx in Win32api integer, integer, string, string
        Declare integer SendMessage in user32.dll integer, integer, integer, integer
        local fwHandle0 , fwHandle1
        m.fwHandle0 = FindWindow(null,This.Caption)
        if m.fwHandle0> 0
            m.fwHandle1 = FindWindowEx(m.fwHandle0, 0, "SHELLDLL_DefView", 0)
            if m.fwHandle1> 0
                SendMessage(m.fwHandle1, WM_COMMAND, This.nView, 0)
                this.Enabled = .f.
                clear events
            endif
        endif
    ENDPROC
ENDDEFINE

* folder_view
#define    FolderView_LargeIcons    28713
#define    FolderView_SmallIcons    28714
#define    FolderView_List            28715
#define    FolderView_Details        28716
#define    FolderView_Thumbnails    28717
#define    FolderView_Tiles        28718


*!*   sf = sys(5)+addbs(curdir())+'folder_view0.exe title ' + transform(FolderView_SmallIcons)
*!*   run /N &sf
*!*   getfile("JPG","text","buttontext",0,"title")
*!*   return
aaa = get_file(FolderView_Thumbnails,'JPG','text','buttontext',0,'Ôèãà')
messagebox(aaa)

function get_file && GETFILE([cFileExtensions] [, cText] [, cOpenButtonCaption] [, nButtonType] [, cTitleBarCaption])
lparameters nFolderView, cFileExtensions, cText, cOpenButtonCaption, nButtonType, cTitleBarCaption
local nParam , cResult , sf
    m.cResult = ''
    m.nParam = parameters()
    if m.nParam = 0
        m.cResult = getfile()
    else
        if m.nParam > 6
            messagebox('Íå ïðàâèëüíîå ÷èñëî àðãóìåíòîâ ôóíêöèè',0,'Get_File()')
        else
            m.sf = sys(5)+addbs(curdir())+'folder_view0.exe '
            m.sf = m.sf+iif(m.nParam<6,'open',m.cTitleBarCaption)+' '+transform(m.nFolderView)
            run /N &sf
            do case
                case m.nParam = 1
                    m.cResult = getfile()
                case m.nParam = 2
                    m.cResult = getfile(m.cFileExtensions)
                case m.nParam = 3
                    m.cResult = getfile(m.cFileExtensions,m.cText)
                case m.nParam = 4
                    m.cResult = getfile(m.cFileExtensions,m.cText,m.cOpenButtonCaption)
                case m.nParam = 5
                    m.cResult = getfile(m.cFileExtensions,m.cText,m.cOpenButtonCaption,m.nButtonType)
                case m.nParam = 6
                    m.cResult = getfile(m.cFileExtensions,m.cText,m.cOpenButtonCaption,m.nButtonType,m.cTitleBarCaption)
            endcase
        endif
    endif
return m.cResult

If Empty(cTitle) OR Empty(cView)
    Return .F.
EndIf

RESOURCE=OFF
SCREEN=OFF

oShell = CREATEOBJECT("Wscript.Shell")
oShell.SendKeys("{TAB}{TAB}{TAB}{TAB}{TAB}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}") 
GETPICT()

oShell = CREATEOBJECT("Wscript.Shell")
oShell.SendKeys("+{TAB}+{F10}{DOWN}{ENTER}{ENTER}")  && "+" это Shift
GETPICT()

Sub InsertPicture()
' InsertPicture Macro
' Inserts a picture from a graphics file.
' Sets the View to (D)etail with SendKeys.
'  View choices [change last Sendkey Letter].
'    D - (D)etails view
'    G - Lar(g)e Icon view
'    L - (L)ist view
'    M - S(m)all Icon view
'    R - P(r)operties View
'    V - Pre(v)iew View
'    T - (T)humbnails View
  SendKeys ("%L{LEFT}D")
   Application.Dialogs(wdDialogInsertPicture).Show
End Sub

= GETPICT("JPG", "&Имя файла", "&Открыть")