Refresh destination folder

[2Took]

Macro saves Excel file to a folder, but in order to see that file saved in File Explorer -- have to hit refresh button on it.

How to refresh destination folder via VBA?

 

[rlv01]

One workaround is to open a new instance of Windows explorer after you do the save, using VBA.

Option Explicit

'Need this at top of module:
#If VBA7 Then
   Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr
#Else
   Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#End If

'Open explorer at specified folder
Sub ExploreFolder(path)
    ShellExecute 0, "open", path, 0, 0, 1
End Sub

Sub Demo()
    ExploreFolder Environ("Temp")
End Sub

 

[2Took]

Where do I tell it the folder I need opened?
Do I need both of those subs?

 

[rlv01]

1. The variable "path".
2. No, just Sub ExploreFolder

 

[2Took]

1. The variable "path".
2. No, just Sub ExploreFolder

1. so, to replace "path" just in this

Sub ExploreFolder(path)

line of code, leave word "path" in the

ShellExecute 0, "open", path, 0, 0, 1

?
And it will close if that folder is already opened, then reopen it?

 

[rlv01]

Use it as per example below:

Sub Example()
    Dim MyPath As String
    
    MyPath = "C:\WINDOWS\system32"        'valid folder name
    
    ExploreFolder MyPath
End Sub