dosyanın tarihini alma
Kod: Kodu kopyalamak için üzerine çift tıklayın! function TRamazan.dosyatarihi(xfilename: string): TDateTime;
var x,x2:string;bulunan:Tsearchrec;
begin
x2:=extractfilepath(xfilename);
x:=extractfilename(xfilename);
chdir(x2);
if findfirst(x,faanyfile,bulunan)=0 then
Result:=FileDateToDateTime(bulunan.time)
else
Result:=0;
end;
__________________ SusKun ve Sessiz Mürekkep... Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
|