Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Scanning for a file that is open
Message
From
18/02/2004 09:34:25
Erick Miranda
Formata Data Business - Grupo Linx
Contagem, Brazil
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00878210
Message ID:
00878279
Views:
20
This message has been marked as the solution to the initial question of the thread.
Hi Neil!
You can to use a cursor and use it in ListBox. Eg.:
SET EXCLUSIVE OFF
SET DELETED ON

Create Cursor curUser (userName C(30), userNo I)

Select users.userno, users.username ;
  from "U:\Questpdm\Data\Users" ;
  ORDER BY users.username ;
  into array arrUsers

if ( _Tally > 0 )
for ix = 1 to alen(arrUsers,1)
  If File("U:\QuestPDM\Profile\User"+ltrim(str(arrUsers[ix,1]))+"\insystem.dbf")
    lnFID = Fopen("U:\QuestPDM\Profile\User"+ltrim(str(arrUsers[ix,1]))+"\insystem.dbf", 12)
    If lnFID = -1	&& Get users are in system
       Insert Into curUser (userName, userNo) Values(arrUsers(ix, 2), arrUsers(ix, 1))
    ENDIF
  ENDIF
 ENDFOR
ENDIF
I hope this help you.
Erick
Força Sempre!
Strength Always!
Previous
Reply
Map
View

Click here to load this message in the networking platform