Command to send active document's shortcut to a folder

#1 July 2nd 04, 08:13 AM

Is there a command (probably a DOS command) that I could run through VBA
that would send the active Word document to a particular folder as a
shortcut? Let's say the folder is: C:\Documents\Work

The manual equivalent of this would be to add a shortcut to the Work
folder to the Windows\SendTo folder, and go to the active document's
icon in its folder and click on Send to. But it would be neat to
automate this.

Also, would there be a command I could run through VBA that would delete
the shortcut of the active document from the C:\Documents\Work folder?

You see how I'm trying to come up with my own equivalent of Word's Work
menu.

I'm working with Word 97, on Windows 98.

Thanks,
Larry

#2 July 2nd 04, 04:52 PM

I already have this set up as part of the Send To menu. In the Send To
menu I have a shortcut to a .vbs file which contains the below code.
When I click on that item in the Send To menu, it sends a shortcut of
the current file to the named folder. It works fine. But what I want
to do is automate this through VBA, so that I can do the same thing from
the active document in Word, that is, run a macro that will send a
shortcut of the active document to the Work folder.

Dim fso, Package, PkgName, Destination, link, Top, I

Destination = "C:\Documents\Work"

Set shell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Top = WScript.Arguments.Count
For I = 0 To (Top-1)
Package = WScript.Arguments.Item(I)
PkgName=fso.GetBaseName(Package)
Set link = shell.CreateShortcut(Destination&"\"&PkgName&".lnk ")
link.TargetPath = (Package)
link.Save
Next
' MsgBox "Shortcuts to the file(s) or folder(s) are being created
at:"&vbCRLF&Destination
Set shell = Nothing
Set fso = Nothing

Larry wrote:

Is there a command (probably a DOS command) that I could run through
VBA that would send the active Word document to a particular folder
as a shortcut? Let's say the folder is: C:\Documents\Work

The manual equivalent of this would be to add a shortcut to the Work
folder to the Windows\SendTo folder, and go to the active document's
icon in its folder and click on Send to. But it would be neat to
automate this.

Also, would there be a command I could run through VBA that would
delete the shortcut of the active document from the C:\Documents\Work
folder?

You see how I'm trying to come up with my own equivalent of Word's
Work menu.

I'm working with Word 97, on Windows 98.

Thanks,
Larry

#3 July 2nd 04, 06:34 PM

I cancelled these posts but they're still here.

#4 July 2nd 04, 08:27 PM

May as well just leave them. No one is responding anyhow! Cancel won't
always work. The site must choose to process it.

--
Thanks or Good Luck,
There may be humor in this post, and,
Naturally, you will not sue,
should things get worse after this,
PCR

"Larry" wrote in message
...
| I cancelled these posts but they're still here.
|
|
|

#5 July 2nd 04, 08:37 PM

PCR,
I was gonna say tis nice to see you over here until I realised the OP had
multi-posted, lol

Ah well, tis nice to see you anyway g

--

Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

"PCR" wrote in message
...
May as well just leave them. No one is responding anyhow! Cancel won't
always work. The site must choose to process it.

--
Thanks or Good Luck,
There may be humor in this post, and,
Naturally, you will not sue,
should things get worse after this,
PCR

"Larry" wrote in message
...
| I cancelled these posts but they're still here.
|
|
|

#6 July 2nd 04, 09:09 PM

#7 July 5th 04, 01:40 AM

hehe, depends on how much the fare costs ;o)

I've actually just been over the win98 NG and boy has it changed (I couldn't
find so much as one post from the idiots that used to post there, lol (and
no, I didn't mean the MVP's g)).

--

Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

"PCR" wrote in message
...
I am not a traveling man. I DON'T want to run into rogues & vagabonds!
However, I do hope you fare well, Burn.

--
Thanks or Good Luck,
There may be humor in this post, and,
Naturally, you will not sue,
should things get worse after this,
PCR

"Steven Burn" wrote in message
...
| PCR,
| I was gonna say tis nice to see you over here until I realised the OP
had
| multi-posted, lol
|
| Ah well, tis nice to see you anyway g
|
| --
|
| Regards
|
| Steven Burn
| Ur I.T. Mate Group
| www.it-mate.co.uk
|
| Keeping it FREE!
|
|
| "PCR" wrote in message
| ...
| May as well just leave them. No one is responding anyhow! Cancel
won't
| always work. The site must choose to process it.
|
| --
| Thanks or Good Luck,
| There may be humor in this post, and,
| Naturally, you will not sue,
| should things get worse after this,
| PCR
|
| "Larry" wrote in message
| ...
| | I cancelled these posts but they're still here.
| |
| |
| |
|
|
|
|

#8 July 5th 04, 01:57 AM

#9 July 5th 04, 01:59 AM

#10 July 5th 04, 02:08 AM

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
My Documents	Menno Hershberger	General	5	June 30th 04 07:47 PM