Shell problems in windows 7

[James Bowyer]

I have the following code which works fine in XP but not in windows 7:

ChDrive [tboxdrive]
Dim openfolder As String
openfolder = "explorer.exe " & [tboxdrive] & [tboxfolderpath] & "\" & [CustomerSelect] & "\" & [Site] & " - " & [tboxjobno]

Shell (openfolder)

What do I need to change to make it run in Windows 7? And if I change it, will it then work in XP? Or will I have to have 2 seperate functions, one for Windows 7 users, and one for XP users (not a massive problem, I already have a table which Identifies the computer, I'd just need to manually state whether the computer is Win7 or XP).

Obviosuly one size fits all answer is preferable!

[James Bowyer]

Anyone? Other sites suggest shellexecute, but that doesn't seem to work either.

The excel shell which is written virtually identically works in Windows 7 though, oddly enough, so it must just be a problem with Explorer.

[James Bowyer]

I sort of fixed it using:

ChDrive [tboxdrive]
Dim openfolder As String
openfolder = [tboxdrive] & [tboxfolderpath] & "\" & [CustomerSelect] & "\" & [Site] & " - " & [tboxjobno]

Application.FollowHyperlink openfolder

However it now displays the whole file path in the window, which is something I'd rather avoid if at all possible.

Is there any way to do this using the Application.fol lowhyperlink method, or is that only possible with shell and explorer.exe?

[James Bowyer]

Is there any other way to launch excel in windows 7 other than the Application.Fol lowhyperlink option?