Delphi获取文件名、不带扩展名文件名、文件所在路径、上级文件夹路径的方法
<p>1.获取不带扩展名的文件名方法，利用ChangeFileExt函数修改传入参数的扩展为空，并不会对文件本身产生变更。</p><div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:false;">ChangeFileExt(ExtractFileName('D:\KK\Test\123.txt'),'');//返回 123</pre>
</div>
<p>2.获取上级文件夹路径的方法。</p>
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:false;">ExtractFileDir('D:\KK\Test\')+'..';//返回 D:\KK\</pre>
</div>
<p>3.获取完整文件或文件夹路径中的驱动器。</p>
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:false;">ExtractFileDrive('D:\KK\Test\');//返回 D:</pre>
</div>
<p>4.获取完整文件名中的路径，最后带"\"。</p>
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:false;">ExtractFilePath('D:\KK\Test\123.txt');//返回 D:\KK\</pre>
</div>
<p>5.获取完整文件名中的路径，最后不带"\"。</p>
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:false;">ExtractFileDir('D:\KK\Test\123.txt');//返回 D:\KK</pre>
</div>
<p>6.获取完整文件名中的文件名称(带扩展名)。</p>
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:false;">ExtractFileName('D:\KK\Test\123.txt');//返回 123.txt</pre>
</div>
<p>7.获取完整文件名中的文件扩展名(带.)。</p>
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:false;">ExtractFileExt('D:\KK\Test\123.txt');//返回 .txt</pre>
</div>
<p>8.获取相对路径。(参数：BaseName：基准文件名，DestName：目标文件名，注意\的使用)</p>
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:false;">ExtractRelativePath('D:\KK\', 'D:\KK\Test');//返回 Test
ExtractRelativePath('D:\KK\', 'D:\KK\Test\hi'); //返回 Test\hi
ExtractRelativePath('D:\KK\Test\hi', 'D:\KK'); //返回 ..\..\KK
ExtractRelativePath('D:\KK\Test\hi', 'D:\KK\Test'); //返回 ..\Test
</pre>
</div>
<p>9.获取短文件名，即8+3的DOS格式，文件名8位，扩展名3位。</p>
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:false;">ExtractShortPathName('D:\KK\Program Files\12345 78 9.txt'); //返回 D:\KK\Progra~1\123457~1.txt</pre>
</div>
<p>10.获取含有网络驱动器的文件全路径。</p>
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:false;">ExpandUNCFileName('H:\KK\delphi.exe'); //返回格式为“//机器名\共享名\文件名”</pre>
</div>
<p>11.检查文件是否与指定的文件名格式匹配，支持通配符。</p>
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:false;">MatchesMask('D:\KK\Test\123.txt', '*.?x?');//返回 True</pre>
</div><br><br>
来源：https://www.cnblogs.com/KK3228911/p/13371043.html
頁:
[1]