You are not logged in. [Log In] KiXtart.org website » Forums » KiXtart » Basic Scripting » template files
Register User       Forum List       Calendar       FAQ
Page 1 of 2 12>
Topic Options
#37455 - 2003-03-06 05:24 PM template files
howyadoing Offline
Getting the hang of it

Registered: 2002-06-01
Posts: 86
Loc: Cincinnati
I am learning the variables stuff but do not completly understand it. I have multiple offices with different templates for their city. I want to add to my login script so if the user does not have the templates based on their everyone group they will be copied. I would like to list all of the files incase one gets delete that one will get copied. This is what I have so far.

$CIN0 = "\\server\share\TEMPLATES\*.*"
$CIN1 = "\\server\share\TEMPLATES\1CN_ENVBLANK.DOT"
$CIN2 = "\\server\share\TEMPLATES\1CN_ENVELOPE.DOT"
$LPC0 = "%appdata%\MICROSOFT\TEMPLATES\"
$LPC1 = "%appdata%\MICROSOFT\TEMPLATES\1CN_ENVBLANK.DOT"
$LPC2 = "%appdata%\MICROSOFT\TEMPLATES\1CN_ENVELOPE.DOT"
IF NOT EXIST ("$LPC1") <> 0
COPY "$CIN1" "$LPC0"
ELSE
? "YOU HAVE TEMPLATES"
ENDIF
IF NOT EXIST ("$LPC2") <> 0
COPY "$CIN2" "$LPC0"
ELSE
? "YOU HAVE TEMPLATES"
CINCINNATITEMP

I noticed that if I use multiple if statments it gets very complicated. Can I use something like
IF NOT EXIST ("$lpc1") ("$LPC2") etc? - So I would only have one if statement? Would this copy the one variable if missing? Also how can I use IF INGROUP ("CINEVERYONE") to apply this template to only the people in this group? Thanks for the help.
Top
#37456 - 2003-03-06 05:26 PM Re: template files
Sealeopard Offline
KiX Master
*****

