Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Scanning for a file that is open
Message
 
 
À
18/02/2004 06:19:26
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:
00878227
Vues:
21
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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform