/*
   $VER: Vols2Path.dsrx 1.0 (8.3.00) Copyright (c) Nils Görs.
*/

options results

PARSE ARG DSPort
IF DSPort = "" THEN DSPort = DIRSCANNER.1
address value DSPort

SET LOCKGUI 1
volname = "t:Vols2Path."||time('s')||"."||DSport
address command "Assign VOLS >"||volname

open(volfile,volname,'r')

searchpath = ""

line readln(volfile)

CLEARPATHS
do while ~eof(volfile)
  line = readln(volfile)
  lp = lastpos('[Mounted]',line)
  if lp ~== 0 then
  ADDPATH strip(delstr(line,lp))":"
end
close(volfile)

SET LOCKGUI 0