Registered: 2001-04-25
Posts: 11165
Loc: Boston, MA, USA
Put the list of files into an array and use FOR EACH
code:
$a[0]='aaa.txt'
$a[1]='bbb.txt'
for each $file in $a
  if not exist('c:\temp\+$a)
    copy 'd:\temp\'+$a 'c:\temp\'+$a
  endif
next
_________________________
There are two types of vessels, submarines and targets.

Top
#37457 - 2003-03-06 05:30 PM Re: template files
Radimus Moderator Offline
Moderator
*****

Registered: 2000-01-06
Posts: 5187
Loc: Tampa, FL
why not just use xcopy or the UDF freshfile()
_________________________
How to ask questions the smart way <-----------> Before you ask

Top
#37458 - 2003-03-06 05:37 PM Re: template files
howyadoing Offline
Getting the hang of it

Registered: 2002-06-01
Posts: 86
Loc: Cincinnati
This is what I did and it did not work. I know I am missing something because this is new territory for me. thanks

$cin[0]='1CN_ENVBLANK.DOT'
$cin[1]='1CN_ENVELOPE.DOT'
if not exist('%appdata%\MICROSOFT\TEMPLATES\'+$cin)
copy '\\NAS1\DFS\SOFTWARE\APPLICATIONS\TEMPLATES\'+$cin '%appdata%\MICROSOFT\TEMPLATES\'+$cin
endif
next
Top
#37459 - 2003-03-06 06:03 PM Re: template files
Radimus Moderator Offline
Moderator
*****

Registered: 2000-01-06
Posts: 5187
Loc: Tampa, FL
try this:

requires EnumDir() from the UDF forum

code:
 
$serverfiles='\\NAS1\DFS\SOFTWARE\APPLICATIONS\TEMPLATES'
$destination='%appdata%\MICROSOFT\TEMPLATES'

$templates=enumdir('$serverfiles')
for each $file in $templates
	if not exist('$destination\$file')
		copy '$serverfiles\$file' '$destination'
		endif
	next


[ 06. March 2003, 18:04: Message edited by: Radimus ]
_________________________
How to ask questions the smart way <-----------> Before you ask

Top
#37460 - 2003-03-06 07:34 PM Re: template files
howyadoing Offline
Getting the hang of it

Registered: 2002-06-01
Posts: 86
Loc: Cincinnati
ok I do not know what I am doing wrong. I used the code you posted and all I get is

\\NAS1\DFS\SOFTWARE\APPLICATIONS\TEMPLATES

nothing else happens.
Top
#37461 - 2003-03-06 08:07 PM Re: template files
Radimus Moderator Offline
Moderator
*****

Registered: 2000-01-06
Posts: 5187
Loc: Tampa, FL
post the code you are using

I bet you didn't read the post and add the enumdir() UDF into the script.

[ 06. March 2003, 20:09: Message edited by: Radimus ]
_________________________
How to ask questions the smart way <-----------> Before you ask

Top
#37462 - 2003-03-06 08:10 PM Re: template files
howyadoing Offline
Getting the hang of it

Registered: 2002-06-01
Posts: 86
Loc: Cincinnati
$serverfiles='\\NAS1\DFS\SOFTWARE\APPLICATIONS\TEMPLATES'
$destination='%appdata%\MICROSOFT\TEMPLATES'
$templates=enumdir('$serverfiles')
FOR EACH $file in $templates
IF NOT EXIST('$destination\$file')
COPY '$serverfiles\$file' '$destination'
ENDIF

Thanks for the help. Lookging through other posts trying to gget a better understanding.
Top
#37463 - 2003-03-06 09:03 PM Re: template files
Radimus Moderator Offline
Moderator
*****

Registered: 2000-01-06
Posts: 5187
Loc: Tampa, FL
EnumDir() is a UDF (read the manual or the FAQ on what UDFs are and how you use them)

but basically, get that UDF from the UDF forum and paste it into the end of your script.
_________________________
How to ask questions the smart way <-----------> Before you ask

Top
#37464 - 2003-03-06 09:43 PM Re: template files
howyadoing Offline
Getting the hang of it

Registered: 2002-06-01
Posts: 86
Loc: Cincinnati
Thank for the direction. This is what I have so far. I have also been using kixstrip to help me figure this out. The following is the script. It looks like there is just one error on line three?

code:
$directory='\\NAS1\DFS\SOFTWARE\APPLICATIONS\TEMPLATES'
$destination='%appdata%\MICROSOFT\TEMPLATES'
$templates=enumdir($'directory')
FOR EACH $file in $templates
	IF NOT EXIST('$destination\$file')
		COPY '$directory\$file' '$destination'
		ENDIF

Function Enumdir($directory, optional $mask, Optional $Subdir)
   if $subdir   $subdir='/s'   endif
   if exist("$directory")
      $E=WshPipe('%comspec% /c dir "$directory\$mask" /b $subdir',1)
      for $element = 0 to ubound($e)
          $e[$element]=left($e[$element],len($e[$element])-1)
          next
                 $Enumdir=$e
   else
      exit 1
      endif
   endfunction

Here are the results from kixstrip420.
?"----- start-"+@time+"-"+$_debug_name+"- @error @serror"?

?"-         1-"+@time+"-"+$_debug_name+"- @error @serror"?  $directory='\\NAS1\DFS\SOFTWARE\APPLICATIONS\TEMPLATES'
?"-         2-"+@time+"-"+$_debug_name+"- @error @serror"?  $destination='%appdata%\MICROSOFT\TEMPLATES'
?"-         3-"+@time+"-"+$_debug_name+"- @error @serror"?  $templates=enumdir($'directory')
?"-         4-"+@time+"-"+$_debug_name+"- @error @serror"?  FOR EACH $file IN $templates
?"-         5-"+@time+"-"+$_debug_name+"- @error @serror"?        IF NOT EXIST('$destination\$file')
?"-         6-"+@time+"-"+$_debug_name+"- @error @serror"?              COPY '$directory\$file' '$destination'
?"-         7-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-         8-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-         9-"+@time+"-"+$_debug_name+"- @error @serror"?        ;Function Enumdir('$serverfiles')
?"-        10-"+@time+"-"+$_debug_name+"- @error @serror"?        ;        if exist("$serverfiles")
?"-        11-"+@time+"-"+$_debug_name+"- @error @serror"?        ;        $E=WshPipe('%comspec% /c dir "$directory\$mask" /b $subdir',1)
?"-        12-"+@time+"-"+$_debug_name+"- @error @serror"?        ;        for $element = 0 to ubound($e)
?"-        13-"+@time+"-"+$_debug_name+"- @error @serror"?        ;        next
?"-        14-"+@time+"-"+$_debug_name+"- @error @serror"?        ;                $Enumdir=$e
?"-        15-"+@time+"-"+$_debug_name+"- @error @serror"?        ;        else
?"-        16-"+@time+"-"+$_debug_name+"- @error @serror"?        ;        exit 1
?"-        17-"+@time+"-"+$_debug_name+"- @error @serror"?        ;        endif
?"-        18-"+@time+"-"+$_debug_name+"- @error @serror"?        ;        endfunction
?"-        19-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        20-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        21-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        22-"+@time+"-"+$_debug_name+"- @error @serror"?        FUNCTION Enumdir($directory, OPTIONAL $mask, OPTIONAL $subdir)
?"-        23-"+@time+"-"+$_debug_name+"- @error @serror"?              IF $subdir   $subdir='/s'   
                                                                         ENDIF
?"-        24-"+@time+"-"+$_debug_name+"- @error @serror"?              IF exist("$directory")
?"-        25-"+@time+"-"+$_debug_name+"- @error @serror"?                    $e=WshPipe('%comspec% /c dir "$directory\$mask" /b $subdir',1)
?"-        26-"+@time+"-"+$_debug_name+"- @error @serror"?                    FOR $element = 0 TO ubound($e)
?"-        27-"+@time+"-"+$_debug_name+"- @error @serror"?                          $e[$element]=left($e[$element],len($e[$element])-1)
?"-        28-"+@time+"-"+$_debug_name+"- @error @serror"?                    NEXT
?"-        29-"+@time+"-"+$_debug_name+"- @error @serror"?                    $enumdir=$e
?"-        30-"+@time+"-"+$_debug_name+"- @error @serror"?              ELSE
?"-        31-"+@time+"-"+$_debug_name+"- @error @serror"?                    EXIT 1
?"-        32-"+@time+"-"+$_debug_name+"- @error @serror"?              ENDIF
?"-        33-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDFUNCTION

?"------- end-"+@time+"-"+$_debug_name+"- @error @serror"
             ? "-"
             ? "-"+LCASE(@day)+" "+@date+" "+@time+"- kixtart "+@kix+"/4.00e script ending"
             IF (Val(substr(@kix,1,1)) >= 4)
               IF (len(@scriptname) <> 0)
                 " ("+LCASE(@scriptname)+")"
               ENDIF
             ENDIF
             ? "-"
             IF RedirectOutput("CON")
             ENDIF
             COLOR C+/N
             ?
             ? "Informative KIX "+@kix+":"+" debug info see "+CHR(34)+$_debug_file+CHR(34)
             IF (Val(substr(@kix,1,1)) >= 4)
               IF (len(@scriptname) <> 0)
                 " ("+LCASE(@scriptname)+")"
               ENDIF
             ENDIF
             IF RedirectOutput($_debug_file)
             ENDIF
;($begin)
;
;                       thu 06-mar-2003 15:45:20       (kix 4.20 vs 4.00e)
;
;Informative KIXSTRIP:      input=33 output=33 skip=0
;
;Warning     KIXSTRIP:    1 error in block structure. missing statement(s).
;                           - do:until                 [0:0]
;                   -ERROR- - for|each:in|to:step|next [2|1:1|1:0|1]
;                           - function:endfunction     [1:1]
;                           - if:else:endif            [3:1:3]
;                           - select:case:endselect    [0:0:0]
;                           - while:loop               [0:0]
;Warning     KIXSTRIP: some lines contains errors or possible errors.
;Informative KIXSTRIP:    6 block_structures found.
;Informative KIXSTRIP:    1 UDF found.
;Informative KIXSTRIP:   no labels found.
;Summary     KIXSTRIP:      BREAK CALL DEBUG DISPLAY ENDFUNCTION EXECUTE EXIT FUNCTION GET GETS GOSUB GOTO OLExxx PLAY QUIT RETURN RUN SHELL SLEEP THEN USE
;Informative KIXSTRIP:    1 ENDFUNCTION
;Informative KIXSTRIP:    1 EXIT
;Informative KIXSTRIP:    1 FUNCTION
;
;($end)
;($begin)
;
;
;($end)
(MCA: edit code-tag)

[ 06. March 2003, 22:56: Message edited by: MCA ]
Top
#37465 - 2003-03-06 10:20 PM Re: template files
Radimus Moderator Offline
Moderator
*****

Registered: 2000-01-06
Posts: 5187
Loc: Tampa, FL
typo on this line:
$templates=enumdir($'directory')

should be
$templates=enumdir('$directory')
_________________________
How to ask questions the smart way <-----------> Before you ask

Top
#37466 - 2003-03-06 10:40 PM Re: template files
howyadoing Offline
Getting the hang of it

Registered: 2002-06-01
Posts: 86
Loc: Cincinnati
thanks, my eyes are bugging out from looking at this. The origional error is gone now I get an error on line 12

$e=WshPipe('%comspec% /c dir "$directory\$mask" /b $subdir',1)

Am I suppose to change the $e variable to something else? There is also an $element am I suppose to change that? The following is another kixstrip
code:
 ?"----- start-"+@time+"-"+$_debug_name+"- @error @serror"?

?"-         1-"+@time+"-"+$_debug_name+"- @error @serror"?  $directory='\\NAS1\DFS\SOFTWARE\APPLICATIONS\TEMPLATES'
?"-         2-"+@time+"-"+$_debug_name+"- @error @serror"?  $destination='%appdata%\MICROSOFT\TEMPLATES'
?"-         3-"+@time+"-"+$_debug_name+"- @error @serror"?  $templates=enumdir('$directory')
?"-         4-"+@time+"-"+$_debug_name+"- @error @serror"?  FOR EACH $file IN $templates
?"-         5-"+@time+"-"+$_debug_name+"- @error @serror"?        IF NOT EXIST('$destination\$file')
?"-         6-"+@time+"-"+$_debug_name+"- @error @serror"?              COPY '$directory\$file' '$destination'
?"-         7-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-         8-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-         9-"+@time+"-"+$_debug_name+"- @error @serror"?        FUNCTION Enumdir($directory, OPTIONAL $mask, OPTIONAL $subdir)
?"-        10-"+@time+"-"+$_debug_name+"- @error @serror"?              IF $subdir   $subdir='/s'   
                                                                         ENDIF
?"-        11-"+@time+"-"+$_debug_name+"- @error @serror"?              IF exist("$directory")
?"-        12-"+@time+"-"+$_debug_name+"- @error @serror"?                    $e=WshPipe('%comspec% /c dir "$directory\$mask" /b $subdir',1)
?"-        13-"+@time+"-"+$_debug_name+"- @error @serror"?                    FOR $element = 0 TO ubound($e)
?"-        14-"+@time+"-"+$_debug_name+"- @error @serror"?                          $e[$element]=left($e[$element],len($e[$element])-1)
?"-        15-"+@time+"-"+$_debug_name+"- @error @serror"?                    NEXT
?"-        16-"+@time+"-"+$_debug_name+"- @error @serror"?                    $enumdir=$e
?"-        17-"+@time+"-"+$_debug_name+"- @error @serror"?              ELSE
?"-        18-"+@time+"-"+$_debug_name+"- @error @serror"?                    EXIT 1
?"-        19-"+@time+"-"+$_debug_name+"- @error @serror"?              ENDIF
?"-        20-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDFUNCTION

?"------- end-"+@time+"-"+$_debug_name+"- @error @serror"
             ? "-"
             ? "-"+LCASE(@day)+" "+@date+" "+@time+"- kixtart "+@kix+"/4.00e script ending"
             IF (Val(substr(@kix,1,1)) >= 4)
               IF (len(@scriptname) <> 0)
                 " ("+LCASE(@scriptname)+")"
               ENDIF
             ENDIF
             ? "-"
             IF RedirectOutput("CON")
             ENDIF
             COLOR C+/N
             ?
             ? "Informative KIX "+@kix+":"+" debug info see "+CHR(34)+$_debug_file+CHR(34)
             IF (Val(substr(@kix,1,1)) >= 4)
               IF (len(@scriptname) <> 0)
                 " ("+LCASE(@scriptname)+")"
               ENDIF
             ENDIF
             IF RedirectOutput($_debug_file)
             ENDIF
;($begin)
;
;                       thu 06-mar-2003 16:45:37       (kix 4.20 vs 4.00e)
;
;Informative KIXSTRIP:      input=20 output=20 skip=0
;
;Warning     KIXSTRIP:    1 error in block structure. missing statement(s).
;                           - do:until                 [0:0]
;                   -ERROR- - for|each:in|to:step|next [2|1:1|1:0|1]
;                           - function:endfunction     [1:1]
;                           - if:else:endif            [3:1:3]
;                           - select:case:endselect    [0:0:0]
;                           - while:loop               [0:0]
;Warning     KIXSTRIP: some lines contains errors or possible errors.
;Informative KIXSTRIP:    6 block_structures found.
;Informative KIXSTRIP:    1 UDF found.
;Informative KIXSTRIP:   no labels found.
;Summary     KIXSTRIP:      BREAK CALL DEBUG DISPLAY ENDFUNCTION EXECUTE EXIT FUNCTION GET GETS GOSUB GOTO OLExxx PLAY QUIT RETURN RUN SHELL SLEEP THEN USE
;Informative KIXSTRIP:    1 ENDFUNCTION
;Informative KIXSTRIP:    1 EXIT
;Informative KIXSTRIP:    1 FUNCTION
;
its also still saying an error on the same line, confusing, thanks again for the help

(MCA: edit code-tag)

[ 06. March 2003, 22:55: Message edited by: MCA ]
Top
#37467 - 2003-03-06 10:45 PM Re: template files
Les Offline
KiX Master
*****

Registered: 2001-06-11
Posts: 12734
Loc: fortfrances.on.ca
Well this line says it.
; -ERROR- - for|each:in|to:step|next [2|1:1|1:0|1]
Count your FORs and NEXTs.
_________________________
Give a man a fish and he will be back for more. Slap him with a fish and he will go away forever.

Top
#37468 - 2003-03-06 10:49 PM Re: template files
Les Offline
KiX Master
*****

Registered: 2001-06-11
Posts: 12734
Loc: fortfrances.on.ca
If you lose the KiXstrip debugging stuff and post in [ CODE ] tags so we could see the indenting, it would be easier to follow.

You do use indenting, right?
_________________________
Give a man a fish and he will be back for more. Slap him with a fish and he will go away forever.

Top
#37469 - 2003-03-06 11:03 PM Re: template files
MCA Offline
KiX Supporter
*****

Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
Dear,

First reaction. Don't strip the header from a file, which was created with
the kixstrip call with option /debug specified.

Possible calls we advise to use
  • for checking your code
    kixstrip input.kix output.kix /block_check
  • by problems during execution of your code and you doesn't like to step through
    kixstrip input.kix output.kix /debug
    btw: documentation is talking about the requirement that your script should
    be errorfree before you are convert it with the option /debug
in the next post we will reaction on your script.
greetings.
_________________________
email scripting@wanadoo.nl homepage scripting@wanadoo.nl | Links | Summary of Site Site KiXforms FAQ kixtart.org library collection mirror MCA | FAQ & UDF help file UDF kixtart.org library collection mirror MCA | mirror USA | mirror europe UDF scriptlogic library collection UDFs | mirror MCA

Top
#37470 - 2003-03-06 11:06 PM Re: template files
Radimus Moderator Offline
Moderator
*****

Registered: 2000-01-06
Posts: 5187
Loc: Tampa, FL
sorry... I forgot that EnumDir has a requirement of another UDF: WshPipe()
_________________________
How to ask questions the smart way <-----------> Before you ask

Top
#37471 - 2003-03-06 11:11 PM Re: template files
MCA Offline
KiX Supporter
*****

Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
Dear,

With kixstrip we solve your problem.
code:
$directory='\\NAS1\DFS\SOFTWARE\APPLICATIONS\TEMPLATES'
$destination='%appdata%\MICROSOFT\TEMPLATES'
$templates=enumdir($'directory')
FOR EACH $file IN $templates
IF NOT Exist('$destination\$file')
COPY '$directory\$file' '$destination'
ENDIF

FUNCTION enumdir($directory, OPTIONAL $mask, OPTIONAL $subdir)
IF $subdir $subdir='/s' ENDIF
IF Exist("$directory")
$e=wshpipe('%comspec% /c dir "$directory\$mask" /b $subdir',1)
FOR $element = 0 TO UBound($e)
$e[$element]=Left($e[$element],Len($e[$element])-1)
NEXT
$enumdir=$e
ELSE
EXIT 1
ENDIF
ENDFUNCTION
After the call kixstrip input.kix output.kix /block_check
code:
 $directory='\\NAS1\DFS\SOFTWARE\APPLICATIONS\TEMPLATES'
 $destination='%appdata%\MICROSOFT\TEMPLATES'
 $templates=enumdir($'directory')
 FOR EACH $file IN $templates
       IF NOT Exist('$destination\$file')
             COPY '$directory\$file' '$destination'
       ENDIF

       FUNCTION enumdir($directory, OPTIONAL $mask, OPTIONAL $subdir)
             IF $subdir $subdir='/s' 
             ENDIF
             IF Exist("$directory")
                   $e=wshpipe('%comspec% /c dir "$directory\$mask" /b $subdir',1)
                   FOR $element = 0 TO UBound($e)
                         $e[$element]=Left($e[$element],Len($e[$element])-1)
                   NEXT
                   $enumdir=$e
             ELSE
                   EXIT 1
             ENDIF
       ENDFUNCTION

;($begin)
;
;                       thu 06-mar-2003 23:06:29       (kix 4.20 vs 4.00e)
;
;Informative KIXSTRIP:      input=20 output=20 skip=0
;
;Warning     KIXSTRIP:    1 error in block structure. missing statement(s).
;                           - do:until                 [0:0]
;                   -ERROR- - for|each:in|to:step|next [2|1:1|1:0|1]
;                           - function:endfunction     [1:1]
;                           - if:else:endif            [3:1:3]
;                           - select:case:endselect    [0:0:0]
;                           - while:loop               [0:0]
;Warning     KIXSTRIP: some lines contains errors or possible errors.
;Informative KIXSTRIP:    6 block_structures found.
;Informative KIXSTRIP:    1 UDF found.
;Informative KIXSTRIP:   no labels found.
;Summary     KIXSTRIP:      BREAK CALL DEBUG DISPLAY ENDFUNCTION EXECUTE EXIT FUNCTION GET GETS GOSUB GOTO OLExxx PLAY QUIT RETURN RUN SHELL SLEEP THEN USE
;Informative KIXSTRIP:    1 ENDFUNCTION
;Informative KIXSTRIP:    1 EXIT
;Informative KIXSTRIP:    1 FUNCTION
;
;($end)
;($begin)
;
;
;($end)
After inserting missing NEXT statement and doing the call kixstrip input.kix output.kix /block_check
we get
code:
 $directory='\\NAS1\DFS\SOFTWARE\APPLICATIONS\TEMPLATES'
 $destination='%appdata%\MICROSOFT\TEMPLATES'
 $templates=enumdir($'directory')
 FOR EACH $file IN $templates
       IF NOT Exist('$destination\$file')
             COPY '$directory\$file' '$destination'
       ENDIF
 NEXT
 FUNCTION enumdir($directory, OPTIONAL $mask, OPTIONAL $subdir)
       IF $subdir $subdir='/s'
       ENDIF
       IF Exist("$directory")
             $e=wshpipe('%comspec% /c dir "$directory\$mask" /b $subdir',1)
             FOR $element = 0 TO UBound($e)
                   $e[$element]=Left($e[$element],Len($e[$element])-1)
             NEXT
             $enumdir=$e
       ELSE
             EXIT 1
       ENDIF
 ENDFUNCTION

;($begin)
;
;                       thu 06-mar-2003 23:08:12       (kix 4.20 vs 4.00e)
;
;Informative KIXSTRIP:   no errors found (input=21 output=21 skip=0).
;
;Summary     KIXSTRIP:      block structures
;                           - do:until                 [0:0]
;                           - for|each:in|to:step|next [2|1:1|1:0|2]
;                           - function:endfunction     [1:1]
;                           - if:else:endif            [3:1:3]
;                           - select:case:endselect    [0:0:0]
;                           - while:loop               [0:0]
;Informative KIXSTRIP:    6 block_structures found.
;Informative KIXSTRIP:    1 UDF found.
;Informative KIXSTRIP:   no labels found.
;Summary     KIXSTRIP:      BREAK CALL DEBUG DISPLAY ENDFUNCTION EXECUTE EXIT FUNCTION GET GETS GOSUB GOTO OLExxx PLAY QUIT RETURN RUN SHELL SLEEP THEN USE
;Informative KIXSTRIP:    1 ENDFUNCTION
;Informative KIXSTRIP:    1 EXIT
;Informative KIXSTRIP:    1 FUNCTION
;
;($end)
greetings.

btw: don't forget to read our kixstrip.pdf document, which you can find
on our site. Page
"Summary of Site" or "Home - Kix Tools".
_________________________
email scripting@wanadoo.nl homepage scripting@wanadoo.nl | Links | Summary of Site Site KiXforms FAQ kixtart.org library collection mirror MCA | FAQ & UDF help file UDF kixtart.org library collection mirror MCA | mirror USA | mirror europe UDF scriptlogic library collection UDFs | mirror MCA

Top
#37472 - 2003-03-06 11:15 PM Re: template files
MCA Offline
KiX Supporter
*****

Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
Dear Radimus,

Your topic about EnumDir is talking about that dependency.
Not only for you but also for us it is hard to see, what is go-
ing wrong when your important comment in that description is
removing in topic.
greetings.
_________________________
email scripting@wanadoo.nl homepage scripting@wanadoo.nl | Links | Summary of Site Site KiXforms FAQ kixtart.org library collection mirror MCA | FAQ & UDF help file UDF kixtart.org library collection mirror MCA | mirror USA | mirror europe UDF scriptlogic library collection UDFs | mirror MCA

Top
#37473 - 2003-03-07 02:53 AM Re: template files
howyadoing Offline
Getting the hang of it

Registered: 2002-06-01
Posts: 86
Loc: Cincinnati
I added the next as noted. Kixstrip says that there are no errors but I am still getting a line three error. Here is a copy of the code.

$directory='\\NAS1\DFS\SOFTWARE\APPLICATIONS\TEMPLATES'
$destination='%appdata%\MICROSOFT\TEMPLATES'
$templates=enumdir($'directory')
FOR EACH $file IN $templates
IF NOT Exist('$destination\$file')
COPY '$directory\$file' '$destination'
ENDIF
NEXT
FUNCTION enumdir($directory, OPTIONAL $mask, OPTIONAL $subdir)
IF $subdir $subdir='/s'
ENDIF
IF Exist("$directory")
$e=wshpipe('%comspec% /c dir "$directory\$mask" /b $subdir',1)
FOR $element = 0 TO UBound($e)
$e[$element]=Left($e[$element],Len($e[$element])-1)
NEXT
$enumdir=$e
ELSE
EXIT 1
ENDIF
ENDFUNCTION

This is the error I got

ERROR : invalid method/function call: missing comma!
Script: C:\DOCUME~1\user\Desktop\KIXTAR~1.2\KiX2001.420\file12.kix
Line : 3

this thing is driving me to drinking.
Top
#37474 - 2003-03-07 03:01 AM Re: template files
ShaneEP Moderator Offline
MM club member
*****

Registered: 2002-11-29
Posts: 2127
Loc: Tulsa, OK
As previously stated...

code:
 
$templates=enumdir($'directory')
should be

code:
 
$templates=enumdir('$directory')

Top
Page 1 of 2 12>


Moderator:  Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart 
Hop to:
Shout Box

Who's Online
0 registered and 1003 anonymous users online.
details
Newest Members
StuTheCoder, M_Moore, BeeEm, min_seow, Audio
17884 Registered Users
My Cookies · Mark all read Powered by UBB.threads™ Contact Us · KiXtart.org website · Top

Generated in 0.074 seconds in which 0.027 seconds were spent on a total of 13 queries. Zlib compression enabled.
Search the board with:
superb Board Search
or try with google:
Google
Web kixtart.org