>Hello,
>
>I'm looking for a simple sample of code to test for a network folder.
>
>If it's not available (user not logged on) a message appears to advise user to quit the local application and logon to the network.
>
>This would happen when they try to copy of file to the server.
>
>Thanks,
>
>Jim Harvey
>jharvey@hanoverpa.com
>
>p.s.
>I tried searching the archives but keep getting a timeout message (?)
Jim,
You could use the Window Script Host's Network Object.
oNet = CREATEOBJECT('WScript.Network')
oDrives = oNet.EnumNetworkDrives()
FOR lni = 0 TO oDrives.Count - 1 STEP 2
? oDrives.Item(lni), ? oDrives.Item(lni + 1)
NEXT
For more information see the December, 2000 issue of the VFUG newsletter. It's available on-line at
www.vfug.org.
George
Ubi caritas et amor, deus ibi est