类似功能的参考示例
of = CREATEOBJECT("myForm")
of.show(1)

DEFINE CLASS myForm as Form
    ADD OBJECT fList as FileList WITH width=this.Width,height=this.height
ENDDEFINE

DEFINE CLASS FileList as listbox
    RowSourceType=7
    sPath = ""
    sName = ""
   
    PROCEDURE RightClick
        IF FILE(this.list(2)+this.value)
            myPop(this)
        ENDIF
    ENDPROC
   
ENDDEFINE

FUNCTION myPop(oFileList)
    DEFINE POPUP pop FROM MROW(),MCOL()
    DEFINE BAR 1 OF pop PROMPT "复制"
    DEFINE BAR 2 OF pop PROMPT "粘贴"
    DEFINE BAR 3 OF pop PROMPT "删除"
    ON SELECTION POPUP pop mySelpop(POPUP(), PROMPT(), oFileList)
    ACTIVATE POPUP pop
    DEACTIVATE POPUP pop
    RELEASE POPUP pop
ENDFUNC

FUNCTION mySelpop(cPopup, cPrompt, oFileList)
    DO CASE
        CASE cPrompt == "复制"
            oFileList.sPath = oFileList.list(2)
            oFileList.sName = oFileList.value
        CASE cPrompt == "粘贴"
            IF !FILE(oFileList.sPath+oFileList.sName) OR (oFileList.sPath==oFileList.list(2))
                MESSAGEBOX("无效的文件名或路径")
                RETURN
            ENDIF
            COPY FILE (oFileList.sPath+oFileList.sName) TO (oFileList.list(2)+oFileList.sName)
            oFileList.Requery
            oFileList.sPath = ""
            oFileList.sName = ""
        CASE cPrompt == "删除"
            IF FILE(oFileList.list(2)+oFileList.value)
                IF MESSAGEBOX("删除 "+oFileList.value,17,"提示")==1
                    DELETE FILE (oFileList.list(2)+oFileList.value)
                    oFileList.Requery
                ENDIF
            ENDIF
        OTHERWISE
    ENDCASE
    DEACTIVATE POPUP (cPopup)
    RELEASE POPUP (cPopup)
ENDFUNC

可以用内存变量来保存文件名、源路径和目标路径，然后用VFP的copy file to命令来实现。

复制是可以实现了，但在资源管理器里就粘贴不了了，如果要在资源管理器里也能粘贴，再请指点如何做

在百度下可以找到一些VB的例子，下面是两个VB例子，请读得懂VB程序的高手把它们转为VFP
Declare Integer OpenFile In kernel32 String lpFileName,String @lpReOpenBuff,Integer wStyle
Declare Integer GetFileSize In kernel32 Integer hFile,String @lpFileSize
Declare Integer CloseHandle In kernel32 Integer hObject
DECLARE INTEGER OpenClipboard IN user32 INTEGER hwnd
DECLARE INTEGER CloseClipboard IN user32
DECLARE INTEGER SetClipboardData IN user32 INTEGER wFormat, INTEGER hMem


Dim Files(0) As String
Dim dataObject As New DataObject
Files(0) = "E:\音乐\好歌\白狐.mpg"
dataObject.SetData(DataFormats.FileDrop, False, Files)
Clipboard.SetDataObject(dataObject)

***********************************

imagefile="d:\aaa.bmp"
hbitmap=loadimage(0,imagefile,image_bitmap,0,0,lr_loadfromfile)   
openclipboard(0)
emptyclipboard()
setclipboarddata(cf_bitmap,hbitmap)
closeclipboard()


lcReOpenBuff=Space(254)
lnHFile=OpenFile("&imagefile",@lcReOpenBuff,0)
MESSAGEBOX(lnHFile)

[此贴子已经被作者于2017-1-18 23:57编辑过]

是调用几个与剪贴板相关的API函数，查查相关API使用说明就可以。

用剪贴板来复制文件的过程，就是先将文件内容读入剪贴板，再将剪贴板内容写入到文件，剪贴板当做文件缓存区，类似调用FREAD()和FWRITE()过程。用FREAD()和FWRITE()还具通用性，因剪贴板是有针对性的，有数据格式要求，这个搞错了会出异常。

之前也讨论过无需用剪贴板来复制文件，可否具体说说为何一定用剪贴板来复制文件？

吹版，楼主是想在“VFP编写的软件”中选择复制，然后在“非VFP编写的软件”中如WINDOWS的资源管理中中粘贴，所以，他就强调“剪贴板”。

看不懂！

明白，看贴的图以为是在VFP完成“复制/粘贴”文件。
在VFP中“复制”，然后在非VFP中“粘贴”。这种情况通常是在文件编辑状态时对数据的输出输入，就象编辑文本文件时的Ctrl+C、Ctrl+V。只是通过文件名用“复制/粘贴”在两个应用软件中实现文件的复制，不清楚这样做的现实性和必要性？如WINDOWS的资源管理本身就可以自己完成“复制/粘贴”，为何要先在VFP“复制”再到资源管理“粘贴”？

我对API知道的不多，更深的技术问题还有待学习，既然VFP实现不了跟资源管理器里一样的复制功能，就只好先舍弃这个预想了。

谢谢上楼各位老师的指点和帮助！