Open Website and (3) Folders using a Command Button

[O177812]

Hi,

I would like to create a CMD button that when clicked opens a website and (3) File Explorer folders and a MS Word doc.
I have scoured the internet but I am at a loss.

Website: www.Overstock.com

Folder locations:
1. P:\word documents\INW Group\WORKING\ARCHIVE
2. P:\word documents\INW Group\WORKING\NEXT PO
3. P:\word documents\INW Group\WORKING\PROCESS

WORD DOC: P:\word documents\INW Group\WORKING\Shipping_Invoicing Instructions.docx

Any help or advice would be greatly appreciated!

 

[Colo]

Give this try, then if it works as intended, just apply "test" to a command button.

Sub test()
    Const CommonPath As String = "D:\word documents\INW Group\WORKING\"

    'Open Web
    Dim HPurl As String
    HPurl = "www.Overstock.com"
    'By Chrome ok?
    CreateObject("WScript.Shell").Run ("chrome.exe -url " & HPurl)

    'Open Folders
    Dim arr, folder
    arr = Array("ARCHIVE", "NEXT PO", "PROCESS")
    For Each folder In arr
        Call openFolders(CommonPath & folder)
    Next

    'Open Word Doc
    Dim wdapp As Object, wddoc As Object
    Set wdapp = CreateObject("Word.Application")
    wdapp.Visible = True
    Set wddoc = wdapp.Documents.Open(Filename:=CommonPath & "Shipping_Invoicing Instructions.docx")
End Sub

Sub openFolders(ByVal path As String)
    Dim fso As New FileSystemObject
    Shell "C:\Windows\Explorer.exe " & path, vbNormalFocus
End Sub