The LA Fox Developer Newsletter

Y2K (Con’t from page 4)

* Called by: None

a Note: Display set up only after entering textbox. a Would be nice to have Tool Tips set up on entry to

form, but lnit() on this object is too soon, no

a date set yet; and there is no Activate()

WITH THIS

a Long date in Canadian word order

a if appropriate

lcDate = IIF(SET(’DATE’) = ‘DMY’,;

DMY(.Value),

MDY(.Value))

SET MESSAGE TO lcDate

.ToolTipText = ‘Original date: ‘+ IcDate

a Show ‘Invalid Date’ wait window if

.cNotify = SET(’NOTIFY’)

SET NOTIFY ON

ENDWITH

RETURN

(Ed.Note: Judy Denison is a VFP Programmer/Analyst for ProCard, Inc., and has been a FoxPro programmer for five years. Before that she was a Physical Scientist for the U. S. Geological Survey, a Supeivisoiy Survey Statistician for the U. S. Bureau of the Census, a Research Associate for the University of Wyoming Economics Department, and the owner of an arts and crafts galleiy in Laramie (not all at once). She has an old master’s degree in physics and a second bachelor’s in psychology. She lives in Golden, Colorado, and can be reached at jdenison@procard.com.J

FoxPro Q&A (Con’t from page 6)

The procedure to delete a number of files using a file skeleton similar to the MS-DOS command, DEL *BAK is given below. Just as for its MS-DOS equivalent, you can pass it a path if the files to be deleted are NOT in the default (current) directory.

PROCEDURE BEGINS

PARAMETERS pathname

SET TALK OFF

SET SAFETY OFF

(Con’t, next column)

August 1998

Out and About (Can’t from page 2)

FIND INTEGRATED SOLUTIONS AT MICROSOFT BUSINESS

APPLICATIONS CONFERENCE 98. Although content at the Microsoft Business Applications Conference will be technically- based, the focus will be on how you can build the best integrated solutions for your most common business problems. Learn how to build end-to-end solutions the way it’s done in the real-world, by integrating multiple Microsoft products, partner products, and custom applications together into a complete solution. To register for the conference, held in Las Vegas, Nevada on Sept. 9 - Sept. 11, see: http://www.microsoft.com/ directaccesslbizappsO5l3_rdr.htm

Since We Last Met...

VISUAL STUDIO 6.0 NOW AVAILABLE FOR DOWNLOAD

Visual Studio 6.0 is now available for download to MSDN

Universal Subscribers and MCSPs through MSDN Subscriber

Downloads. To access MSDN Subscriber Downloads, visit

http://www.microsoft.com/msdn/downloads/subscriber.htm.

MSDN SUBSCRIPTION AUGUST INTERIM RELEASE

The MSDN Subscription August Interim shipment includes SQL Server 7.0 Beta 3, Build 517 and Visual Studio 6.0 Enterprise Edition. For complete details or a full listing of all MSDN subscription components, visit http://www.microsoft.com/msdn/ services/subscription/index/.

You must be an MSDN Universal Subscriber or MCSP.

FoxPro Q&A (Con’t from previous column)

Iibactive.F.

CLEAR

filecount=0

filename=SYS(2000,pathname)

DO WHILE LEN(filename) > 0

IF filecount0

*activats library

SET LIBRARY TO SYS(2004)+’foxtools’ ADDITIVE Iibactive=.T.

ENDIF

DELETE FILE (forcepath(filename, justpath(pathname)))

filecount=filecount+1

filename=SYS(2000,pathname,1)

IF libactive

RELEASE LIBRARY SYS(2004)+’foxtools’

ENDIF

? ALLTRIM(STR(filecount)) + ‘ Files have been deleted.’
PROCEDURE ENDS

Can I suppress a keystroke after testing for it in the Keypress event of the control?

(Con't page 7)

Page 5