目录操作 学习笔记

procedure ChDir(S:string);

改变当前的目录。如果在指定路径中包含有驱动器号（盘符），则相应改变当前的驱动器。

procedure Create(const Dir:string):boolean;

新建一个目录。如果创建成功，则返回true。父目录必须存在

 procedure DirectoryExists(Name:string):boolean;

测试指定的目录是否存在。如果name指定的不是绝对路径则使用相对路径，默认在当前目录中进行查询。

 function ForceDirectories(Dir:string):boolean;

创建指定的目录。如果父目录不存在，也可以创建。并将所需的所有目录一次创建

function GetCurrentDir:string;

获取当前目录的绝对路径

procedure GetDir(D:Byte;var S:string);

获取指定驱动器中的当前目录。D为0时表示默认的驱动器。1表示A驱动器，3表示c驱动器。

procedure MkDir(s:string);

新建一个目录与createdir类似

function RemoveDir(const Dir:string):boolean;

删除一个存在的目录，目录必须为空。

function SelectDirectory(const Caption:string;const Root:WideString; out Directory:string):boolean;overload;

function SelectDirectory(var Directory:string;Options:TSelectDirOpts;HelpCtx:longint):boolean;overload;

通过显示一个对话框来让用户选择一个目录

function SetCurrentDir(const Dir:string):boolean;

设置系统的当前目录