//判斷檔案是否存在 fileexists
varf: string;
begin
f := 'c:\temp\test.txt';
if not fileexists(f) then
begin
//如果檔案不存在
end;
end;
//判斷資料夾是否存在 directoryexists
vardir: string;
begin
dir := 'c:\temp';
if not directoryexists(dir) then
begin
//如果資料夾不存在
end;
end;
//刪除檔案 deletefile; windows.deletefile
varf: string;
begin
f := 'c:\temp\test.txt';
//deletefile(f); //返回 boolean
//或者用系統api:
windows.deletefile(pchar(f)); //返回 boolean
end;
//刪除資料夾 removedir; removedirectory
vardir: string;
begin
dir := 'c:\temp';
removedir(dir); //返回 boolean
//或者用系統 api:
removedirectory(pchar(dir)); //返回 boolean
end;
//獲取當前資料夾 getcurrentdir
vardir: string;
begin
dir := getcurrentdir;
showmessage(dir); //c:\documents and settings\wy\my documents\rad studio\projects
end;
//設定當前資料夾 setcurrentdir; chdir; setcurrentdirectory
vardir: string;
begin
dir := 'c:\temp';
if setcurrentdir(dir) then
showmessage(getcurrentdir); //c:\temp
//或者
chdir(dir); //無返回值
//也可以使用api:
setcurrentdirectory(pchar(dir)); //返回 boolean
end;
//獲取指定驅動器的當前路徑名 getdir
vardir: string;
b: byte;
begin
b := 0;
getdir(b,dir);
showmessage(dir); //
//第乙個引數: 1、2、3、4...分別對應: a、b、c、d...
//0 是預設驅動器
end;
//檔案改名 renamefile
varoldname,newname: string;
begin
oldname := 'c:\temp\old.txt';
newname := 'c:\temp\new.txt';
if renamefile(oldname,newname) then
showmessage('改名成功!');
//也可以:
setcurrentdir('c:\temp');
oldname := 'old.txt';
newname := 'new.txt';
if renamefile(oldname,newname) then
showmessage('改名成功!');
end;
//建立資料夾 createdir; createdirectory; forcedirectories
vardir: string;
begin
dir := 'c:\temp\delphi';
if not directoryexists(dir) then
createdir(dir); //返回 boolean
//也可以直接用api:
createdirectory(pchar(dir),nil); //返回 boolean
//如果缺少上層目錄將自動補齊:
dir := 'c:\temp\codegear\delphi\2007\萬一';
forcedirectories(dir); //返回 boolean
end;
//刪除空資料夾 removedir; removedirectory
vardir: string;
begin
dir := 'c:\temp\delphi';
removedir(dir); //返回 boolean
//也可以直接用api:
removedirectory(pchar(dir)); //返回 boolean
end;
//建立新檔案 filecreate
varfilename: string;
i: integer;
begin
filename := 'c:\temp\test.dat';
i := filecreate(filename);
if i>0 then
showmessage('新檔案的控制代碼是: ' + inttostr(i))
else
showmessage('建立失敗!');
end;
//獲取當前檔案的版本號 getfileversion
vars: string;
i: integer;
begin
s := 'c:\windows\notepad.exe';
i := getfileversion(s); //如果沒有版本號返回 -1
showmessage(inttostr(i)); //327681 這是當前記事本的版本號(還應該再轉換一下)
end;
//獲取磁碟空間 disksize; diskfree
varr: real;
s: string;
begin
r := disksize(3); //獲取c:總空間, 單位是位元組
r := r/1024/1024/1024;
str(r:0:2,s); //格式為保留兩位小數的字串
s := 'c盤總空間是: ' + s + ' gb';
showmessage(s); gb
r := diskfree(3); //獲取c:可用空間
r := r/1024/1024/1024;
str(r:0:2,s);
s := 'c盤可用空間是: ' + s + ' gb';
showmessage(s); gb
end;
//接 - 檔案管理類函式(2)
JAVa管理類檔案筆記
1.在檔案管理方面,成員內嵌類在編譯完成之後,所產生的檔名稱為 外部類名稱 內嵌類名稱.class,即乙個包含內嵌類的檔案編譯 後會產生兩個類 外部類名稱 內嵌類名稱.class 和 外部尖名稱.class.2.而如果該成員內嵌類是匿名內嵌類的話,則產生的類的名稱為 外部類名稱 1.class,外部...
管理類命令
管理類命令 hostname 顯示主機名稱 uname顯示系統資訊 top 顯示當前系統中耗費資源最多的程序 ps 顯示瞬間的程序狀態 du 顯示指定的檔案 目錄 已使用的磁碟空間的總量 df 顯示檔案系統磁碟空間的使用情況 free 顯示當前記憶體和交換空間的使用情況 ifconfig 顯示網路介...
管理類聯考
管理類聯考 數學 問題求解15題 條件充分性判斷10題，每題3分 共75分 高中 初中 小學數學知識的運用 邏輯推理 30題，每題2分 共60分 形式推理 論證推理 綜合推理 寫作論證有效性分析1題30分 論說文1題35分 共65分 論證有效性分析 較快地找出一段論證中的漏洞 論說文良好的議 寫作能...