Autor: Jarek Lis (lis_at_okapi.ict.pwr.wroc.pl)
Data: Tue 05 Dec 1995 - 15:26:34 MET
Wojciech Giersz (chektor_at_zeus.polsl.gliwice.pl) wrote:
: Mam twardego 540 mb ,bez zadnych drivespace'ow itp(1 partycja).Wolne jest 30
: mb.Zsumowalem miejsce zajmowane na dysku przez wszystkie katalogi i pliki
: i wychodzi mi (obojetnie jakby nie liczyc) 350 mb.
: Czyli 350 + 30 = 380,prawda?
: WIEC GDZIE DO CHOLERY JEST 160 MEGA MIEJSCA???
a). czy twoja partycja nie ma przypadkiem 504 MB ? to bylo do niedawna
max co z dysku mozna bylo wyciagnac. Wtedy gubi sie nam tylko 110MB.
: P.S. Nie ma na dysku:
: 1. wirusow
: 2. bad sektorow
: 3. w ogole zadnych usterek mechanicznych ...
4. Lost clusters?
5. Hidden files?
: Wiem,ze pojemnosc moze nie nie zgadzac na wskutek calkowitej ilosci klastrow
: zajmowanej prze pliki,ale zeby az 160 mega sie wcielo?
Przy clustrze 16KB (>512MB partycja) i powiedzmy 15000 plikow tracimy
przecietnie 120MB. Moze jednak wszystko w porzadku?
Nie masz gdzies katalogu pelnego krociutkich plikow?
Jak masz cierpliwosc, to polecam Norton COmmander - wlaczasz status
(Ctrl-L), zaznaczasz wszystkie pliki, i z jednej strony masz ile to
w bajtach dysku, a z drugiej ile w bajtach plikow. Teraz cierpliwie przez
wszystkie kartoteki z kartka w reka.
: a teraz mala dygresja: checkit 3.0 pokazuje transfer 1005 kb/s,coretest
: ok 7900 kb/s (!) a inne programy testujace ok. 5 500 kb/s (durne czy jak?
: zwyczajny st3660a i 5,5 mb ???)
Checkit zaniza wyniki, coretest testuje cache dysku (7.9MB - ladny wynik),
a inne widac poza cache tez nie wychodza. Osobiscie radze zalozyc
dlugi zbior (ile tam bylo, 30MB?) z z zegarkiem w reku wykonac
copy /b zbior nul /b
Jaroslaw Lis
P.S. jesli chce ci sie przerabiac, to tu jest dobry program:
{$A+,B-,D+,E+,F+,I+,L+,N-,O-,R-,S+,V+}
{$M 16384,0,655360}
{ wyswietlanie zajetosci katalogow - taki tree
parametry: kat1
wyswietla - rozmiary.
}
uses CRT,DOS;
function DispTree(kat1: string): longint;
var dircat: SearchRec;
fs,total,totals : longint;
begin
total:=0; totals:=0;
findfirst (kat1+'*.*',Directory, dircat);
while doserror=0 do
begin
if (dircat.Attr AND Directory) = 0 then
begin
total := total+dircat.Size;
totals:= totals+dircat.Size;
end
else if (dircat.name[1] <> '.') then
totals:=totals+DispTree(kat1+dircat.name+'\');
findnext(dircat);
end;
writeln(totals:10,total:10,' ',kat1);
DispTree:=Totals;
end;
var dir1, dir2 : string[80];
begin
dir1:=ParamStr(1);
if (dir1[length(dir1)]<>':') AND (dir1[length(dir1)]<>'\') then
dir1:=dir1+'\';
if DispTree(dir1)=0 then;
end.
To archiwum zostało wygenerowane przez hypermail 2.1.7 : Tue 18 May 2004 - 12:28:00 MET DST