? "Start of example"
lcFile = getFile()
? lcFile
lcDrive = justdrive(lcFile)
x = CREATEOBJECT("WScript.Network")
for i = 0 to x.EnumNetworkDrives.Count
   IF x.enumNetworkDrives.Item(i) = lcDrive
      lcPathNeeded = x.enumNetworkDrives.Item(i + 1)
      i = x.EnumNetWorkDrives.Count + 1
   ENDIF
endfor
? lcPathNeeded