Fórum saber o tamanho de determinadas PASTAS #349597
25/11/2007
0
apesar de 90¬ do que posto não tenho resposta alguma. tenho fé que um programador vai saber responder essa pergunta...
preciso saber o tamanho de determinadas PASTAS não arquivos mas os diretórios e saber o espaço disponivel no disco para que eu veja se é possivel copiar ela sem dar espaço insuficiente
obrigado pela atenção!
preciso saber o tamanho de determinadas PASTAS não arquivos mas os diretórios e saber o espaço disponivel no disco para que eu veja se é possivel copiar ela sem dar espaço insuficiente
obrigado pela atenção!
Crcam
Curtir tópico
+ 0
Responder
Posts
25/11/2007
Micheus
apesar de 90¬ do que posto não tenho resposta alguma.
que exagero... :shock: preciso saber o tamanho de determinadas PASTAS não arquivos mas os diretórios e saber o espaço disponivel no disco para que eu veja se é possivel copiar ela sem dar espaço insuficiente
tenho fé que um programador vai saber responder essa pergunta...
Vale usar o Google? Veja resultados para [url=http://www.google.com.br/search?hl=pt-BR&client=firefox-a&rls=org.mozilla:pt-BR:official&hs=lsU&sa=X&oi=spell&resnum=0&ct=result&cd=1&q=directory+size+delphi&spell=1]Directory Size Delphi[/url] (veja a 1º ou 3º link)
Responder
Gostei + 0
25/11/2007
Gigatel
[quote:a83a2ebaf9=´CRCAM´]apesar de 90¬ do que posto não tenho resposta alguma.
que exagero... :shock: preciso saber o tamanho de determinadas PASTAS não arquivos mas os diretórios e saber o espaço disponivel no disco para que eu veja se é possivel copiar ela sem dar espaço insuficiente
tenho fé que um programador vai saber responder essa pergunta...
Vale usar o Google? Veja resultados para [url=http://www.google.com.br/search?hl=pt-BR&client=firefox-a&rls=org.mozilla:pt-BR:official&hs=lsU&sa=X&oi=spell&resnum=0&ct=result&cd=1&q=directory+size+delphi&spell=1]Directory Size Delphi[/url] (veja a 1º ou 3º link)[/quote:a83a2ebaf9]não tenho nada contra o forum, más na maioria das vezes é melhor buscar no google mesmo, geralmente é mais rápido e mais explicado..
quando o fórum era mais novo dependia das vizistas (querendo ou não o site é grande hoje graças ao fórum), pelo menos uma resposta do tipo ´pô cara essa é complicado más vamos tentar´ mesmo que não obtíamos sucesso nakilo que era proposto ainda sim ficava satisfeito, pois tentamos. hoje o site grande tem seus associados, vendem revistas e tals acho que o lucro neste caso tá falando mais alto (e de uma certa forma aproveitar o sucesso pois ninguém trabalha de graça, e assim que os sites sobrevivem), e os que sabem muito geralmente nem tempo para ajudar tem pois geralmente são grandes programadores de empresas e por isso não pode ficar perdendo tempo com perguntas..más é isso é apenas uma opinião e deixar claro que já fui muito ajudado aki no fórum e tbm muita pergunta sem resposta. flw t+
e quanto sua pergunta
procedure TForm1.Find(Str: string);
var
MySearch: TSearchRec;
FindResult: Integer;
begin
FindResult:=FindFirst(Str+´\*.*´,
faArchive+faHidden+
faAnyFile+faVolumeID+
faSysFile+faReadOnly+faDirectory,
MySearch);
while FindResult=0 do
begin
if (MySearch.Attr=faDirectory) and
(MySearch.Name<>´.´) and
(MySearch.Name<>´..´) then
Find(Str+´\´+MySearch.Name)
else
TotalSize:=TotalSize+MySearch.Size;
FindResult:=FindNext(MySearch);
end;
FindClose(MySearch);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
TotalSize:=0;
if Length(Edit1.Text)>0 then
begin
Find(Edit1.Text);
Label2.Caption:=´Total size = ´+IntToStr(TotalSize);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
St: string;
begin
St:=´c:\´;
if SelectDirectory(St, [], 0) then
Edit1.Text:=St;
end;
Responder
Gostei + 0
28/11/2007
Crcam
valeu pelo codigo...
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)