>>432
とりあえず見つけた間違いが2箇所だけど、これで動くかどうかまでは未検証

正 MyfolderPath = "C:\Users\ユーザ名\Desktop\test"
誤 My folderPath = "C:\Users\ユーザ名\Desktop\test"

正 .AllowMultiSelect = False
誤 AllowMultiSelect = False