已经解决问题，是本人在把VBA的用手输入的方法，导致vb6的代码空格少也无法查出而运行不对，用复制VBA的方法，vb6运行和VBA的结果就一致了。谢谢大家的热心帮忙。
以下两段vba代码均可以打开共享的局域网文件夹，但作为vb6代码则不中，打开共享的局域网文件夹的vb6代码如何写？
1、
Set fso = CreateObject("Scripting.FileSystemObject")
  If FSO.folderexists("\\172.20.31.32\123") then 'vb6不能正确判断
    Ret = Shell("explorer.exe  \\172.20.31.32\123", vbNormalFocus)'打开文件夹
        MsgBox "存在"
    Else
        MsgBox "不存在"
    End If
    Set fso = Nothing
End Sub
2、
shell "cmd /c start \\172.20.31.32\123",vbhide '打开文件夹
        

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

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

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
  MsgBox fso.folderexists("\\10.92.29.2\Anonymous")'此代码运行的结果为：  MsgBox True
打开"\\10.92.29.2\Anonymous"文件夹的vb6代码如何写？

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

在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编辑过]

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

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

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

已经解决问题，是本人在把VBA的用手输入的方法，导致vb6的代码空格少也无法查出而运行不对，用复制VBA的方法，vb6运行和VBA的结果就一致了。谢谢大家的热心帮忙。