How to change the path from "specialfolders(16)" to an XYZ folder on C drive?

Question

The code below saves the attachments [to "My Documents" folder] of "selected" emails in Outlook.

Can you please advise how to change the location of the sFolderPath = objWSCript.specialfolders(16) to a "New Folder" folder on C drive ?

Option Explicit

Sub SaveAttchFiles()

Dim olMail As MailItem
Dim olAtchs As Attachments
Dim olSelection As Selection
Dim iCount As Long, i As Long
Dim sFolderPath As String, sFilePath As String, sDeletedFiles As String
Dim objWSCript As Object

On Error Resume Next

Set objWSCript = CreateObject("WSCript.Shell")

sFolderPath = objWSCript.specialfolders(16)

Set olSelection = ActiveExplorer.Selection

sFolderPath = sFolderPath & "\New Folder\"

For Each olMail In olSelection

Set olAtchs = olMail.Attachments
iCount = olAtchs.Count
sDeletedFiles = ""

If iCount > 0 Then
For i = iCount To 1 Step -1
sFilePath = sFolderPath & olAtchs.Item(i).FileName
olAtchs.Item(i).SaveAsFile sFilePath

Next i
End If


Next olMail

Door:

Set objWSCript = Nothing
Set olAtchs = Nothing
Set olSelection = Nothing

End Sub

..as in, you want to **create** a new folder, or is the folder **called** "New Folder"? — ashleedawg, Dec 28 '17 at 11:23
@DarrenBartrup-Cook "dialog box"? I want to simply save them in e.g.drive C:\All Folders\New Folder — Alien_Explorer, Dec 28 '17 at 11:50
In that case it's just as @ACatInLove commented. Just thought I'd throw the idea out there of being able to pick the folder if it's likely to be a different folder each time. — Darren Bartrup-Cook, Dec 28 '17 at 11:55

score 4 · Accepted Answer · answered Dec 28 '17 at 11:54

4

Really? You have a folder called New Folder? And it's in another folder called All Folders? boy oh boy....

Anyhow, if that's really the case then you only need to change:

sFolderPath = sFolderPath & "\New Folder\"

...to...

sFolderPath = "C:\All Folders\New Folder\"

As a bonus, check out:

answered Dec 28 '17 at 11:54

ashleedawg

20,365
9
72
105

2

Haha (it was a dummy example - but then you knew that anyway) Worked perfectly mate. Much obliged! – Alien_Explorer Dec 28 '17 at 11:57
3

Oh thank goodness. No I didn't know that. People never cease to amaze. For all I know, you're changing the folder name right _now_! :-) Thanks. *--John Doe* – ashleedawg Dec 28 '17 at 11:59
2

:D "People never cease to amaze." <<< I agree completely. Thanks and Happy New Year! – Alien_Explorer Dec 28 '17 at 12:07

How to change the path from "specialfolders(16)" to an XYZ folder on C drive?

1 Answers1