Delphi如何判断一个字符串是否是一个合法的目录?

5 | 匿名 |浏览351次
检举|收藏|2016/04/02 14:01

怎么样实现判断一个字符串是否为一个合法的目录地址?

全部回答(1)
  • 可以使用如下函数的:

    function IsValidFilePath(const FileName: String): Boolean;
    var
      tmpName: String;
      I: Integer;
    begin
      result := False;
      tmpName := FileName;
      repeat
        I := LastDelimiter('\/', tmpName);
        MoveFile(nil, PChar(tmpName));
        if (GetLastError = ERROR_ALREADY_EXISTS) or
          ((GetFileAttributes(PChar(Copy(tmpName, I + 1, MaxInt))) = INVALID_FILE_ATTRIBUTES) and
          (GetLastError = ERROR_INVALID_NAME)) then
          Exit;
        if I > 0 then
          tmpName := Copy(tmpName, 1, I - 1);
      until I = 0;
      result := FileName = tmpName;
    end;


    回答于 2016/04/19 23:01
0人关注该问题



 加载中...