http://sfsys.ru/index.php?action=history&feed=atom&title=File.FileName 2026-04-04T09:31:09Z Revision history for this page on the wiki MediaWiki 1.31.1 http://sfsys.ru/index.php?title=File.FileName&diff=756&oldid=prev 2021-02-07T06:50:43Z

<p>1 revision imported</p> <table class="diff diff-contentalign-left" data-mw="interface"> <tr class="diff-title" lang="en"> <td colspan="1" style="background-color: #fff; color: #222; text-align: center;">← Older revision</td> <td colspan="1" style="background-color: #fff; color: #222; text-align: center;">Revision as of 06:50, 7 February 2021</td> </tr><tr><td colspan="2" class="diff-notice" lang="en"><div class="mw-diff-empty">(No difference)</div> </td></tr></table>

Admin http://sfsys.ru/index.php?title=File.FileName&diff=755&oldid=prev 2020-02-05T08:31:42Z

<p>Created page with &quot;{{infobox function |name=FileName |object=<a href="/index.php/%D0%A4%D0%B0%D0%B9%D0%BB" title="Файл">Файл</a> |caption=Выборка файлов |type=0 |status=2 |db=0 |rw=1 |visual=0}} {{HeadLinks| * Main_Page|Начальн...&quot;</p> <p><b>New page</b></p><div>{{infobox function<br /> |name=FileName<br /> |object=[[Файл]]<br /> |caption=Выборка файлов<br /> |type=0<br /> |status=2<br /> |db=0<br /> |rw=1<br /> |visual=0}}<br /> {{HeadLinks|<br /> * [[Main_Page|Начальная страница]]<br /> * [[Общее_описание_языка|Общее описание]]<br /> * [[Объекты]]<br /> * [[Файл]]}}<br /> Получить имя файла в процессе выборки файлов с помощью функций [[File.FindOpen|FindOpen]] и [[File.FindNextFile|FindNextFile]].<br /> <br /> == Синтаксис ==<br /> &lt;code&gt;<br /> {{Grey|File.}}'''FileName''':''&lt;Имя файла выборки файлов (STRING)&gt;''<br /> &lt;/code&gt;<br /> <br /> ==== Возвращаемое значение ====<br /> Возвращается строка, файла в выборке.<br /> <br /> == Примеры ==<br /> &lt;pre&gt;<br /> Function УдалитьФайлыРекурсивно(Путь)<br /> аФС:=File.Create();<br /> аФС.FindOpen(Путь+&quot;*.*&quot;);<br /> While аФС.FindNextFile()&lt;&gt;&quot;&quot; Do<br /> Файл:=Trim(аФС.FileName);<br /> Имя:=Путь+Файл;<br /> If аФС.IsDirectory(Имя) Then<br /> УдалитьФайлыРекурсивно(Имя+&quot;\&quot;);<br /> Message(&quot;Удаляется папка &quot;+Имя+&quot;!&quot;,&quot;I&quot;);<br /> аФС.RemoveDirectory(Имя);<br /> Else <br /> Message(&quot;Удаляется файл &quot;+Имя+&quot;!&quot;,&quot;I&quot;);<br /> аФС.DeleteFile(Имя);<br /> EndIf;<br /> EndDo;<br /> EndFunction<br /> <br /> Путь:=&quot;Pictures\&quot;;<br /> УдалитьФайлыРекурсивно(Путь);<br /> &lt;/pre&gt;</div>

Admin