在Windows 7/8中从VB6打开Word文档问题

Question

我有一个打开Word文档（.doc）的旧VB6应用程序。它已经在Windows XP上运行了很长时间。我的问题是，当我在Windows 7或Windows 8上安装应用程序时，代码将打开Word，但不会显示实际的文档。当它打开Word时，我可以导航到文件并完全打开它，所以文件没有问题。似乎我在这里错过了一些简单的东西，但经过大量的搜索和阅读后，我无法找到它。

我确定Word是与Windows 7和8计算机上的.doc文件关联的程序，所以不是这样。

这里是我用来打开文档代码：

Dim iret As Long 
iret = ShellExecute(hwnd, vbNullString, QuoteFilePath & File1.FileName, vbNullString, "c:\", SW_SHOWNORMAL) 

任何帮助表示赞赏！

Answer 1

这个特殊文件夹实际上不应该被用来存储用户文件有很多原因。微软甚至第三方已经开始将其用于完全不同的目的。根据已安装的应用程序，您甚至可能在此处找到DLL。

如果你不想让用户玩这个文件夹，他们可能会删除一个对其他程序的操作至关重要的文件。

但是，如果您坚持这样做，请注意通过字符串值引用文件夹是不安全的，因为它可以根据用户的语言设置显示在不同的别名下。它甚至可能通过行政行为被重新安置在别处。

它也没有必要屈服于使用年龄的非COM ShellExecute入口点，至少早在版本5.0的Shell32.dll。

这至少应该从WinXP的前瞻性工作：

Option Explicit 

Private Const ssfCOMMONDOCUMENTS As Long = &H2E 
Private Enum SHOW_WINDOW 
    SW_HIDE = 0 
    SW_SHOWNORMAL = 1 
    SW_SHOWMINIMIZED = 2 
    SW_SHOWMAXIMIZED = 3 
    SW_SHOWNOACTIVATE = 4 
    SW_SHOW = 5 
    SW_SHOWMINNOACTIVE = 7 
    SW_SHOWDEFAULT = 10 
End Enum 

Private Shell As Object 
Private Path As String 

Private Sub File1_Click() 
    On Error Resume Next 
    'Works on XP through Vista, fails on Win7: 
    'Shell.ShellExecute File1.FileName, , Path, "open", SW_SHOWNORMAL 

    'Works on XP through Win7: 
    Shell.ShellExecute Path & "\" & File1.FileName, , , "open", SW_SHOWNORMAL 
    If Err Then 
     MsgBox "Error " & CStr(Err.Number) & " " & Err.Description 
    End If 
End Sub 

Private Sub Form_Load() 
    Set Shell = CreateObject("Shell.Application") 
    With Shell.NameSpace(ssfCOMMONDOCUMENTS).Self 
     Path = .Path 
    End With 
    With File1 
     .Pattern = "*.doc" 
     .Path = Path 
    End With 
End Sub