TIP: Click on subject to list as thread! ANSI
echo: ms_word
to: BOB DAVIS
from: ADAM ALSOP
date: 1997-01-25 00:00:00
subject: MACROS

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)

SOURCE: echomail via exec-pc

Email questions or comments to sysop@ipingthereforeiam.com
All parts of this website painstakingly hand-crafted in the U.S.A.!
IPTIA BBS/MUD/Terminal/Game Server List, © 2025 IPTIA Consulting™.