我想在程序中通过代码实现对某个文件的查找,即确定它在盘中所存储的位置,(在哪个盘,哪个文件目录下),我该如何实现呢???
解决方案 »
- Stream 数据流处理 ?
- 如何实现编辑框中按回车实现Tab键功能?
- 在TDBGrid中设置了一列显示为:CHECKBOX 如何可以实现让他可以点击修改?
- 请教各位:两个问题,急!!!
- 试用期的考验!!!求救各位高手帮忙,明天就要交了,在线
- 娟娟问问题1:很简单的,不过我不太明白
- 高手帮助:如何恢复开发环境中Delphi原有设计界面?
- jimmy8hcn come on i give you moneyincsdn
- 在MDI程序中,于TMDIChildForm上放置DHTMLEdit控件,新建多个子窗口,对其中任一窗口进行保存后,在关闭此窗口时便会弹出类似"Access violati
- 在线的签到
- 200分,急啊。如何编写一程序来创建一触发器呢。我这样写说有语法错误。求救.(在线等待)
- 高手救我啊。Sql server 中出现Ole error
function IsValidDir(SearchRec:TSearchRec):Boolean;
begin
if (SearchRec.Attr=16) and
(SearchRec.Name<>'.') and
(SearchRec.Name<>'..') then
Result:=True
else
Result:=False;
end;// 子目录级的文件查询--查询主体函数
function SearchFile(mainpath:string; filename:string;var foundresult:TStrings):Boolean;
var
i:integer;
Found:Boolean;
subdir1:TStrings;
searchRec:TsearchRec;
begin
found:=false;
if Trim(filename)<>'' then
begin
subdir1:=TStringList.Create;//字符串列表必须动态生成
//找出所有下级子目录。
if (FindFirst(mainpath+'*.*', faDirectory, SearchRec)=0) then
begin
if IsValidDir(SearchRec) then
subdir1.Add(SearchRec.Name);
while (FindNext(SearchRec) = 0) do
begin
if IsValidDir(SearchRec) then
subdir1.Add(SearchRec.Name);
end;
end;
FindClose(SearchRec);
//查找当前目录。
if FileExists(mainpath+filename) then
begin
found:=true;
foundresult.Add(mainpath+filename);
end;
//这是递归部分,查找各子目录。
for i:=0 to subdir1.Count-1 do
found:=Searchfile(mainpath+subdir1.Strings[i]+ '\',Filename,foundresult)or found;
//资源释放并返回结果
subdir1.Free;
end;
result:=found;
end;