'フォルダの移動
My.Computer.FileSystem.MoveDirectory( _
                    "C:\TEST", "C:\TEST_1", _
                    Microsoft.VisualBasic.FileIO.UIOption.AllDialogs, _
                    FileIO.UICancelOption.DoNothing)