梶さん、こんにちは。

＞どのような環境下で行いたいのか判らないですが、
＞元のJpegファイルのPathが通っているのであれば
＞Win32APIの「CopyFileA」を使って出来そうですね。
＞
＞PBだけでやろうとした場合は、こんな感じで･･･
＞---
＞int  li_ret
＞string ls_rpath, ls_rfname
＞string ls_wpath, ls_wfname
＞
＞li_ret = GetFileOpenName( \"取得\", ls_rpath, ls_rfname, \"jpg\", \"画像 (*.jpg),*.jpg\" )
＞IF li_ret <> 1 THEN return
＞
＞li_ret = GetFileSaveName( \"出力\", ls_wpath, ls_wfname, \"jpg\", \"画像 (*.jpg),*.jpg\" )
＞IF li_ret <> 1 THEN return
＞
＞int  li_rfno, li_wfno
＞blob ls_buffer
＞
＞li_rfno = FileOpen(ls_rpath, StreamMode!, Read!,  LockReadWrite!, Append!)
＞li_wfno = FileOpen(ls_wpath, StreamMode!, Write!, LockReadWrite!, Replace!)
＞
＞IF li_rfno < 0 OR li_wfno < 0 THEN
＞ FileClose(li_rfno)
＞ FileClose(li_wfno)
＞ return
＞END IF
＞
＞DO WHILE 0 < FileRead(li_rfno, ls_buffer)
＞ FileWrite(li_wfno, ls_buffer)
＞LOOP
＞
＞FileClose(li_rfno)
＞FileClose(li_wfno)
＞---
＞一応、中身の全く同じJpegファイルの複写が出来ました。
＞
＞これが、Pictureオブジェクトに読み込んだ画像を、
＞元のファイルを使う事無く別名で保存させよう･･･
＞となると、ちょっと方法が判らないですね。

ありがとうございます。
早速試してみたところ、別名でファイルが保存されました。
本当にありがとうございました。