（已经解决）敬请高手解决用vb6代码打开局域网文件夹的问题。谢谢。

确实，我用Excel的VBA测试了一下，可以用的。但是我电脑上没有VB。这种编译环境造成的问题，暂时帮不上忙了。
另外，我用VBA代码   测试可用。你在VB下试试看
帮顶

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

"\\192.168.31.198\e\"，打开这个局域网文件夹的vb6代码如何写？

如果隐性共享打开则好像是 file:\\\\192.168.31.198\e$

我在我的系统中临时创建了IP地址为192.168.0.1的局域网的本地地址，使用fso对象访问，发现fso对象没有目录操作属性（就是说fso对象不能打开目录），只能判断目录是否存在。
因此我想是否可以使用CommonDialog1文件操作对话框来操作局域网的共享文件夹，在C盘创建了一个Anonymous目录，并且共享名也是Anonymous，在共享目录中创建了几个文件，其中aaa.txt是其中的一个。
下面的代码是在VB中调试的代码，由于我没有局域网，仅仅将本机的IP地址修改，因此在局域网中是否可以，没有调试，代码也只能给你提供参考：

上面文本框是局域网的共享目录地址，下面的文本框是共享目录中需要操作的文件

都怪我1楼的说明中没详细交代清楚，在此交代1次：1楼中的“\\172.20.31.32\123”，其中“172.20.31.32”是本单位（假设的）局域网中某1计算机的IP号，“123”是其（假设的）下的1个文件夹，1楼的问题是用vb6代码打开“\\172.20.31.32\123”文件夹。

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

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

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

以下两段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编辑过]

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

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

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