以下是引用HVB6在2016-10-20 22:40:32的发言:
以下两段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 '打开文件夹
以下两段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 '打开文件夹
VB6可以....Excel2007 VBA也可以
不要選我當版主