Cドライブの "specialfolders（16）"からXYZフォルダへのパスを変更するにはどうすればよいですか？

Question

以下のコードは、Outlookの[選択済み]メールの添付ファイル[]を[マイドキュメント]フォルダに保存します。

sFolderPath = objWSCript.specialfolders(16)の場所をCドライブの「新規フォルダ」フォルダに変更する方法を教えてください。

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 

Answer 1

本当に？新しいフォルダという名前のフォルダがありますか？そしてそれはと呼ばれる別のフォルダにありますすべてのフォルダ？それは本当にケースかどう少年ああ....とにかく

、その後、あなただけ変更する必要があります：

sFolderPath = sFolderPath & "\New Folder\" 

...へ...

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

---

ボーナスとして、チェックアウト：

• Getting Organized: Great Tips for Better File Names

• Best practices for file naming