Explorer.exe в VBA команда Shell

Question

я столкнулся два варианта использования Shell из VBA:

Call Shell("Explorer.exe ""C:\Windows\system32\notepad.exe""",vbNormalFocus) и Call Shell("C:\Windows\system32\notepad.exe",vbNormalFocus). Они оба работают, поэтому я бы всегда старался использовать второй пример, он проще и понятнее. Может быть, я что-то упустил, но есть ли причина, по которой можно использовать первый пример?

Answer 1

Это объяснит, что он открывает 2 экземпляра блокнота, первый путь проводника, второй блокнот, затем вторая половина кода просматривает экземпляры блокнота и проводника и показывает соответствующие идентификаторы процесса. Можно видеть, что Проводник открыл версия соединяется с Windows Explorer, как процесс, а второй Notepad как процесс

Sub Shell_Example() 

Dim o1 As Long 
Dim o2 As Long 

'From Shell Help 
'Runs an executable program and returns a Variant (Double) representing the 
'program's task ID if successful, otherwise it returns zero. 

o1 = Shell("Explorer.exe ""C:\Windows\system32\notepad.exe""", vbNormalFocus) 
o2 = Shell("Notepad.exe") 

Debug.Print "Via Explorer : " & o1 & " - Via Notepad : " & o2 

Dim objServices As Object, objProcessSet As Object, Process As Object 

Set objServices = GetObject("winmgmts:\\" _ 
     & "." & "\root\CIMV2") 
Set objProcessSet = objServices.ExecQuery _ 
     ("Select Name, ProcessID FROM Win32_Process", , 48) 

For Each Process In objProcessSet 
    If Process.Name Like "*notepad.exe" Or Process.Name Like "*explorer.exe" Then _ 
     Debug.Print Process.Name, Process.ProcessID 
Next 

End Sub 

Мои результаты

Via Explorer : 9932 - Via Notepad : 3776

Мои процессы

explorer.exe 5240 
notepad.exe 4820 
notepad.exe 7092 
notepad.exe 1492 
notepad.exe 11296 
explorer.exe 2616 
notepad.exe 1276 
**explorer.exe 9932** 
**notepad.exe 3776** 
explorer.exe 11552 

Надеюсь, что это поможет.