Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Scanning for a file that is open
Message
De
18/02/2004 09:34:25
Erick Miranda
Formata Data Business - Grupo Linx
Contagem, Brésil
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00878210
Message ID:
00878279
Vues:
22
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!
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform