Bob,
Since I have Win95 setup a little different than most users, let me
preface my question by explaining that I use a Win95 setup similar to
the old Norton Desktop - with shortcuts to folders of shortcuts, which
lead to other folders of shortcuts, etc.
Now the question:
Do you have any idea what the macro language command line would be to
open up one of the shortcut folder links? I have a shortcut folder with
several other shortcuts to reference works, which is inside yet another
shortcut folder. The entire link file name is -
C:\Win95\Writer's Block\References.lnk
I know that it will require explorer.exe in the command line, but I've
tried every switch I can think of (including the registry entry command
line for OPEN), but it doesn't seem to like anything more than just the
executable in the line.
This is what the macro itself looks like right now:
Public Sub MAIN()
Dim INIFile$
Dim SectionName$
Dim Keyword1$
Dim Maxchar
Dim Pgm$
Dim Dir_$
Dim Caption_$
Dim Class_
Dim Warning$
On Error GoTo -1: On Error GoTo Bye
rem INIFile$ = " " 'if no path, default is the Windows directory
SectionName$ = "Program" 'this will be the INI file [section name]
Keyword1$ = "Path" 'this will be the INI file keyword = value
Maxchar = 252 'maximum string length
If WordBasic.[Right$](Pgm$, 1) "\" Then
Pgm$ = Pgm$ + "\"
End If
Dir_$ = Pgm$
Pgm$ = "c:\Win95\Explorer.exe"
If WordBasic.[WW2_Files$](Pgm$) = "" Then
GoTo Bye
End If
If WordBasic.SelType() = 2 Then
While Len(WordBasic.[Selection$]()) > 50
WordBasic.ShrinkSelection
Wend
WordBasic.EditCopy
End If
WordBasic.Shell Pgm$, 1
Caption_$ = "Writer's Block References"
Class_ = 0
GoTo Done
Bye:
Warning$ = "Cannot find or run " + Pgm$
WordBasic.MsgBox Warning$
Done:
End Sub
--------------------------
Any suggestions on how to get this puppy working? I know the macro
works (I use it on several other executables, and it works as above to
open up Explorer itself).
--- Adam
adam.alsop@juno.com
___
* UniQWK v4.2 * The Windows Mail Reader
--- LoraBBS-OS/2 v2.40pl59+
---------------
* Origin: Miles Enterprises * 33.6k * 805-264-0200 * (1:2004/102.0)
|