Showing smartphone folder takes long time

[00Harry]

Hello,
The code below takes about 1 minute to find the folder on the smartphone. If I start the process again, the page comes up immediately. If I disconnect the smartphone from the computer and reconnect it again, it takes about 1 minute again for the folder to be found on the smartphone. Why is that? The code was not created by me. I know a bit about VBA, but I'm not an expert at it. Maybe someone knows how to improve it.

Thanks for the help. Greeting Harry

Function GetPhoneCLSID(name As String)
Set objShellApp = CreateObject("Shell.Application")
Set objFolder = objShellApp.Namespace("shell:MyComputerFolder")

For Each objItem In objFolder.Items()
If InStr(1, objItem.name, name, vbTextCompare) > 0 Then
GetPhoneCLSID = objItem.Path
End If
Next
End Function


Sub a()
Shell "explorer " & GetPhoneCLSID("Galaxy") & "\Phone", vbNormalFocus 'CopyGalaxy
End Sub

 

[Fluff]

Welcome to the MrExcel Message Board!

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at: Showing smartphone folder takes long time
There is no need to repeat the link(s) provided above but if you have posted the question at other places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.

 

[00Harry]

Sorry, I didn't took notice about.
I took the same question here too:

Showing smartphone folder takes long time

Hello, The code below takes about 1 minute to find the folder on the smartphone. If I start the process again, the page comes up immediately. If I disconnect the smartphone from the computer and reconnect it again, it takes about 1 minute again for the folder to be found on the smartphone. Why...

chandoo.org