我Faint
周键:
I 服了 U
1、
uses FileCtrl;
procedure TForm1.Button1Click(Sender: TObject);
begin
if not DirectoryExists('c:/temp') then
if not CreateDir('C:/temp') then
raise Exception.Create('Cannot create c:/temp');
end;
2、
一般是用
function ChangeFileExt(const FileName, Extension: string): string;
另:可以先用
function ExtractFileExt(const FileName: string): string;
取文件名的后缀
