If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Command to send active document's shortcut to a folder
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
|
|||
|
|||
Command to send active document's shortcut to a folder
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
|
|||
|
|||
Ignore this thread. I've reposted elsewhere
I cancelled these posts but they're still here.
|
#4
|
|||
|
|||
Ignore this thread. I've reposted elsewhere
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
|
|||
|
|||
Ignore this thread. I've reposted elsewhere
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
|
|||
|
|||
Ignore this thread. I've reposted elsewhere
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. | | | | | | | | | | |
#7
|
|||
|
|||
Ignore this thread. I've reposted elsewhere
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
|
|||
|
|||
Ignore this thread. I've reposted elsewhere
ROFLMAO!...... I wasn't talking about you guys!
-- Regards Steven Burn Ur I.T. Mate Group www.it-mate.co.uk Keeping it FREE! "PCR" wrote in message ... microsoft.public.win98.gen_discussion, you mean? You used to think we were idiots!!??? -- 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 ... | 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. | | | | | | | | | | | | | | | | | | | | | |
#9
|
|||
|
|||
Ignore this thread. I've reposted elsewhere
microsoft.public.win98.gen_discussion, you mean? You used to think we
were idiots!!??? -- 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 ... | 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. | | | | | | | | | | | | | | | | | | | | | |
#10
|
|||
|
|||
Ignore this thread. I've reposted elsewhere
LOL
IMO, the idiots have moved to XP! N -----Original Message----- ROFLMAO!...... I wasn't talking about you guys! -- Regards Steven Burn Ur I.T. Mate Group www.it-mate.co.uk Keeping it FREE! "PCR" wrote in message ... microsoft.public.win98.gen_discussion, you mean? You used to think we were idiots!!??? -- 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 ... | 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. | | | | | | | | | | | | | | | | | | | | | . |
|
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
My Documents | Menno Hershberger | General | 5 | June 30th 04 07:47 PM |