CreateObject("W Script.Network" )

[Dennis]

I use the below code to get the Network Places items. However, this requires
"Late Binding". I read that you can avoid late binding by adding a reference
to the Com Types in your application. Does anyone know what reference to add
and what to import?

Dim drives() As String
Dim ob As Object = CreateObject("W Script.Network" )
Dim odrives As Object = ob.EnumNetworkD rives
dim k as integer
If odrives.count > 0 Then
ReDim drives(CInt(odr ives.Count / 2))
For i = 0 To odrives.Count - 1 Step 2
k = k + 1
drives(k) = odrives.Item(i + 1).ToString.ToL ower
Next
End If
--
Dennis in Houston

[Dennis]

Never mind...I've got it figured out:

Imports IWshRuntimeLibr ary

Dim drives() As String
Dim o As IWshNetwork2 = CType(CreateObj ect("WScript.Ne twork"), IWshNetwork2)
Dim odrives As WshCollection = CType(o.EnumNet workDrives, WshCollection)
If odrives.count > 0 Then
ReDim drives(CInt(odr ives.Count / 2))
For i = 0 To odrives.Count - 1 Step 2
k = k + 1
drives(k) = odrives.Item(i + 1).ToString.ToL ower
Next
End If

"Dennis" wrote:

I use the below code to get the Network Places items. However, this requires
"Late Binding". I read that you can avoid late binding by adding a reference
to the Com Types in your application. Does anyone know what reference to add
and what to import?

Dim drives() As String
Dim ob As Object = CreateObject("W Script.Network" )
Dim odrives As Object = ob.EnumNetworkD rives
dim k as integer
If odrives.count > 0 Then
ReDim drives(CInt(odr ives.Count / 2))
For i = 0 To odrives.Count - 1 Step 2
k = k + 1
drives(k) = odrives.Item(i + 1).ToString.ToL ower
Next
End If
--
Dennis in Houston