Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Printer Environment = .F. (About 250 reports)
Message
General information
Forum:
Visual FoxPro
Category:
Reports & Report designer
Environment versions
Visual FoxPro:
VFP 9
Miscellaneous
Thread ID:
01057796
Message ID:
01057878
Views:
12
Rudolfo,
here is the quick and dirty code I´m using:
SET DEFAULT TO c:\myRepDir
=ADIR(adr,"*.frx")
FOR i=1 TO ALEN(adr,1)
 ?adr(i,1)
 USE (adr(i,1))
 DELETE FOR Inlist(objtype, 25, 26)
 PACK
ENDFOR
=ADIR(adr,"*.lbx")
FOR i=1 TO ALEN(adr,1)
 ?adr(i,1)
 USE (adr(i,1))
 DELETE FOR Inlist(objtype, 25, 26)
 PACK
ENDFOR
USE
Cheers
G
Previous
Reply
Map
View

Click here to load this message in the networking platform