I.T. Discussion Community!
-Collapse +Expand
Paradox
Search Paradox Group:

Advanced
-Collapse +Expand Paradox To/From
To/FromCODEGuides
-Collapse +Expand Paradox Store
PRESTWOODSTORE

Prestwood eMagazine

February Edition
Subscribe now! It's Free!
Enter your email:

   ► KBDesktop Data...Paradox & Ob...ObjectPAL Co...OPAL: Commands   Print This     
  From the July 2010 Issue of Prestwood eMag
 
Paradox OPAL: Commands:
Finding the Path of a File
 
Posted 11 years ago on 6/3/2008
Take Away: ObjectPAL example where user selects a file and you extract the path.

KB101147



With the FileSystem commands, you can change your working directory, manipulate files on a disk, get the time and date from a file, and so on.

Suppose that you want to add a routine to a button that opens up the Paradox browser, browse for a file, select a file, and place its full path in a field. (This task is harder than it should be.)

Step By Step

1. Create a new form with a field and a button on it. Name the field fldFile and label the button Browse (see Figure 2).

2. In the pushButton event, type lines 3--23.

 1: ;Button :: pushButton
 2: method pushButton(var eventInfo Event)
 3: var
 4:   sFilename  String
 5:   fbi  FileBrowserInfo
 6: endVar
 7:
 8: if fileBrowser(sFileName, fbi) then
 9: ;A File was selected.
10:else;If no file is selected,
11:  return  ;then return.
12:endIf
13:
14:  ;Find path of file.
15:  switch
16:  case isDir(fbi.alias)
17:    : fldFile.value = fbi.alias + fbi.path + sFilename
18:  case sFilename.subStr(1,6) = ":PRIV:"
19:    : sFilename = sFilename.subStr(7, sFilename.size() - 6)
20:    fldFile.value = getAliasPath(":PRIV:") + "\\" + sFilename
21:  otherwise
22:    : fldFile.value = getAliasPath(fbi.alias) + "\\" + fbi.path + sFilename
23:   endSwitch
24: endMethod

3. Check the syntax, save the form as FINDPATH.FSL, and run it. Click the Browse button and choose a file. Try choosing files from the current working directory and from another directory using an alias.

In step 2, lines 3--6 declare an sFilename string variable to receive the name of the file in line 8 and an fbi FileBrowserInfo variable for use with fileBrowser(), also in line 8. Lines 15--23 determine the path of the file.


Comments

0 Comments.
Share a thought or comment...
 
Write a Comment...
...
Sign in...

If you are a member, Sign In. Or, you can Create a Free account now.


Anonymous Post (text-only, no HTML):

Enter your name and security key.

Your Name:
Security key = P1182A1
Enter key:
KB Post Contributed By Mike Prestwood:

Mike Prestwood is a drummer, an author, and creator of the PrestwoodBoards online community. He is the President & CEO of Prestwood IT Solutions. Prestwood IT provides Coding, Website, and Computer Tech services. Mike has authored 6 computer books and over 1,200 articles. As a drummer, he maintains play-drums.com and has authored 3 drum books. If you have a project you wish to discuss with Mike, you can send him a private message through his PrestwoodBoards home page or call him 9AM to 4PM PST at 916-726-5675 x205.

Visit Profile

 KB Article #101147 Counter
7513
Since 6/3/2008
-
   Contact Us!
 
PrestwoodBoards.com was developed and is maintainted by me. Do you have a question or suggestion? Do you see a problem? Contact me now. My goal is to build an ad-free and spam-free source of I.T. information with many contributers (ok to promote your website/company in your bio). Yes, my company Prestwood IT Solutions is mentioned in my bio which shows with every post, but you can contribute and promote your pet project too!

2,106 People Online Now!!  
Sign In to see who's online now!  Not a member? Join now. It's free!
Show more stats...


©1995-2019 PrestwoodBoards  [Security & Privacy]
Professional IT Services: Coding | Websites | Computer Tech