投稿日 | : 2004/08/23(Mon) 19:45 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re^3: 実行ファイルのパスの取得 |
下記を試して見て下さい。
Private Sub Command1_Click()
Dim colProcesses As Object
Dim objProcess As Object
Set colProcesses = GetObject("winmgmts:").ExecQuery("select * from win32_process")
For Each objProcess In colProcesses
Debug.Print objProcess.ExecutablePath
Next
Set colProcesses = Nothing
End Sub