Sub フォルダーの新規作成()
    
    MkDir "E:\営業所"
        
End Sub