Hyperlink to a Folder 2

[Jack58]

Is it possible to create a link to Open a Folder?. Example;

c:/Download/Help

and display the contents in explorer?

I have found that a Hyperlink will only work linked directly to a file.


Thanks



Jack

 

[PHV]

Have you tried something like this ?
CreateObject("WScript.Shell").Run "c:/Download/Help"

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[Jack58]

I used the following code on a command Button,

CreateObject("WScript.Shell").Run "X:\Purchasing\Unfilled Report",

Received the following error,

Methodd "Run" of Object IWshSheel3' Failed


Hope this helps solve this problem.


Thanks again



Jack

 

[PHV]

Which version of Microsoft Scripting Runtime ?
(In a console window, type cscript //v)
Anyway, your folder name contains embedded space, so I'll try this:
Set sh = CreateObject("WScript.Shell")
sh.Run """X:\Purchasing\Unfilled Report"""
or
sh.Run Chr(34) & "X:\Purchasing\Unfilled Report" & Chr(34)

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[Jack58]

I am in Microsoft Access 2000 not the Script Editor. I am not to sure what you are referancing here. I have tryed both codes and either work.

Could it be that I need to enter the entire network address to the folder?

epsrv1\Purchasing\General


Thanks



Jack

 

[Jack58]

When I got the following code entered,

Private Sub Command6_Click()
Set sh = CreateObject("WScript.Shell")
sh.Run """X:\Purchasing\Unfilled Report"""

End Sub

I received a Compile Error Variable Not Defined,

Hope you can help me out


Thanks Again!!!



Jack

 

[Jack58]

I have even tryed the following with no luck,

Private Sub Command6_Click(SetSh As Variant)

Dim SetSh As Variant

SetSh = CreateObject("WScript.Shell")
sh.Run """X:\Purchasing\Unfilled Report"""

End Sub


Jack

 

[PHV]

And this ?
Private Sub Command6_Click(SetSh As Variant)
Dim Sh As Object
Set Sh = CreateObject("WScript.Shell")
Sh.Run """X:\Purchasing\Unfilled Report"""
End Sub


Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[Jack58]

When I enter the above code , then invoke the command button I am getting a long error message, stateing that the procedure does not match.

Not to sure what to do with this.

I am awarding you a star for all your help, and hoping you will continue to help on this project.



Jack

 

[PHV]

I am getting a long error message
You know what ? I think it would be helpful to post the whole error message...

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[Jack58]

Here is the error,

The Expression on Click you enteredas the event property setting produced the following error,
Procedure declaration does not match description of event or procedure having the same name.
* the Expression may not result in the name of a macro, the name of a used-defined fuction, or [Event prodedure]
*there may have been a error evaluating the fuction, event or Macro.

Hope this helps



Jack

 

[PHV]

My bad:
Private Sub Command6_Click()
Dim Sh As Object
Set Sh = CreateObject("WScript.Shell")
Sh.Run """X:\Purchasing\Unfilled Report"""
End Sub

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[Jack58]

Perfect

Thanks SO Much



Jack