Terry Kreft's Shellwait outdated?

[GraeagleBill]

I've been using Terry Kreft's Shellwait for years, but now it doesn't pause the VBA code path as in the past. Is it outdated? Someone posted an update referring to a change regarding 64bit calls, which I tried, but that didn't resolve my issue.

http://access.mvps.org/access/api/api0004.htm

My code is, I think, about as simple as can be: (Msgbox statement fires immediately)

Option Compare Database
Option Explicit
Dim ShellString As String
Dim ShellRC As Variant


Public Sub ImageLib()
'Let the user view and/or update TMS companion images as needed.
    ShellString = "c:\Windows\Explorer.exe " & TMSClientPath & TMSClientImages
    ShellWait (ShellString)
    MsgBox "back from shellwait"
End Sub

[June7]

I tested this using Windows10 64-bit and Access 32-bit. Call opens Explorer - it does not pause. MsgBox opens before Explorer

Then I tried with opening Excel file and it does pause.

[GraeagleBill]

Not sure what to conclude. Maybe some quirk relating to a system process versus what amounts to a 3rd party app?

[Welshgasman]

Have you tried https://learn.microsoft.com/en-us/an...-compatibility as that states the code works on 32 or 64 bit?

[GraeagleBill]

Yes, I copied the version of code Rick posted at Oct 20, 2020, 5:48 AM, but it too fails to wait until Explorer closes. Below is my code that calls Shellwait.

Option Compare Database
Option Explicit
Dim ShellString As String
Dim ShellRC As Variant


Public Sub ImageLib()


'Give the user the opportunity to view and/or update the TMS companion image library
ShellString = "c:\Windows\Explorer.exe " & TMSClientPath & TMSClientImages
Call ShellWait(ShellString, 1)


MsgBox "Debug: We've returned from Explorer"
'Update the DLM of the image library so we'll know whether any folder change occurred
dblImDLM = CDbl(FileDateTime(TMSClientPath & Replace(TMSClientImages, "\", "")))
    
End Sub

[Welshgasman]

Well my Explorer does not come to focus?. I only spotted it after the MSGBOX.