Set fol = fsn.GetFolder("C:\ORDER\")
 Set fls = fol.Files


For Each fl In fls
if fl.ShortName like "1234_*.С4" then
'------------------------------

PostMessage Hwnd, WM_COMMAND,  57601 ,  0 

'''---------------------------------------------------------
Do
hWndOrd = FindWindow(vbNullString, "Open Part")
hEd = FindWindowEx(hWndOrd,  0 , "ComboBoxEx32", vbNullString)
 Loop While hEd =  0 
'------------------------------------------------------------------------
SendMessageByString hEd, WM_SETTEXT,  0 &, Fl.Name   ' Выбрать файл
PostMessage hWndOrd, WM_COMMAND,  1015 ,  0                  'Компиляция файла
'--------------------------------------------------------------------
hWndSdex = FindWindow(vbNullString, "SDEX_3.61")
'-------------------------------------------------------------------
If fl.Name Like "*.rep" ...................Then        '???-Нужна помощь!!!! 
PostMessage hWndSdex, WM_COMMAND,  1 ,  0              'Закрыть окно
end if
'------------------------------------------------------------------
end if
next

Private Sub cmdCompile_Click()
Dim hWnd As Long
Dim ord As Long
Dim hWndCrOrd As Long
Dim hWndUsprmng As Long
Dim hIdbExit As Long
Dim hEdit As Long
Dim hLstBox As Long
Dim hWndSDEX As Long
Dim fsn As New FileSystemObject
Dim fol As Folder
Dim fls As Files
Dim fl As File
Dim flr As File
Dim fld As String
Dim Start As Long
Dim Finish As Long
Dim TotalTime As Long
fld = Sheet1.Cells( 15 ,  8 )
Dim V
TotalTime =  3 
ord = Cells( 3 ,  8 )
'------------------------------------------------------------------------------
Set fol = fsn.GetFolder("C:\Salvagnini\syscon\S4_794\production\" & fld & "\")
Set fls = fol.Files
''===========================================================
  Do
hWnd = FindWindow(vbNullString, "SysConShell")
   Loop While hWnd =  0 
PostMessage hWnd, WM_COMMAND,  32779 ,  0 
'''---------------------------------------------------------
Do
hWndUsprmng = FindWindow(vbNullString, "User program management")
'----------------------------------------------------------
hLstBox = FindWindowEx(hWndUsprmng,  0 , "ListBox", vbNullString)    'директории
SendMessageByString hLstBox, WM_SETTEXT,  0 &, fld                    'ПРОБЛЕМА!!!
'--------------------------------------------------------

hEdit = FindWindowEx(hWndUsprmng,  0 , "Edit", vbNullString)           'файлы
SendMessageByString hEdit, WM_SETTEXT,  0 &, fl.Name
'---------------------------------------------------------------