|
|
导航: |
论坛 -> 论坛精华贴
斑竹:liumazi,iamdream |
|
作者: |
|
2004/4/12 10:05:41 |
标题: |
|
加入我的收藏 |
楼主: |
比如我要判断d:\music下有没有后缀名为.mp3的文件,该怎么做呀??
----------------------------------------------
生命中,不断地有人离开或进入。于是,看见的,看不见的;记住的,遗忘了。 生命中,不断地有得到和失落。于是,看不见的,看见了;遗忘的,记住了。 然而,看不见的,是不是就等于不存在?记住的,是不是永远不会消失? |
作者: |
|
2004/4/12 10:42:50 |
1楼: |
用目录列表的控件列一下目录不就得了。
----------------------------------------------
-
|
作者: |
|
2004/4/12 10:51:45 |
2楼: |
dir()=2;
----------------------------------------------
我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com
|
作者: |
|
2004/4/12 16:05:50 |
3楼: |
waterstone (水石山人) 可以说清楚一点吗??
----------------------------------------------
生命中,不断地有人离开或进入。于是,看见的,看不见的;记住的,遗忘了。 生命中,不断地有得到和失落。于是,看不见的,看见了;遗忘的,记住了。 然而,看不见的,是不是就等于不存在?记住的,是不是永远不会消失?
|
作者: |
|
2004/4/12 16:46:19 |
4楼: |
晕,找一下文件不就行了?
偶来写一个func:
function IsEmptyFolder(sPath: string): boolean; var Status: Integer; SearchRec: TSearchRec; tsPath , tsMask :string; begin tsPath := sPath; tsMask := tsPath +'*.*'; Status := FindFirst(tsMask, faAnyFile, SearchRec); Result := (Status <> 0); end;
----------------------------------------------
www.acreport.com
|
作者: |
|
2004/4/12 16:47:08 |
5楼: |
晕,找一下文件不就行了?
偶来写一个func:
function IsEmptyMp3Folder(sPath: string): boolean; var Status: Integer; SearchRec: TSearchRec; tsPath , tsMask :string; begin tsPath := sPath; tsMask := tsPath +'*.mp3'; Status := FindFirst(tsMask, faAnyFile, SearchRec); Result := (Status <> 0); end;
----------------------------------------------
www.acreport.com
|
作者: |
|
2004/4/12 18:18:40 |
6楼: |
好,加入精华贴!
----------------------------------------------
我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com
|
|