Search results for query: *

I have SELECT * FROM PTEMP ; INTO TABLE pictures ; ORDER BY Fname I wish to exclude all files except jpg , bmp , tif, gif etc Can anyone help? Thanks William

...aryTemp(1,5) LOCAL nCount, nMax, nLen, cFile SET DEFAULT TO (cDirectory) readpwini(inifile,'write','Paths','SearchPath',curdir() ) =ADIR(aryTemp, "*.*","AHRSD",1) logging('GetSomeFiles folder '+cDirectory) nMax = ALEN(aryTemp,1) FOR nCount = 1 TO nMax cFile = ALLTRIM(aryTemp(nCount,1)) IF...

...following code But I want the full number of columns in the original to be added to the final array - rather than just the fname =ADIR(aryTemp,"*.*","AHRSD",1) logging('GetSomeFiles folder '+cDirectory) nMax = ALEN(aryTemp,1) FOR nCount = 1 TO nMax cFile = ALLTRIM(aryTemp(nCount,1))...

Dan, Thanks for that. I've put a [Search] button on the form ( in addition to the [Find] ) and written code and it's now working to my satisfaction. I can search 3 terms - either AND or OR ing them William

On a form created by form wizard - using the [Find] button - I cannot see any Memo fields to choose to search in from the drop down list box. Is this as designed - is there a way to add them to the list and search in them? Or do I do a LOCATE in the memo field from another [Search] button...

Thanks everyone. Mike had the one I wanted ( to see what paths had been set when in the debugger - SET("PATH") William

<sigh> I've just forgotten how to see the path as set at the moment , in the debugger. I'm not finding a table when I open a form. Anyone help? William

Dan, Many thanks - simplicity itself! I just needed to set defa to the original path first - then bingo. Great! William

...will be of unknown length so the number of iterations is variable. In my own clumsy way I coded FUNCTION folderbefore PARAMETERS mytarget *!* mytarget is the previously used path a = substr(mytarget ,len(mytarget),1) IF a='\' N = 0 ELSE N = 1 ENDIF Start = 1 DO while start # 0...

Is there a function around to find the root of a folder? I am using a folder Aviation It has a path - say C:\My Pictures\Aviation I want to get to C:\My Pictures\ Anybody help? Willaim

Wow, I thought I was asking a 'simple' question. Thanks to everyone - it seems that Mike's solution is working for me. William

...to the above Sometimes my app closes Ok, on others it locks up at this DO WHILE loop and the form does not close. PROCEDURE PropShutdown() * --- Release/Close All Open Forms --- *!*Any other clean up code you may want goes here DO WHILE _SCREEN.FORMCOUNT > 0 _SCREEN.FORMS(1).RELEASE...

Mike, In looking at the Other Tab in the Project I see the two logo and icon files I have used in the project already there. I recompiled the form.prg and Built an exe. I deleted the image files from the runtime project folder. When the app runs the icon shows on the Title Bar but the logo...

Mike, I still got the error - so I put a Set Step On before the CLEAR EVENTS in destroy. When I click the X on the Main Form it justs goes directly to the error. So the Destroy method isn't being used possibly? Regards William

I have a manually coded form on which I wish to place an icon. I have used ADD OBJECT img as image WITH ; Top = 40, ; Left = 70, ; Height = 60, ; Width = 60, ; Picture = full development path to logo file,; Name = "img" It works OK in the dev environment but on other machines in which I...

I am using .container1.imgcontrol1.Picture = (mypicture) ( mypicture being the fullpathname of a say jpg file). to put a picture in a container on my form. I would like to know if it is possible to have a control which sets the mouse to draw a selection area on the image - collect the...

Mike, I have put the - and x buttons back at top right. I used a [Close] button on my working form that is always visible over the top of a black 'Main' form to run this code DO cleaner Clear EVENTS Quit I have put the above code on the Unload Method on the Main Form. Minimise...

I used IF oBrowseObject.Self.Name="Desktop" WshShell = CreateObject("WScript.Shell") cPathToReturn = WshShell.SpecialFolders(4) RETURN cPathToReturn ENDIF to open on the users desktop. Thanks William

Many thanks Brian

...to an object Line : FOR EACH item IN oBrowseObject.ParentFolder.Items FUNCTION SelDirDlg LPARAMETERS cDialogTitle, cStartingFolder, nBrowseFlags * Select a directory using the default browser dialog * Give a default title if none specified IF TYPE('cDialogTitle') # 'C' cDialogTitle =...