不知道具体路径,只有文件名
解决方案 »
- delphi+sql查询和写入问题
- delphi Tpopupmenu 边框样式!
- 请教,dephi中的string[250]应该对应c中的哪种类型
- 同志们 蒙冤 散分
- ****关于ADOConnection****
- (问)运行server端报错“有另一版本的DBLogDlg已经编译”。
- 有关SQL的问题。当我执行Query1.SQL.Add('select * into "e:\StockAcc.dbf" from CUSTstockinfo');这条语句时,报错。
- spcomm控件在程序运行期怎么设置齐偶校验位,简单问题,高分相送
- 高分求救一个关于打印的问题?????**********150*******
- delphi初學者請教
- nt 中的打印问题
- 请问B/S开发中WEBCONNCTION 与SOCKETCONNCTION及DCOMCONNCTION各自有什么优缺点
这是系统提供的函数,在指定的目录下查找文件!
你可以指定在c:\下查找你的文件,然后再打开!
如果哪个文件不在C盘呢或者不在C盘根目录下,是不是也可以找到THANKS
FileSearch
在指定的路径中查找指定的文件。
过程原型如下:
function FileSearch(const Name, DirList: string): string;
其中参数DirList中可以包含多个路径,各个路径之间使用分号(;)隔开。如果查找到符合条件的文件,则返回该文件名;否则,返回一个空字符串。
下面例子的窗体中有一个Edit组件,一个Button组件。按下Button组件后就在当前目录和Windows目录下查找Edit组件中指定文件名的文件,根据查找结果显示不同的信息。
procedure TForm1.Button1Click(Sender: TObject) ;
var
buffer: array [0..255] of char;
FileToFind: string;
begin
GetWindowsDirectory(buffer, SizeOf(buffer)); // 获取Windows系统目录
// 在当前目录下和Windows系统目录下查找文件
FileToFind := FileSearch(Edit1.Text, GetCurrentDir + ';' + buffer) ;
if FileToFind = '' then // 没有找到指定文件
ShowMessage( '没有找到文件' + Edit1.Text + '。' )
else // 找到了指定文件
ShowMessage( '找到了文件' + FileToFind + '。' ) ;
end;具体到你的问题,不妨到网上下载一本《Delphi5开发人员指南》,书中的12.4.6.节就是讲如何利用递归调用实现了对当前目录及其子目录的搜索。
书是pdf格式的,代码无法从书中Copy出来,你只能自己去找这本书看了!