le 20/08/00 14:50, Alain Pastor à apastor@... a écrit :

Alain
just looking quickly at your code, wouldn't it fail if the path comes to
exceed 255 chars?

:-j
[there's no place like a gnome]


> As a workaround maybe you could do something like this:
> 
> CLEAR LOCAL MODE
> DIM pBlock.128
> DIM dirName AS STR63
> DIM pathName AS STR255
> DIM err AS OSErr
> 
> LOCAL FN GetPathname$ (fName AS STR255, vRefNum AS INT)
> 
> pathName = fName
> pBlock.ioNamePtr&      = @dirName
> pBlock.ioVRefNum%      = vRefNum
> pBlock.ioDrParID&      = [_curDirStore]
> pBlock.ioFDirIndex%    = -1
> 
> DO
> err = FN GETCATINFO (@pBlock)
> LONG IF err = _noErr
> pathName =  dirName + ":" + pathName
> pBlock.ioDrDirID& = pBlock.ioDrParID&
> END IF
> UNTIL pBlock.ioDirID& = _fsRtParID
> 
> END FN = pathName
> // Main
> DIM AS INT    idx,vRefNum
> DIM AS STR255 itemName,sysFldName
> 
> WINDOW 1
> 
> sysFldName = FN GetPathName$("",SYSTEM(_sysVol))
> 
> DO
> idx++
> itemName = FILES$(-idx,,sysFldName,vRefNum)
> PRINT itemName
> UNTIL itemName[0] = 0
> 
> DO
> UNTIL FN BUTTON
> 
> Cheers
> 
> Alain