DIR Tree

 BBS: Inland Empire Archive
Date: 03-31-92 (18:10)             Number: 199
From: CORIDON HENSHAW              Refer#: NONE
  To: TIM FITZGERALD                Recvd: NO  
Subj: DIR Tree                       Conf: (2) Quik_Bas

 TF> Scott, I took your advice and looked at the
 TF> WHEREIS.BAS that came with QB.. I even modified it,
 TF> rather used the routines, to get what I needed.
 TF> However, it's SLOW.. I am going to really hate
 TF> having to resort to that routine.. too bad I don't
 TF> know assembly.. Any other suggestions/ideas?

Their is a quick way, look at this:

'use with QB/PDS with the /L option
DIM Regs AS RegtypeX
input "Enter file name to find: ",FileName$
Regs.Ax=&H4E
Regs.Cx=&H06
Regs.Ds=SSEG(FileName$)
Regs.Dx=SSAD(FileName$)
CALL INTERRUPT(&H21,Regs,Regs)
END

This MAY work, it's untested, at the worst, it'll crash your system.
CSBH

--- Maximus 2.00
 * Origin: The Programmer's Paradise (416)482-1470 (1:250/801)