Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Scanning for a file that is open
Message
 
 
To
18/02/2004 06:19:26
Erick Miranda
Formata Data Business - Grupo Linx
Contagem, Brazil
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00878210
Message ID:
00878227
Views:
20
Thankyou Erick

If I now want to show those users that are in the system I thought I could copy to an array and then show the array in a list box. It works fine now but I want to remove the messageboxes (that was a check). I tried the copy to array command but I must be doing something wrong.
SET EXCLUSIVE OFF
SET DELETED ON

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
   	  MessageBox("User "+trim(arrUsers[ix,2])+" is in system")
      Else
      Fclose(lnFID)
      MessageBox("User "+trim(arrUsers[ix,2])+" is not in system")
    ENDIF
  ENDIF
 ENDFOR
ENDIF
Basically I want to replace the Messageboxes with commands to either if they are in the system to be shown in a listbox or if they are not in the system then do not show in the listbox.

Many Thanks for your help.
Neil Lewis
IT R&D Manager
Velmore Ltd
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform