CopyFile()もMoveFileEX()もアクセス拒否されるよ…
なんでじゃ
Perlでファイルコピーする方法キボーリ
system("cp $old $new") 以外でな