Hmmm
Krohni
procedure TForm1.Button3Click(Sender: TObject);
var
SR: TSearchRec;
begin
if FindFirst('e:\*', faVolumeID, SR)=0 then
ShowMessage(DateTimeToStr(FileDateToDateTime(SR.Time)))
else
ShowMessage('Oops');
FindClose(SR);
end;
-Michael