用delphi自己的控件filelistbox,directorylistbox就可以呀,很简单的,只要设置一下就能指定目录的
解决方案 »
- 关于在delphi中数据库的连接,增,删,改,查功能的实现(代码)
- 高分求广域网即时聊天程序delphi源码!
- 用Delphi6.0做一个VCL控件”直线“,请教方法?在线等
- 谁知道这么一个函数:返回一个汉字的拼音码或拼音首码?请教!
- 怎么关闭ADO连接啊 问问
- 用Table组件通过BDE访问SQL SERER 2000出错
- 小问题求急救!
- 国产olap工具软件,功能直逼BO,Brio,解决报表与数据分析的完美解决方案,免费下载使用
- 怎样把GIF动画打包进程序
- 请教delphi中类的一些问题!!
- 問一段有ClientDataSet代碼的CheckBrowseMode,IndexFieldnames,DisableControls分別是干什麼的??
- 初学者的问题,如何删除adodataset的所有记录?
uses FileCtrl;var
vSR: TSearchRec;
vFileAttrs: Integer;
begin
vFileAttrs := faAnyFile; if FindFirst(vCleanPath + '*.*' , vFileAttrs, vSR) = 0 then
begin
DeleteFile(vCleanPath + vSR.Name);
while FindNext(vSR) =0 do
begin
DeleteFile(vCleanPath + vSR.Name);
end;
end;
end;--你可以把vCleanPath 替代成你的路径!
vSR.Name就是目录名,或文件名!!