third party vendors

[Karsten Natebus]

Hello Michael,

you can do this with a recursive function or sub.

Set StartDir = 'c:\programme\';
Run RecDir pv_strDir(StartDir);

Sub RecDir Using pv_strDir
Local lv_strStartDir;
Local lv_objFileInfo;
Local lv_blnRetStat;
Local lv_strPathName;
Local lv_intRetPos;
Local lv_strExtension;
Local lv_lv_strRetStr;

Set lv_strStartDir = pv_strDir;
New EFileInfo NewVar(vFileInfo) Filename(lv_strStartDir + '\*.*');
Set lv_objFileInfo = vFileInfo;
Loop While(lv_objFileInfo.FilePresent)
If lv_objFileInfo.IsDirectory = false

// code for found files

Else
Find String('\.')
InString (lv_objFileInfo.FilePath)
ReturnPos(lv_intRetPos)
ReturnStatus(lv_blnRetStat)
ReturnString(lv_strRetStr);
If lv_blnRetStat = false
Find String('\..')
InString (lv_objFileInfo.FilePath)
ReturnPos(lv_intRetPos)
ReturnStatus(lv_blnRetStat)
ReturnString(lv_strRetStr);
if lv_blnRetStat = false
// code for found folders

//start search in folder (recursive)
Run RecDir
pv_strDir(lv_objFileInfo.FilePath);
EndIf
EndIf
EndIf
Run lv_objFileInfo.GetNext;
EndLoop
DELETE Object(lv_objFileInfo);
EndSub

See the full sourcecode on
http://framescript.natebus.de/index.php?navi=script_misc .

Best regards Karsten 'MAC' Natebus 

-Original Message-
From: framers-bounces+karsten=natebus...@lists.frameusers.com
[mailto:framers-bounces+karsten=natebus.de at lists.frameusers.com] On Behalf
Of Ann Zdunczyk
Sent: Thursday, November 16, 2006 10:23 PM
To: framers at lists.frameusers.com; framers at omsys.com
Subject: OT: third party vendors

All, 

In the process of putting together a tools and pricing plan for the VP of
Product Engineering. I am trying to find third party vendors that are
resellers of Adobe Framemaker and Adobe's own list for this information is
woefully out-of-date. Specifically, I am hoping to find vendors that still
offer the TPL version of licensing ("x" number of licenses for this reduced
rate plus a guarantee of point releases and one major upgrade), but any and
all suggestions are appreciated. I am in the Denver metro area.

TIA, 

TVB 

Tammy L. Van Boening
Engineering Technical Writer
Fiserv Insurance Solutions
Property and Casualty Division
303-729-7733
tammy.vanboening at fiserv.com 


___


You are currently subscribed to Framers as karsten at natebus.de.

Send list messages to framers at lists.frameusers.com.

To unsubscribe send a blank email to
framers-unsubscribe at lists.frameusers.com
or visit
http://lists.frameusers.com/mailman/options/framers/karsten%40natebus.de

Send administrative questions to listadmin at frameusers.com. Visit
http://www.frameusers.com/ for more resources and info.

Color definitions

[Karsten Natebus]

Hello Patricia,

The best solution is the free framescript script replacecolors.fsl from 
Klaus M?ller (itl).

http://www.itl.de/html/englisch/consulting/fsl/itl-pool.html#color

Best regards
Karsten 'MAC' Natebus

SuperImportBundle for the selective import of individual formats v2.5 is now 
available.

Re: Color definitions

[Karsten Natebus]

Hello Patricia,

The best solution is the free framescript script replacecolors.fsl from 
Klaus Müller (itl).


http://www.itl.de/html/englisch/consulting/fsl/itl-pool.html#color

Best regards
Karsten 'MAC' Natebus

SuperImportBundle for the selective import of individual formats v2.5 is now 
available.



___


You are currently subscribed to Framers as [EMAIL PROTECTED]

To unsubscribe send a blank email to 
[EMAIL PROTECTED]

or visit 
http://lists.frameusers.com/mailman/options/framers/archive%40mail-archive.com

Send administrative questions to [EMAIL PROTECTED] Visit
http://www.frameusers.com/ for more resources and info.