Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: Thomas Holt
  Where is Thomas Holt?
 Gloucester
 United Kingdom
 Thomas Holt
 Tags
Subject: Automating clicking start then run
Thread ID: 15703 Message ID: 15703 # Views: 2 # Ratings: 0
Version: Unknown Category: General VFP Topics
Date: Friday, September 27, 2002 4:00:32 PM         
   


Hello

all my records have a unique 8 figure ref (34568213) these correspond to a tiff file stored on the serverInstead of a general field i have a character field with the file path ie z:decisions\2002\34568213.tif in it this being the tiff document linked to each record in a table, at the moment iam locating the correct record i want copying the file path to the clipboard and clicking start-run and then pasting the filepath how can i automate the running of the file so i dont have to click start run etc, i have a form with a button and a textbox in the textbox i put the ref (34568213) and click the button with the following code....

WITH THISFORM
lcnum = ALLTR(THISFORM.TEXT1.VALUE)
ENDWITH
USE fun ORDER fileref
GO TOP
SEEK lcnum
IF FOUND()
_CLIPTEXT = FUN.ORIGINAL
TOM=FUN.ORIGINAL
=MESSAGEBOX("CLICK START > RUN THEN RIGHTCLICK IN BOX AND PASTE AND OK")
ELSE
USE appeals ORDER fileref
GO TOP
SEEK lcnum
IF FOUND()

_CLIPTEXT = APPEALS.ORIGINAL
=MESSAGEBOX("CLICK START > RUN THEN RIGHTCLICK IN BOX AND PASTE AND OK")

ELSE
USE reps ORDER fileref
GO TOP
SEEK lcnum
IF FOUND()
_CLIPTEXT = REPS.ORIGINAL
=MESSAGEBOX("CLICK START > RUN THEN RIGHTCLICK IN BOX AND PASTE AND OK")

ELSE
EXIT
ENDIF
ENDIF
ENDIF

USE cvrsht2
GO BOTT
thisform.REFRESH


ie where it says message box i would like that to automatically open the tiff file

tia Tom

Tom

ENTIRE THREAD

Automating clicking start then run Posted by Thomas Holt @ 9/27/2002 4:00:32 PM
RE: Automating clicking start then run Posted by Michael Gill @ 9/27/2002 5:47:06 PM