Opening Windows Explorer with VB ? 1

[royalcheese]

Hi all I have this code

Im trying to open the path "C:\Program Files\File Capture\Outbox-" (then a named folder say 'John') and open it in a windows explorer.

the Code below bombs with a run time error
"Method 'Run' of Object IwshShell3 field"

HLink = "C:\Program Files\File Capture\Outbox-" & sName & "\"
CreateObject("WScript.Shell").Run HLink

Any help in advance mucho thanks.

Chriso

 

[wraygun]

Hi Chriso!

Here is one way to accomplish your goal:

1) Make these declarations.

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_ShowNormal = 1

2) You can then use this function to open a folder or file.

Function OpenFolder(myPath As String, myFileName As String)
   OpenFolder = ShellExecute(Me.hwnd, "Open", myFileName, vbNullString, myPath, SW_ShowNormal)
End Function

3) Usage would be something like the following:

To open a folder (i.e. the Windows Folder):

OpenFolder "C:/windows", ""

To open a specific file in it's default application:

OpenFolder "C:\Documents and Settings\Dad\My Documents\", "MyAVI3.avi"

I hope this helps.

Best regards,
Harold

***You can't change your past, but you can change your future***

 

[royalcheese]

Heloo to you

Thanking you for answer

This is good .

Many Thanks

Chris o

 

[wraygun]

You're quite welcome!

***You can't change your past, but you can change your future***

 

[wildfire2323]

I tried to implement the same code in my program and it does not recognize (Me.hwnd). Can you please let me know what this stands for in your program or what I should change it to in mine? Other wise the code appears to be fine.

Thanks

P.S. Using VB 2005 if it makes a difference.

OpenFolder = ShellExecute(Me.hwnd, "Open", myFileName, vbNullString, myPath,

 

[johnwm]

VB2005 = VB.NET = forum796

This forum is for VB5 & 6

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first.
'If we're supposed to work in Hex, why have we only got A fingers?'
Drive a Steam Roller

 

[HughLerwill]

So something that will work in VB6 and VB2005!

Shell("Explorer C:\MyFolder", vbNormalFocus)

regards Hugh