您现在的位置:首页 >> 硬件系统 >> 硬件系统 >> 内容

Delphi文件操作所涉及的一些函数(4)

时间:2011/9/3 15:20:08 点击:


  
//获取指定驱动器的当前路径名 GetDir   
var  
  dir: string;   
  b: Byte;   
begin  
  b := 0;   
  GetDir(b,dir);   
  ShowMessage(dir); //   
  
//第一个参数: 1、2、3、4...分别对应: A、B、C、D...   
//0 是缺省驱动器   
end;    
   

  
//文件改名 RenameFile   
var  
  OldName,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   
var  
  dir: 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   
var  
  dir: string;   
begin  
  dir := 'c:\temp\delphi';   
  RemoveDir(dir); //返回 Boolean   
  
//也可以直接用API:   
  RemoveDirectory(PChar(dir)); //返回 Boolean   
end;    
   

上一页1234567下一页

作者:webfly 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
  • 盒子文章(www.2ccc.com) © 2024 版权所有 All Rights Reserved.
  • 沪ICP备05001939号