svnno****@sourc*****
svnno****@sourc*****
2011年 1月 27日 (木) 00:14:58 JST
Revision: 4288 http://sourceforge.jp/projects/ttssh2/svn/view?view=rev&revision=4288 Author: maya Date: 2011-01-27 00:14:58 +0900 (Thu, 27 Jan 2011) Log Message: ----------- foldercreate, folderdelete, foldersearch ãã¯ãã³ãã³ãã追å http://sourceforge.jp/ticket/browse.php?group_id=1412&tid=24134 Modified Paths: -------------- trunk/doc/en/html/about/history.html trunk/doc/en/html/macro/command/filesearch.html trunk/doc/en/html/macro/command/index.html trunk/doc/en/html/macro/syntax/variables.html trunk/doc/en/teraterm.hhc trunk/doc/en/teraterm.hhp trunk/doc/ja/html/about/history.html trunk/doc/ja/html/macro/command/filesearch.html trunk/doc/ja/html/macro/command/index.html trunk/doc/ja/html/macro/syntax/variables.html trunk/doc/ja/teraterm.hhc trunk/doc/ja/teraterm.hhp trunk/teraterm/common/helpid.h trunk/teraterm/common/ttlib.c trunk/teraterm/common/ttlib.h trunk/teraterm/ttpmacro/ttl.c trunk/teraterm/ttpmacro/ttmparse.c trunk/teraterm/ttpmacro/ttmparse.h Added Paths: ----------- trunk/doc/en/html/macro/command/foldercreate.html trunk/doc/en/html/macro/command/folderdelete.html trunk/doc/en/html/macro/command/foldersearch.html trunk/doc/ja/html/macro/command/foldercreate.html trunk/doc/ja/html/macro/command/folderdelete.html trunk/doc/ja/html/macro/command/foldersearch.html -------------- next part -------------- Modified: trunk/doc/en/html/about/history.html =================================================================== --- trunk/doc/en/html/about/history.html 2011-01-26 11:37:25 UTC (rev 4287) +++ trunk/doc/en/html/about/history.html 2011-01-26 15:14:58 UTC (rev 4288) @@ -51,6 +51,7 @@ <li>added support for mintty's application escape mode.</li> <li>added the "<a href="../macro/command/basename.html">basename</a>" and "<a href="../macro/command/dirname.html">dirname</a>" macro command.</li> <li>added the "<a href="../macro/command/getfileattr.html">getfileattr</a>" and "<a href="../macro/command/setfileattr.html">setfileattr</a>" macro command.</li> + <li>added the "<a href="../macro/command/foldercreate.html">foldercreate</a>", "<a href="../macro/command/folderdelete.html">folderdelete</a>" and "<a href="../macro/command/foldersearch.html">foldersearch</a>" macro command.</li> </ul> </li> Modified: trunk/doc/en/html/macro/command/filesearch.html =================================================================== --- trunk/doc/en/html/macro/command/filesearch.html 2011-01-26 11:37:25 UTC (rev 4287) +++ trunk/doc/en/html/macro/command/filesearch.html 2011-01-26 15:14:58 UTC (rev 4288) @@ -14,7 +14,7 @@ <h1>filesearch</h1> <p> -Search a file. +Search a file or folder. </p> <pre class="macro-syntax"> @@ -24,7 +24,7 @@ <h2>Remarks</h2> <p> -Searches for the file specified by <filename>.<br> +Searches for the file or folder specified by <filename>.<br> If it is found, the system variable "result" is set to 1. Otherwise, "result" is set to zero. </p> @@ -35,5 +35,10 @@ if result=0 messagebox 'File not found.' 'error' </pre> +<h2>See also</h2> +<ul> + <li><a href="foldersearch.html">foldersearch</a></li> +</ul> + </body> </html> Added: trunk/doc/en/html/macro/command/foldercreate.html =================================================================== --- trunk/doc/en/html/macro/command/foldercreate.html (rev 0) +++ trunk/doc/en/html/macro/command/foldercreate.html 2011-01-26 15:14:58 UTC (rev 4288) @@ -0,0 +1,38 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" + "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> + <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> + <title>foldercreate</title> + <meta http-equiv="Content-Style-Type" content="text/css"> + <link rel="stylesheet" href="../../style.css" type="text/css"> +</head> + +<body> + + +<h1>foldercreate</h1> + +<p> +Creates a folder. +</p> + +<pre class="macro-syntax"> +foldercreate <foldername> +</pre> + +<h2>Remarks</h2> + +<p> +Creates aa new folder specified by <foldername>.<br> +If the folder is created successfully, the system variable "result" is set to 0. Otherwise, "result" is set to non-zero. +</p> + +<h2>Example</h2> + +<pre class="macro-example"> +foldercreate 'data' +</pre> + +</body> +</html> Added: trunk/doc/en/html/macro/command/folderdelete.html =================================================================== --- trunk/doc/en/html/macro/command/folderdelete.html (rev 0) +++ trunk/doc/en/html/macro/command/folderdelete.html 2011-01-26 15:14:58 UTC (rev 4288) @@ -0,0 +1,39 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" + "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> + <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> + <title>folderdelete</title> + <meta http-equiv="Content-Style-Type" content="text/css"> + <link rel="stylesheet" href="../../style.css" type="text/css"> +</head> + +<body> + + +<h1>folderdelete</h1> + +<p> +Deletes a folder. +</p> + +<pre class="macro-syntax"> +folderdelete <foldername> +</pre> + +<h2>Remarks</h2> + +<p> +Deletes the folder specified by <foldername>.<br> +If the folder is deleted successfully, the system variable "result" is set to 0. Otherwise, "result" is set to non-zero.<br> +<!--tH_ªóÅÈ¢êÉÍíÅ«È¢B--> +</p> + +<h2>Example</h2> + +<pre class="macro-example"> +folderdelete 'temp' +</pre> + +</body> +</html> Added: trunk/doc/en/html/macro/command/foldersearch.html =================================================================== --- trunk/doc/en/html/macro/command/foldersearch.html (rev 0) +++ trunk/doc/en/html/macro/command/foldersearch.html 2011-01-26 15:14:58 UTC (rev 4288) @@ -0,0 +1,66 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" + "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> + <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> + <title>foldersearch</title> + <meta http-equiv="Content-Style-Type" content="text/css"> + <link rel="stylesheet" href="../../style.css" type="text/css"> +</head> + +<body> + + +<h1>foldersearch</h1> + +<p> +Search a folder. +</p> + +<pre class="macro-syntax"> +foldersearch <foldername> +</pre> + +<h2>Remarks</h2> + +<p> +Searches for the folder specified by <foldername>.<br> +If it is found, the system variable "result" is set to 1. Otherwise, "result" is set to zero. +</p> + +<h2>Note</h2> + +<!--p> +foldersearch R}hÍA<foldername> ªtH_ÌêÍ1ðÔ·ªAt@CÌêÉÍ0ðÔ·B±Ì½ßAtH_ì¬O̶Ý`FbNÉÍgpÅ«È¢B +</p--> + +<h2>Example</h2> + +<pre class="macro-example"> +foldersearch 'data' +if result=0 messagebox 'Folder not found.' 'error' + +name = 'data' +filesearch name +if result=1 then + foldersearch name + if result=1 then + sprintf2 msg '%s is a folder.' name + messagebox msg '' + else + sprintf2 msg '%s is a file.' name + messagebox msg '' + endif +else + sprintf2 msg '%s is not found.' name + messagebox msg '' +endif +</pre> + +<h2>See also</h2> +<ul> + <li><a href="filesearch.html">filesearch</a></li> +</ul> + +</body> +</html> Modified: trunk/doc/en/html/macro/command/index.html =================================================================== --- trunk/doc/en/html/macro/command/index.html 2011-01-26 11:37:25 UTC (rev 4287) +++ trunk/doc/en/html/macro/command/index.html 2011-01-26 15:14:58 UTC (rev 4288) @@ -154,6 +154,9 @@ <li><a href="filewrite.html">filewrite</a> <li><a href="filewriteln.html">filewriteln</a> <li><a href="findoperations.html">findfirst, findnext, findclose</a> + <li><a href="foldercreate.html">foldercreate</a> (version 4.69 or later) + <li><a href="folderdelete.html">folderdelete</a> (version 4.69 or later) + <li><a href="foldersearch.html">foldersearch</a> (version 4.69 or later) <li><a href="getdir.html">getdir</a> <li><a href="getfileattr.html">getfileattr</a> (version 4.69 or later) <li><a href="makepath.html">makepath</a> Modified: trunk/doc/en/html/macro/syntax/variables.html =================================================================== --- trunk/doc/en/html/macro/syntax/variables.html 2011-01-26 11:37:25 UTC (rev 4287) +++ trunk/doc/en/html/macro/syntax/variables.html 2011-01-26 15:14:58 UTC (rev 4288) @@ -122,7 +122,10 @@ <a href="../command/var2clipb.html">var2clipb</a>, <a href="../command/yesnobox.html">yesnobox</a>, <a href="../command/getfileattr.html">getfileattr</a>, - <a href="../command/setfileattr.html">setfileattr</a></td> + <a href="../command/setfileattr.html">setfileattr</a>, + <a href="../command/setfileattr.html">foldercreate</a>, + <a href="../command/setfileattr.html">folderdelete</a>, + <a href="../command/setfileattr.html">foldersearch</a></td> </tr> <tr> <td>timeout</td> Modified: trunk/doc/en/teraterm.hhc =================================================================== --- trunk/doc/en/teraterm.hhc 2011-01-26 11:37:25 UTC (rev 4287) +++ trunk/doc/en/teraterm.hhc 2011-01-26 15:14:58 UTC (rev 4288) @@ -1235,6 +1235,21 @@ <param name="ImageNumber" value="11"> </OBJECT> <LI> <OBJECT type="text/sitemap"> + <param name="Name" value="foldercreate"> + <param name="Local" value="html\macro\command\foldercreate.html"> + <param name="ImageNumber" value="11"> + </OBJECT> + <LI> <OBJECT type="text/sitemap"> + <param name="Name" value="folderdelete"> + <param name="Local" value="html\macro\command\folderdelete.html"> + <param name="ImageNumber" value="11"> + </OBJECT> + <LI> <OBJECT type="text/sitemap"> + <param name="Name" value="foldersearch"> + <param name="Local" value="html\macro\command\foldersearch.html"> + <param name="ImageNumber" value="11"> + </OBJECT> + <LI> <OBJECT type="text/sitemap"> <param name="Name" value="getdir"> <param name="Local" value="html\macro\command\getdir.html"> <param name="ImageNumber" value="11"> Modified: trunk/doc/en/teraterm.hhp =================================================================== --- trunk/doc/en/teraterm.hhp 2011-01-26 11:37:25 UTC (rev 4287) +++ trunk/doc/en/teraterm.hhp 2011-01-26 15:14:58 UTC (rev 4288) @@ -201,6 +201,9 @@ HlpMacroCommandFilewriteln=html\macro\command\filewriteln.html HlpMacroCommandFindoperations=html\macro\command\findoperations.html HlpMacroCommandFlushrecv=html\macro\command\flushrecv.html +HlpMacroCommandFoldercreate=html\macro\command\foldercreate.html +HlpMacroCommandFolderdelete=html\macro\command\folderdelete.html +HlpMacroCommandFoldersearch=html\macro\command\foldersearch.html HlpMacroCommandFornext=html\macro\command\fornext.html HlpMacroCommandGetdate=html\macro\command\getdate.html HlpMacroCommandGetdir=html\macro\command\getdir.html Modified: trunk/doc/ja/html/about/history.html =================================================================== --- trunk/doc/ja/html/about/history.html 2011-01-26 11:37:25 UTC (rev 4287) +++ trunk/doc/ja/html/about/history.html 2011-01-26 15:14:58 UTC (rev 4288) @@ -51,6 +51,7 @@ <li>mintty Ì Application Escape Mode Éε½B</li> <li>}NR}h "<a href="../macro/command/basename.html">basename</a>", "<a href="../macro/command/dirname.html">dirname</a>" ðÇÁµ½B</li> <li>}NR}h "<a href="../macro/command/getfileattr.html">getfileattr</a>", "<a href="../macro/command/setfileattr.html">setfileattr</a>" ðÇÁµ½B</li> + <li>}NR}h "<a href="../macro/command/foldercreate.html">foldercreate</a>", "<a href="../macro/command/folderdelete.html">folderdelete</a>", "<a href="../macro/command/foldersearch.html">foldersearch</a>" ðÇÁµ½B</li> </ul> </li> Modified: trunk/doc/ja/html/macro/command/filesearch.html =================================================================== --- trunk/doc/ja/html/macro/command/filesearch.html 2011-01-26 11:37:25 UTC (rev 4287) +++ trunk/doc/ja/html/macro/command/filesearch.html 2011-01-26 15:14:58 UTC (rev 4288) @@ -14,7 +14,7 @@ <h1>filesearch</h1> <p> -t@Cª é©m©ßéB +t@CܽÍtH_ª é©m©ßéB </p> <pre class="macro-syntax"> @@ -24,7 +24,7 @@ <h2>ðà</h2> <p> -t@C <filename> ª¶Ý·é©Ç¤©²×éB<br> +t@CܽÍtH_ <filename> ª¶Ý·é©Ç¤©²×éB<br> ¶Ý·éêÍAVXeÏ result É1ªÔéB¶ÝµÈ¢êÍAresult É0ªÔéB </p> @@ -35,5 +35,10 @@ if result=0 messagebox 'File not found.' 'error' </pre> +<h2>QÆ</h2> +<ul> + <li><a href="foldersearch.html">foldersearch</a></li> +</ul> + </body> </html> Added: trunk/doc/ja/html/macro/command/foldercreate.html =================================================================== --- trunk/doc/ja/html/macro/command/foldercreate.html (rev 0) +++ trunk/doc/ja/html/macro/command/foldercreate.html 2011-01-26 15:14:58 UTC (rev 4288) @@ -0,0 +1,38 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" + "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> + <meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS"> + <title>foldercreate</title> + <meta http-equiv="Content-Style-Type" content="text/css"> + <link rel="stylesheet" href="../../style.css" type="text/css"> +</head> + +<body> + + +<h1>foldercreate</h1> + +<p> +tH_ð쬷éB +</p> + +<pre class="macro-syntax"> +foldercreate <foldername> +</pre> + +<h2>ðà</h2> + +<p> +tH_ <foldername> ðVµì¬·éB<br> +tH_Ì쬪¬÷µ½êAVXeÏ result É 0 ªi[³êéB»êÈOÌê, result É 0 ÈOªi[³êéB +</p> + +<h2>á</h2> + +<pre class="macro-example"> +foldercreate 'data' +</pre> + +</body> +</html> Added: trunk/doc/ja/html/macro/command/folderdelete.html =================================================================== --- trunk/doc/ja/html/macro/command/folderdelete.html (rev 0) +++ trunk/doc/ja/html/macro/command/folderdelete.html 2011-01-26 15:14:58 UTC (rev 4288) @@ -0,0 +1,39 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" + "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> + <meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS"> + <title>folderdelete</title> + <meta http-equiv="Content-Style-Type" content="text/css"> + <link rel="stylesheet" href="../../style.css" type="text/css"> +</head> + +<body> + + +<h1>folderdelete</h1> + +<p> +tH_ðí·éB +</p> + +<pre class="macro-syntax"> +folderdelete <foldername> +</pre> + +<h2>ðà</h2> + +<p> +tH_ <foldername> ðí·éB<br> +tH_Ìíª¬÷µ½êAVXeÏ result É 0 ªi[³êéB»êÈOÌê, result É 0 ÈOªi[³êéB<br> +tH_ªóÅÈ¢êÉÍíÅ«È¢B +</p> + +<h2>á</h2> + +<pre class="macro-example"> +folderdelete 'temp' +</pre> + +</body> +</html> Added: trunk/doc/ja/html/macro/command/foldersearch.html =================================================================== --- trunk/doc/ja/html/macro/command/foldersearch.html (rev 0) +++ trunk/doc/ja/html/macro/command/foldersearch.html 2011-01-26 15:14:58 UTC (rev 4288) @@ -0,0 +1,66 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" + "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> + <meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS"> + <title>foldersearch</title> + <meta http-equiv="Content-Style-Type" content="text/css"> + <link rel="stylesheet" href="../../style.css" type="text/css"> +</head> + +<body> + + +<h1>foldersearch</h1> + +<p> +tH_ª é©m©ßéB +</p> + +<pre class="macro-syntax"> +foldersearch <foldername> +</pre> + +<h2>ðà</h2> + +<p> +tH_ <foldername> ª¶Ý·é©Ç¤©²×éB<br> +¶Ý·éêÍAVXeÏ result É1ªÔéB¶ÝµÈ¢êÍAresult É0ªÔéB +</p> + +<h2>Ó</h2> + +<p> +foldersearch R}hÍA<foldername> ªt@CƵĶݷéêÉÍ0ðÔ·B±Ì½ßAtH_ì¬O̶Ý`FbNÉÍgpÅ«È¢B +</p> + +<h2>á</h2> + +<pre class="macro-example"> +foldersearch 'data' +if result=0 messagebox 'Folder not found.' 'error' + +name = 'data' +filesearch name +if result=1 then + foldersearch name + if result=1 then + sprintf2 msg '%s is a folder.' name + messagebox msg '' + else + sprintf2 msg '%s is a file.' name + messagebox msg '' + endif +else + sprintf2 msg '%s is not found.' name + messagebox msg '' +endif +</pre> + +<h2>QÆ</h2> +<ul> + <li><a href="filesearch.html">filesearch</a></li> +</ul> + +</body> +</html> Modified: trunk/doc/ja/html/macro/command/index.html =================================================================== --- trunk/doc/ja/html/macro/command/index.html 2011-01-26 11:37:25 UTC (rev 4287) +++ trunk/doc/ja/html/macro/command/index.html 2011-01-26 15:14:58 UTC (rev 4288) @@ -154,6 +154,9 @@ <li><a href="filewrite.html">filewrite</a> <li><a href="filewriteln.html">filewriteln</a> <li><a href="findoperations.html">findfirst, findnext, findclose</a> + <li><a href="foldercreate.html">foldercreate</a> (o[W4.69È~) + <li><a href="folderdelete.html">folderdelete</a> (o[W4.69È~) + <li><a href="foldersearch.html">foldersearch</a> (o[W4.69È~) <li><a href="getdir.html">getdir</a> <li><a href="getfileattr.html">getfileattr</a> (o[W4.69È~) <li><a href="makepath.html">makepath</a> Modified: trunk/doc/ja/html/macro/syntax/variables.html =================================================================== --- trunk/doc/ja/html/macro/syntax/variables.html 2011-01-26 11:37:25 UTC (rev 4287) +++ trunk/doc/ja/html/macro/syntax/variables.html 2011-01-26 15:14:58 UTC (rev 4288) @@ -122,7 +122,10 @@ <a href="../command/var2clipb.html">var2clipb</a>, <a href="../command/yesnobox.html">yesnobox</a>, <a href="../command/getfileattr.html">getfileattr</a>, - <a href="../command/setfileattr.html">setfileattr</a></td> + <a href="../command/setfileattr.html">setfileattr</a>, + <a href="../command/setfileattr.html">foldercreate</a>, + <a href="../command/setfileattr.html">folderdelete</a>, + <a href="../command/setfileattr.html">foldersearch</a></td> </tr> <tr> <td>timeout</td> Modified: trunk/doc/ja/teraterm.hhc =================================================================== --- trunk/doc/ja/teraterm.hhc 2011-01-26 11:37:25 UTC (rev 4287) +++ trunk/doc/ja/teraterm.hhc 2011-01-26 15:14:58 UTC (rev 4288) @@ -1248,6 +1248,21 @@ <param name="ImageNumber" value="11"> </OBJECT> <LI> <OBJECT type="text/sitemap"> + <param name="Name" value="foldercreate"> + <param name="Local" value="html\macro\command\foldercreate.html"> + <param name="ImageNumber" value="11"> + </OBJECT> + <LI> <OBJECT type="text/sitemap"> + <param name="Name" value="folderdelete"> + <param name="Local" value="html\macro\command\folderdelete.html"> + <param name="ImageNumber" value="11"> + </OBJECT> + <LI> <OBJECT type="text/sitemap"> + <param name="Name" value="foldersearch"> + <param name="Local" value="html\macro\command\foldersearch.html"> + <param name="ImageNumber" value="11"> + </OBJECT> + <LI> <OBJECT type="text/sitemap"> <param name="Name" value="getdir"> <param name="Local" value="html\macro\command\getdir.html"> <param name="ImageNumber" value="11"> Modified: trunk/doc/ja/teraterm.hhp =================================================================== --- trunk/doc/ja/teraterm.hhp 2011-01-26 11:37:25 UTC (rev 4287) +++ trunk/doc/ja/teraterm.hhp 2011-01-26 15:14:58 UTC (rev 4288) @@ -211,6 +211,9 @@ HlpMacroCommandFilewriteln=html\macro\command\filewriteln.html HlpMacroCommandFindoperations=html\macro\command\findoperations.html HlpMacroCommandFlushrecv=html\macro\command\flushrecv.html +HlpMacroCommandFoldercreate=html\macro\command\foldercreate.html +HlpMacroCommandFolderdelete=html\macro\command\folderdelete.html +HlpMacroCommandFoldersearch=html\macro\command\foldersearch.html HlpMacroCommandFornext=html\macro\command\fornext.html HlpMacroCommandGetdate=html\macro\command\getdate.html HlpMacroCommandGetdir=html\macro\command\getdir.html Modified: trunk/teraterm/common/helpid.h =================================================================== --- trunk/teraterm/common/helpid.h 2011-01-26 11:37:25 UTC (rev 4287) +++ trunk/teraterm/common/helpid.h 2011-01-26 15:14:58 UTC (rev 4288) @@ -210,6 +210,9 @@ #define HlpMacroCommandFilewriteln 92037 #define HlpMacroCommandFindoperations 92039 #define HlpMacroCommandFlushrecv 92041 +#define HlpMacroCommandFoldercreate 92191 +#define HlpMacroCommandFolderdelete 92192 +#define HlpMacroCommandFoldersearch 92193 #define HlpMacroCommandFornext 92042 #define HlpMacroCommandGetdate 92043 #define HlpMacroCommandGetdir 92044 Modified: trunk/teraterm/common/ttlib.c =================================================================== --- trunk/teraterm/common/ttlib.c 2011-01-26 11:37:25 UTC (rev 4287) +++ trunk/teraterm/common/ttlib.c 2011-01-26 15:14:58 UTC (rev 4288) @@ -242,11 +242,33 @@ BOOL DoesFileExist(PCHAR FName) { // check if a file exists or not + // tH_ܽÍt@Cª êÎ TRUE ðÔ· struct _stat st; return (_stat(FName,&st)==0); } +BOOL DoesFolderExist(PCHAR FName) +{ + // check if a folder exists or not + // }NÝ·«Ì½ß + // DoesFileExist Í]ÊètH_ܽÍt@Cª êÎ TRUE ðÔµ + // DoesFileExist ÍtH_ª éêÌÝ TRUE ðÔ·B + struct _stat st; + + if (_stat(FName,&st)==0) { + if ((st.st_mode & _S_IFDIR) > 0) { + return TRUE; + } + else { + return FALSE; + } + } + else { + return FALSE; + } +} + long GetFSize(PCHAR FName) { struct _stat st; Modified: trunk/teraterm/common/ttlib.h =================================================================== --- trunk/teraterm/common/ttlib.h 2011-01-26 11:37:25 UTC (rev 4287) +++ trunk/teraterm/common/ttlib.h 2011-01-26 15:14:58 UTC (rev 4288) @@ -18,6 +18,7 @@ BYTE ConvHexChar(BYTE b); int Hex2Str(PCHAR Hex, PCHAR Str, int MaxLen); BOOL DoesFileExist(PCHAR FName); +BOOL DoesFolderExist(PCHAR FName); long GetFSize(PCHAR FName); void uint2str(UINT i, PCHAR Str, int destlen, int len); #ifdef WIN32 Modified: trunk/teraterm/ttpmacro/ttl.c =================================================================== --- trunk/teraterm/ttpmacro/ttl.c 2011-01-26 11:37:25 UTC (rev 4287) +++ trunk/teraterm/ttpmacro/ttl.c 2011-01-26 15:14:58 UTC (rev 4288) @@ -1763,6 +1763,86 @@ return 0; } +WORD TTLFolderCreate() +{ + WORD Err; + TStrVal FName; + + Err = 0; + GetStrVal(FName,&Err); + if ((Err==0) && + ((strlen(FName)==0) || (GetFirstChar()!=0))) + Err = ErrSyntax; + if (Err!=0) { + SetResult(1); + return Err; + } + + if (!GetAbsPath(FName,sizeof(FName))) { + SetResult(-1); + return Err; + } + + if (CreateDirectory(FName, NULL) == 0) { + SetResult(2); + } + else { + SetResult(0); + } + return Err; +} + +WORD TTLFolderDelete() +{ + WORD Err; + TStrVal FName; + + Err = 0; + GetStrVal(FName,&Err); + if ((Err==0) && + ((strlen(FName)==0) || (GetFirstChar()!=0))) + Err = ErrSyntax; + if (Err!=0) { + SetResult(1); + return Err; + } + + if (!GetAbsPath(FName,sizeof(FName))) { + SetResult(-1); + return Err; + } + + if (RemoveDirectory(FName) == 0) { + SetResult(2); + } + else { + SetResult(0); + } + return Err; +} + +WORD TTLFolderSearch() +{ + WORD Err; + TStrVal FName; + + Err = 0; + GetStrVal(FName,&Err); + if ((Err==0) && + ((strlen(FName)==0) || (GetFirstChar()!=0))) + Err = ErrSyntax; + if (Err!=0) return Err; + + GetAbsPath(FName,sizeof(FName)); + if (DoesFolderExist(FName)) { + SetResult(1); + } + else { + SetResult(0); + } + return Err; +} + WORD TTLFor() { WORD Err, VarId; @@ -4648,6 +4728,12 @@ Err = TTLFindNext(); break; case RsvFlushRecv: Err = TTLFlushRecv(); break; + case RsvFolderCreate: + Err = TTLFolderCreate(); break; + case RsvFolderDelete: + Err = TTLFolderDelete(); break; + case RsvFolderSearch: + Err = TTLFolderSearch(); break; case RsvFor: Err = TTLFor(); break; case RsvGetDate: Modified: trunk/teraterm/ttpmacro/ttmparse.c =================================================================== --- trunk/teraterm/ttpmacro/ttmparse.c 2011-01-26 11:37:25 UTC (rev 4287) +++ trunk/teraterm/ttpmacro/ttmparse.c 2011-01-26 15:14:58 UTC (rev 4288) @@ -191,6 +191,9 @@ else if (_stricmp(Str,"findfirst")==0) *WordId = RsvFindFirst; else if (_stricmp(Str,"findnext")==0) *WordId = RsvFindNext; else if (_stricmp(Str,"flushrecv")==0) *WordId = RsvFlushRecv; + else if (_stricmp(Str,"foldercreate")==0) *WordId = RsvFolderCreate; + else if (_stricmp(Str,"folderdelete")==0) *WordId = RsvFolderDelete; + else if (_stricmp(Str,"foldersearch")==0) *WordId = RsvFolderSearch; else if (_stricmp(Str,"for")==0) *WordId = RsvFor; break; case 'g': Modified: trunk/teraterm/ttpmacro/ttmparse.h =================================================================== --- trunk/teraterm/ttpmacro/ttmparse.h 2011-01-26 11:37:25 UTC (rev 4287) +++ trunk/teraterm/ttpmacro/ttmparse.h 2011-01-26 15:14:58 UTC (rev 4288) @@ -206,6 +206,9 @@ #define RsvDirname 188 #define RsvGetFileAttr 189 #define RsvSetFileAttr 190 +#define RsvFolderCreate 191 +#define RsvFolderDelete 192 +#define RsvFolderSearch 193 #define RsvOperator 1000 #define RsvBNot 1001