Delphi 資料夾操作

uses

shellapi
//建立資料夾
procedure tfrmmain.cxbutton1click(sender: tobject);
begin
createdirectory(pchar(extractfilepath(paramstr(0))+ 'microblue'),nil);
end;
//刪除資料夾，放到**站
procedure tfrmmain.cxbutton2click(sender: tobject);
var  t: tshfileopstruct;
p: string;
begin
p := extractfilepath(paramstr(0)) + 'microblue';
with t do
begin
wnd := 0;
wfunc := fo_delete;
pfrom := pchar(p);
pto := nil;
fflags := fof_allowundo + fof_noerrorui;
lpszprogresstitle := '正在刪除資料夾';
fanyoperationsaborted := false;
end;
if shfileoperation(t) = 0 then
begin
showmessage('刪除成功！');
endelse
begin
showmessage('刪除失敗！');
end;  
end;
//直接刪除資料夾
procedure tfrmmain.cxbutton3click(sender: tobject);
begin
removedirectory (pchar(extractfilepath(paramstr(0))+ 'microblue'));
end;

delphi 選擇資料夾，路徑選擇，瀏覽資料夾

選擇資料夾，路徑選擇，資料夾資源管理器 推薦 selectdirectory vcl.filectrl.hpp if selectdirectory 請選擇目錄 daopath selectdirectory include filectrl.hpp const seldirhelp 1000 vo...

資料夾操作

建立資料夾 char buf 256 getcurrentdirectory 256,buf 獲取程式根目錄路徑 m name.getwindowtext name strcat buf,strcat buf,name createdirectory buf,null 刪除資料夾 char buf ...

檔案（夾）操作

對檔案和資料夾操作的類 1.fileinfo具體檔案，使用此類的物件，可以獲得問價大小等各種資訊 繼承自filesysteminfo 建立物件，fileinfo fi new fileinfo 常用屬性 name 檔名稱 extension 副檔名 fullname 檔案完全路徑 物理路徑 leng...