关于For Each 的问题。

[rushing]

总是出：“434 要求对象”的错误。
代码如下：

ShareRoot = "WinNT://"

Set fserv = GetObject("WinNT://pc14/LanmanServer")
Set share = fserv.Create("fileshare", "DWNLDShare")

For Each share In fserv
If share.Path = Text1.Text Then
MsgBox share.Name + " " + share.Path
End If

Next share

我用的是WIN2000 Server

[rushing]

可以得到对象。
是共享的文件夹名称。
最后一个是$wwwroot

[pctommy]

我认为你应该把creatObject的工作放到循环里执行

[96151024]

你在执行For Each share In fserv之前检查一下fserv的内容，肯定是空的


Set fserv = GetObject("WinNT://pc14/LanmanServer")
Set share = fserv.Create("fileshare", "DWNLDShare")

if fserv is nothing then
msgbox "fserv is nothing“
endif

For Each share In fserv
If share.Path = Text1.Text Then
MsgBox share.Name + " " + share.Path
End If

Next share

我不知道你的Set fserv = GetObject("WinNT://pc14/LanmanServer")是否正确，也不知道你要得到什么对象，你如果知道对象包和对象名用CreateObject创建

[rushing]

如果共享文件夹已经存在，没有问题。
但是如果该目录没共享，就会出错。
即for循环不能循环到底。