> I ended up with this: > > function IsRootPath(APath: String): Boolean; > //crude function, it maybe needs support for UNC drives > var > D: String; > Len: Integer; > begin > D := ExtractFileDrive(APath); > Len := Length(D); > System.Delete(APath, 1, Len); > Result := (Length(APath) = 1) and (APath[1] in > AllowDirectorySeparators); > end; >
That doesn't work for // and c:\.\ and many more combinations that all end up at the root. It doesn't work for relative paths either. Ludo _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal