FIND CURRENT DIRECTORY
 

Find Current Directory:

On a CD I have 4 files. AUTORUN.INF, EXCEL1.VBS, SETUP.ICO, and
INSTALL.XLS. The code is shown below.
When I insert the CD, I want the CD to automatically open and then
automatically open INSTALL.XLS.
When I insert the CD, this error message appears: €˜Install.xls could not be
found.
Question: How do I show in the code that the Install.xls file is on the CD?
What code do I need to add to EXCEL1.VBS to show the CD Current Directory ?
See Below:

1. AUTORUN.INF
[AutoRun]
OPEN=EXCEL1.VBS
OPEN=SETUP.ICO


2. EXCEL1.VBS
Dim objXL
Set objXL = WScript.CreateObject("Excel.Application")
objXL.Visible = TRUE
objXL.Workbooks.open("Install.xls")


3. SETUP.ICO

4. INSTALL.XLS

--
Larry

FIND CURRENT DIRECTORY
 

Hi,

What code do I need to add to EXCEL1.VBS to show the CD Current
Directory ?

Try: Application.Path (works in vba)

Regards,
Gijs