Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Data file transfer on a dial up using Visual Foxpro 6.0
Message
 
À
18/04/2000 12:24:14
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00360792
Message ID:
00360914
Vues:
10
Hi Doug,

This is from PC-Anywhere 9's help. It should get you started in the right direction...

Alex

Integer count
String match[10]
count = 0 ;set count to 0
;search for matching files
Find First "C:*.DAT" match
;if match found, go to @found
If ($Result == 1) GoTo @found
Type Line "No matching files found."
GoTo @end ;if not found, go to @end

@found:
Type Line "Matching files found."

@foundmore:
count = count + 1 ;increment count by 1
Type String match ;display filename
Type String "^M" ;hard carriage return
;search for next instance until no more are found
Find Next match

If $Result == 1 GoTo @foundmore
Type String "Number of *.DAT files found: "
Type Line count ;display count

@end:
Low-carb diet not working? Try the Low-food diet instead!
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform