Can someone tell me to what thread Karsten was replying? It certainly
wan't "Third party vendors"!
-- Hedley
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.
___
You are currently subscribed to Framers as hedley.finger at myob.com.
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/hedley.finger%40myob.com
Send administrative questions to listadmin at frameusers.com. Visit
http://www.frameusers.com/ for more resources and info.