I think that is not necessary function You can just use copyfile function and then kill the source path

private sub btnMove() 'Pathing ..... '...... Copyfile sourcePath ,DestinationPath Kill sourePath End sub