specify file paths instead of using object browsers

[Willardio]

I would like to adjust the following snippet to skip browsing to folders and just use a set location:

Dim oShell As Object
  Set oShell = CreateObject("Shell.Application")
  Dim fsSaveFolder As Object
  Set fsSaveFolder = oShell.BrowseForFolder(0, "Please Select a Save Folder:", 1) '<<<<<<<<<<<<<<this should be "C:\"
  If fsSaveFolder Is Nothing Then Exit Sub
  ' Note:  BrowseForFolder doesn't add a trailing slash

  ' Ask the user to select an Outlook folder to process
  Dim olPurgeFolder As Outlook.MAPIFolder
  Set olPurgeFolder = Outlook.GetNamespace("MAPI").PickFolder '<<<<<<<<<<<<<this should be the subfolder "reports" in my outlook inbox
  If olPurgeFolder Is Nothing Then Exit Sub

as always, all suggestions are appreciated

~~Willardio