How to Find the Path of a Program Using WordBasic |
Q120772
This article describes how you can use a WordBasic macro to return the path of a program that is currently running.
The following macro example identifies the path for Microsoft Excel. You can substitute any valid Windows executable filename, such as WINWORD, MSACCESS, or POWERPNT in place of EXCEL in the following example.
Declare Function GetModuleFileName Lib "Kernel"(hModule As Integer,
lpFilename As String, nSize As Integer) As Integer
Declare Function GetModuleHandle Lib "Kernel"(lpModuleName As String)
As Integer
Sub MAIN
hModule = GetModuleHandle("EXCEL.EXE")
Length = GetModuleFileName(hModule, Buffer$, 255)
MsgBox "Path and Filename: " + Buffer$
End Sub
WARNING: ANY USE BY YOU OF THE CODE PROVIDED IN THIS ARTICLE IS AT YOUR OWN
RISK. Microsoft provides this macro code "as is" without warranty of any
kind, either express or implied, including but not limited to the implied
warranties of merchantability and/or fitness for a particular purpose.
"Microsoft Windows Software Development Kit"
Additional query words: winword2 winword 6.0, SDK word6
Keywords : kbofficeprog
Issue type :
Technology :
|
Last Reviewed: March 28, 2000 © 2001 Microsoft Corporation. All rights reserved. Terms of Use. |