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上用VFP打开文件成功的代码？请赐教

果然问题出在这……

=Shellexecute(lnWnd,[Open],ALLTRIM(路径)+ALLTRIM(文件名),[],路径,1)
这段代码问题出在[路径]上，在WIN7中,查找的文件[F:\]，编程通过之后，WIN10上同样的目录在[D:\]，表中的[路径]仍然是[F:\]，当然打不开本地的文件！
既然已经有人使用该代码在WIN10中正常运行，我修改表单之后也一定能运行！谢谢各位！