Changeset 644 for sans/Dev/trunk/NCNR_User_Procedures/Analysis/Packages/ModelPicker/SANSModelPicker_v40.ipf
- Timestamp:
- Mar 19, 2010 11:55:53 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
sans/Dev/trunk/NCNR_User_Procedures/Analysis/Packages/ModelPicker/SANSModelPicker_v40.ipf
r619 r644 479 479 // fails miserably if there are aliases in the UP folder, although 480 480 // the #include doesn't mind 481 // 482 // SRK -2010- I need to look in the special directory too (look there first) 483 // 481 484 Function CheckFileInUPFolder(fileStr) 482 485 String fileStr … … 490 493 fileStr = RemoveExten(fileStr)+fileVerExt 491 494 495 // the Igor 6.1 User Procedure Path, same sub-folders as in Igor App Folder 496 // the installer MOVES items here, so no troubles with aliases 497 String userPathStr=RemoveEnding(SpecialDirPath("Igor Pro User Files",0,0,0),":")+":" 498 String UPStr=userPathStr+"User Procedures:" 499 NewPath /O/Q/Z UPPath ,UPStr 500 ListAllFilesAndFolders("UPPath",1,1,0) //this sets the global string allFiles 501 String list = allFiles 502 err = strsearch(list, fileStr, 0,2) //this is not case-sensitive, but Igor 5! 503 if(err != -1) 504 return(1) //name was found somewhere 505 endif 506 507 // name not found, try looking in the Igor Pro/ folder 508 // this will still fail if aliases are present here 492 509 PathInfo Igor 493 StringUPStr=S_path+"User Procedures:"510 UPStr=S_path+"User Procedures:" 494 511 NewPath /O/Q/Z UPPath ,UPStr 495 ListAllFilesAndFolders("UPPath",1,1,0) //this sets allFiles496 Stringlist = allFiles512 ListAllFilesAndFolders("UPPath",1,1,0) //this sets the global string allFiles 513 list = allFiles 497 514 // err = FindListItem(fileStr, list ,";" ,0) 498 515 err = strsearch(list, fileStr, 0,2) //this is not case-sensitive, but Igor 5!
Note: See TracChangeset
for help on using the changeset viewer.