Opening Folder with VBA and defining the window size?

[jmpatrick]

Here's my current code:

Private Sub cmdOpenFolder_Click()
Dim FolderPath As String
FolderPath = Me.SE_SubLotFolderPath.Value
Call Shell("explorer.exe " & "\\GLC-SERVER\Pulte\" & FolderPath, vbMaximizedFocus)
End Sub

I'm trying define the size of the explorer window. As it is now, the window opens to fill the screen. Most of the folder contain just a few files. Can I set the size of the window?

 

[Micron]

Try vbNormalFocus (original size and position) or vbNormalNoFocus (most recent size and position). For the latter, make sure the last size wasn't maximized when testing. Could also check if there is an API for actually setting the size, but probably more trouble than it's worth.

 

[jmpatrick]

Try vbNormalFocus (original size and position) or vbNormalNoFocus (most recent size and position). For the latter, make sure the last size wasn't maximized when testing. Could also check if there is an API for actually setting the size, but probably more trouble than it's worth.

Works great. Thanks!