Declare Integer ShellExecute In shell32.dll Integer,String,String,String,String,Integer
Declare Integer GetDesktopWindow In Win32api
lnWnd = GetDesktopWindow()
=Shellexecute(lnWnd,[Open],ALLTRIM(路径)+ALLTRIM(文件名),[],路径,1)
Clear dlls

[此贴子已经被作者于2024-5-24 18:56编辑过]

理论上路径、文件名没错是能打开的  注意路径中间的空格

同一个表单，在win7上运行正常，拿到win10上却不行，所以问题应该是两个操作系统不同造成的；而我制作的其余表单因为不用打开文件，所以没发现这种情况。上述那段代码也是从本网站学来的。https://bbs.bccn.net/viewthread.php?tid=511283&highlight=%B4%F2%BF%AA%CE%C4%BC%FE

命令本身没问题  你得检查文件是否正确  具体出错提示

没有任何提示，就是没有反应。

补充一下：在win7操作系统中，该段代码无论是ppt还是图片都能打开。

win10上很多情况都是因为执行权限造成的，右击你的exe或快捷方式，选以管理员身份运行试试看有没有用

试过了，没用。

有没有哪位在win10上用VFP打开文件成功的代码？请赐教

问题可能出在第4行，参考语句
=Shellexecute(lnWnd,"open",lcFile,"","D:\",1)
这方法我在win10运行正常