Clarion - Conectar a unidad de red 3

Las variables GLO:Dev y GLO:Path y GLO:Terminal son variables globales del sistema

GLO:Dev (STRING(1))
GLO:Path (STRING(80))
GLO:Terminal BYTE

En Program setup (cuando arranca el programa)

! Establezco la conexion con el Server
! Leo el .ini
GLO:Server = GETINI('Main','SYS:Server',,'.XXXXXX.ini')
GLO:Dev = GETINI('Main','SYS:Dev',,'. XXXXXX.ini')
GLO:Path = GETINI('Main','SYS:Path',,'. XXXXXX.ini')

GLO:Terminal = GETINI('Main','SYS:Terminal',,'. XXXXXX.ini')

! Busco la primera letra disponible

IF GLO:Terminal > 1

x# = GetLogicalDriveStringsA(80,CDrives)

! Esta API devuelve un cstring con los dispositivos declarados en el sistema con el siguiente formato : A:<NULL>C:<NULL>.... según las unidades que estén en el sistema. El siguiente código en violeta lo use para encontrar la primer letra vacante despues de la C obviamente. A la letra obtenida la guardo en LOC:Drive