åbne windows stifinder med vba

Prøv denne - jeg har taget den engelske forklaring med:

How to Open a Folder in Windows Explorer using VBA

ShellExecute() Windows API function can be called from a VBA macro to start another program under Microsoft Windows. Use ShellExecute() instead of Shell (a Visual Basic statement) or WinExec() (a Windows API function) to work around the following limitation of the latter commands.

With Shell and WinExec(), you cannot start an application by specifying a file name only. For example, the following Shell statement will fail:

Shell ("c:\temp")

Declare the API function

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

The following code will open the specified folder in Windows Explorer

Sub Open_ExplorerWindow()
ShellExecute 0, "open", "c:\temp", 0, 0, 1
End Sub

Det virker lige som det skal.
Mange tak for hjælpen.
Smider du lige et svar :-)

Gerne :-)

Hvis man må stjæle en tråd..

så hvis du vil have den til at hedde

filsti\mappe\ er det så en nem lille add in..i stedet for c:\temp