文件夹,txt文件操作

vincent__hu

于 2005-10-22 09:44:00 发布

阅读量801

点赞数

分类专栏： delphi 文章标签： path string

本文链接：https://blog.youkuaiyun.com/vincent__hu/article/details/513461

版权

delphi 专栏收录该内容

17 篇文章

订阅专栏

var
path:string;
begin
    Path := ExtractFilePath(paramstr(0))+ '/Log/Operate';
    if not DirectoryExists(Path) then
    begin
        Try
            ForceDirectories(Path);
        Except
            Exit;
        End;
    end;
    {path := path + '/'+DateToStr(Now)+'.txt';
    Info := '**********************************************'+ Char(13) +chr(10)
           +'操作时间:' + char(vk_tab) + DateTimeToStr(now) + Char(13) +chr(10)
           +'操作信息:' + char(vk_tab) +     Info           + Char(13) +chr(10);

    Assign(LogFile,path);
    Try
        Append(LogFile);
        WriteLn(LogFile,info);
        CloseFile(LogFile);
    Except
        ReWrite(LogFile);
        WriteLn(LogFile,info);
        CloseFile(LogFile);
    End;
    Result := 'OK'; }
end;