Как отправить explorer-у сигнал обновить содержимое папки? - VB

Формулировка задачи:

Здравствуйте ! Собственно, интересует как сделать F5 папке цивилизованными способами. Иногда содержимое открытого окна (или рабочего стола) не изменяется, пока не обновишь вручную. Спасибо за ответы.

Решение задачи: «Как отправить explorer-у сигнал обновить содержимое папки?»

textual
                            Листинг программы 
                        

                            Private Declare Sub SHChangeNotify Lib "Shell32.dll" (ByVal wEventId As Long, ByVal uFlags As Long, ByVal dwItem1 As Long, ByVal dwItem2 As Long)
Const SHCNE_ASSOCCHANGED As Long = &H8000000
Const SHCNF_IDLIST = &H0
 
Private Sub Command1_Click()
SHChangeNotify SHCNE_ASSOCCHANGED, SHCNF_IDLIST, 0&, 0&
End Sub
                        