procedure tform1.addtree(path : string; parentnode: ttreenode);
varsearchrec : tsearchrec;
ifound : integer;
newnode : ttreenode;
begin
ifound := findfirst(path + '/*.*', faanyfile, searchrec);
while ifound = 0 do
begin
if (searchrec.name <> '.') and (searchrec.name <> '..') then
begin
if searchrec.attr = fadirectory then
begin
newnode := treeview1.items.addchild(parentnode, searchrec.name);
addtree(path + '/' + searchrec.name, newnode);
endelse
treeview1.items.addchild(parentnode, searchrec.name);
end;
ifound := findnext(searchrec);
end;
findclose(searchrec);
end;
procedure tform1.button1click(sender: tobject);
begin
addtree('c:', nil);
end;
目錄下檔案計數
每個linux下的path中包含的系統變數都有好多路徑 root wl ms 7673 home wl 桌面 shell echo path usr local sbin usr local bin usr sbin usr bin sbin bin usr games usr local arm ...
刪除目錄下檔案
刪除當前目錄下的檔案 1.rm f 最經典的方法，刪除當前目錄下的所有型別的檔案 2.find type f delete或find type f exec rm f 用find命令查詢普通檔案並刪除or用find命令的處理動作將其刪除 3.find type f xargs rm f 用於引數列表...
Perl獲取目錄下檔案或者包含子目錄下檔案
1 my dir d my work temp 2my files 34 獲取給定目錄下檔案 5 files get dir files dir 67 獲取給定目錄以及子目錄下檔案 8 files get dir files x dir 9 10 獲取目錄下以及子目錄下檔案，返回的結果中包含路徑 1...
Linux程式設計基礎 顯示指定目錄下檔案列表
1.實驗目的與要求 1.掌握linux系統檔案目錄的開啟 讀取 關閉等基本操作 2.掌握linux系統檔案屬性的系統呼叫 3.熟悉linux系統中檔案的基本屬性 4.回顧命令列引數 系統時間等程式設計。2.實驗原理與內容 本實驗完成ls顯示指定目錄下檔案列表的功能，如 ls 目錄 ls l 目錄 l...
ls 顯示目錄和檔案的技巧
摘自 要列出當前目錄下所有的檔名和目錄名直接使用ls命令即可。但如何只列出檔名而不列出目錄呢？查遍了ls 的幫助，也沒看到有這個現成的選項。幸好這個問題還是比較常見的，網上已經有了一些解答，但實驗之後，我發現看到的幾個連結給出的解決方法都是不完全正確的。具體如下。首先，ls l 命令可以列出如下格式...