vbaでディレクトリを文字列として定義する方法

Question

ディレクトリを設定する必要がありますが、変数を変更する必要があります。以下の例では ですが、私は自分のEmail subjectの名前でFolderを作成したいと思います。そして、作成したフォルダへのパスを設定します。
以下のスクリプトでは、作成したフォルダにメールを保存しません。助けてくれませんか？

N1 = oMail.Subject 
On Error Resume Next 
MkDir "C:\Users\meti\Desktop\E" & N1 
On Error GoTo 0 

sPath = "C:\Users\meti\Desktop\E" & N1 
Debug.Print sPath & sName 
oMail.SaveAs sPath & sName, olMSG 

Answer 1

ありがとうございました。より良い方法があれば、私にあなたのコメントをお願いします。私はそれを感謝します。

On Error Resume Next 
MkDir "C:\Users\mwx391225\Desktop\Email" & Format(Now, "dd-mmm-yy h-mm") 
On Error GoTo 0 

sPath = "C:\Users\mwx391225\Desktop\Email" & Format(Now, "dd-mmm-yy h-mm") & "\" 
Debug.Print sPath & sName 
oMail.SaveAs sPath & sName, olMSG