sdim source,260
dialog "",16 ;コピー元
if stat==0: end
source=refstr
;source="\\\\コンピュータ名\\共有フォルダ名\\ファイル名"
mes source
sdim destination,260
dialog "",17 ;コピー先
if stat==0: end
destination=refstr
;destination="ドライブ名:\\フォルダ名\\ファイル名"
mes destination
bcopy source,destination