VB6可以....Excel2007 VBA也可以

你打开文件夹，干什么？
调用 窗口打开？还是 列出文件夹里的 子目录和文件。如果是列出子目录和文件，我测试结果是可以，看7楼的代码。

10.92.29.2 是局域网中另一个计算机，
Anonymous  是共享名，并不一定就代表一个实际的目录名，有可能与实际目录名不同。

-------------------------------
如果FSO完全没用，那就可能需要去研究对等网里的文件共享协议，使用 winsock 来访问了。

在win7系统不中。

以下两段vba代码均可以打开共享的局域网文件夹，但作为vb6代码则不中，打开共享的局域网文件夹的vb6代码如何写？
1、
Set fso = CreateObject("Scripting.FileSystemObject")
  If FSO.folderexists("\\172.20.31.32\123\a\b\c") then 'vb6不能正确判断
    Ret = Shell("explorer.exe  \\172.20.31.32\123\a\b\c", vbNormalFocus)'打开文件夹
        MsgBox "存在"
    Else
        MsgBox "不存在"
    End If
    Set fso = Nothing
End Sub
2、
shell "cmd /c start \\172.20.31.32\123\a\b\c",vbhide '打开文件夹
        在以上的代码中，增加红色部分，也许有助于问题的理解。其中\123\a\b\c是文件夹。

[此贴子已经被作者于2016-10-21 17:04编辑过]

你看了我三楼的结果吗？
我就是在 VB6 IDE 里测试的。

FSO.folderexists("\\10.92.29.2\Anonymous")
返回，真

FSO.folderexists("\\10.92.29.2\")
返回 假

[此贴子已经被作者于2016-10-21 21:15编辑过]

服了，我把代码给你，替换有问题的那句就可以，局域网文件夹地址换一下就可以了
你居然拿我的局域网文件夹地址来问我怎么做。
然后来给我解释你的局域网文件夹地址是什么意思。你以为别人跟你一样的？
你的表述能力，理解能力，我真的无语。 你还是告别VB吧。

smb协议，认真研究一下吧，可以运行在 TCP/IP 上面，使用 UDP 。

我把代码分别用vba和vb6运行，vba可以，vb6不中。在winXP和win7系统运行。现在我就在单位的电脑的局域网中不断地测试，的确是vba可以，vb6不中。

现在我就在单位的电脑的局域网中不断地测试，的确是vba可以，vb6不中。

没有想到vba可以用如此简单的代码，就可以打开共享局域网中的文件夹，而vb6却不行。