Visual Basic 6 和 UNC 路径

Question

我收到开发人员的反馈，“Visual Basic (6) 处理 UNC 路径的唯一方法是将其映射到驱动器。” 这准确吗？ 如果是这样，根本问题是什么？除了映射驱动器之外还有其他选择吗？

Answer 1

我们有一个旧版 VB6 应用程序，它使用 UNC 构建连接字符串，所以我知道 VB6 可以做到这一点。 通常，您会发现权限问题是罪魁祸首。

Answer 2

即使是老式的文件处理类型也可以工作：

Open "\\host\share\file.txt" For Input As #1
Dim sTmp
Line Input #1, sTmp
MsgBox sTmp
Close #1

Answer 3

这是一种有效的方法。

Sub Main()

    Dim fs As New FileSystemObject ' Add Reference to Microsoft Scripting Runtime
    MsgBox fs.FileExists("\\server\folder\file.ext")

End Sub

Answer 4

在 VB6 中，您不能将 CHDrive 用于 UNC 路径。

由于 App.Path 返回 UNC 路径，因此尝试使用 ChDrive 到此路径，ChDrive App.Path 将导致错误。

正如 Microsoft 所说“ChDrive 无法处理 UNC 路径，因此当 App.Path 返回一个时会引发错误”。 有关详细信息，请参阅 http://msdn。 microsoft.com/en-us/library/aa263345(v=vs.60).aspx

Answer 5

如果您使用的是 Scripting.Runtime 库，我认为这不是真的。

Oldschool VB 有一些用于文件处理的语言结构。 这些都是邪恶的。 不要使用它们。

Answer 6

您正在执行什么类型的文件 I/O？ 如果是文本，请考虑使用 FileSystemObject。

Answer 7

当存在以下项目的组合时，我观察到 VB6 UNC 路径问题：

• unc 指向隐藏的“$”共享
• 服务器名称超过 8 个字符并且/或具有非标准字符
• 路径的一部分非常长
• 服务器有 8.3出于性能目的而关闭支持

通常是 75 路径文件访问错误或 54。有时这可能与 API 有关，例如上述 UNC 上的 getshortfilename 和 getshortpathname。

除此之外，它们工作得很好......映射路径通常不会有这些问题，但那些该死的驱动器映射经常断开连接，并且可以随时更改，从而导致许多支持问题。