IsFolder(Folder: String): Boolean;

[[Gunman]]

Aaaaahmmmmm... Ahora pruebo...

(Probando...)

Pues no... Aquí dejo el error y el código:

if FileExists(IncludeTrailingPathDelimiter(CDirLCCB.Text)+
 				Item.Caption) = True then
   begin
 	AssignFile(f, OpenDialog1.FileName);
 	Reset(f);
 	try
 	  Item.SubItems.Add(IntToStr(FileSize(f)));
 	finally
 	  CloseFile(f);
 	end;
   end
   else
 	Item.SubItems.Add('');

El Error: EInOutError (I/O Error 6)

[[Héctor Randolph]]

Que tal si lo intentas de esta forma:

Código Delphi [-]
function IsFolder(Folder: String): Boolean;
var
  Attributes:Word;
begin
  Attributes:=FileGetAttr(Folder);
  Result:=(Attributes and faDirectory)=faDirectory;
end;

Un saludo.

[[Lepe]]

Señores, no nos compliquemos la vida, usemos:

DirectoryExists (para comprobar que primero existe la carpeta)
FileExists (para comprobar que despues existe el archivo)


Si quieres obtener el tamaño de un archivo, busca por el foro e internet, ya que el tamaño creo que se guarda como un Int64, no cabe en el FileSize para archivos grandes y tienes que consultar 2 campos para ello.

saludos