从 Access VBA 以只读方式打开任意文件

Question

我有一个 Access 应用程序，当前正在使用 fhandlefile() 过程： http://access.mvps.org/access/api/api0018.htm ...打开任意文件。

我希望能够将该例程包装在我自己的过程中，例如 OpenFile(strFilePath, bolReadOnly) ，以便我可以根据需要以只读方式打开文件。但是，我在 Shell API 调用中没有看到可以执行此操作的任何地方。我已经想到的两个替代解决方案（但有问题）是：

1. 在打开文件之前将文件属性更改为只读，然后在打开文件后立即将其更改回来。但这是一个奇怪的解决方案，因为用户必须拥有足够的权限才能执行此操作，这通常与整个“以只读方式打开文件”相矛盾。
2. 使用与文件类型相关的 API 以只读方式打开某些类型的文件（例如 Word 文档）。这是一个问题，因为我不想区分所有不同的文件类型，并且我想尽可能远离额外的库。

有人对我如何调整现有的例程或用其他可以实现这一点的东西替代有任何想法吗？

Answer 1

查看您正在调用的 API...

1. 尝试使用对 ShellExecte 使用默认动词打开文件（如果可用）。如果没有，则使用“open”动词。

2. 如果失败，它会尝试使用“打开方式...”对话框打开文件，请参阅如何使用 _shellexecute 调用“打开方式...”对话框

这两种方法都使用关联的信息使用文件打开正确的应用程序，但无法通过“只读”。我的猜测是，这是因为并非每种文件类型都有只读甚至可写上下文。

您也可以在 Web 浏览器中打开该文件。

例如（使用对“Microsoft Internet Controls”的引用，通常位于 c:\windows\system32\ieframe.dll）

Dim ie As InternetExplorer
set ie = New InternetExplorer

ie.Navigate "file://yourFile"
ie.Visible = True