<% 'rotina para pegar o tamanho do arquivo public Sub LeArquivo(Pasta, Arquivo) dim strRaiz, objFS, objRaiz, Folder, File, StrI 'strRaiz = Server.Mappath("brazjurol/site/" & pasta) strRaiz = Server.Mappath(pasta) set objFS = Server.CreateObject("Scripting.FileSystemObject") Set objRaiz = objFS.GetFolder(strRaiz) for each File in objRaiz.Files if File.Name = Arquivo then Tamanho = formatNumber((File.size*0.001),0,false,true,true) & " KB" if not isnull(Tamanho) then response.write "File Size: " & Tamanho else response.write "zzz" end if ' else ' response.write "File does not exists" end if next end sub %> :: BRAZILIAN JOURNAL OF UROLOGY ::


 

Where this PDF icon appears, , full-text documents in PDF format are viewable using the free Adobe Acrobat Reader .

 

GENERAL INFORMATION - VOLUME 30, 2004

Contents
Author Index
  Subject Index
Reviewers
     

 
Contents
 
P. 535-540
     


<% Learquivo "november_december_2004/", "Contents_index_535_540_2004.htm"%>


<% Learquivo "november_december_2004/", "Contents_index_535_540_2004.pdf"%>

 

 

 
Author Index
 
P. 541-542
     


<% Learquivo "november_december_2004/", "Authors_index_541_542_2004.htm"%>


<% Learquivo "november_december_2004/", "Authors_index_541_542_2004.pdf"%>

 

 

 
Subject Index
 
P. 543-547
     


<% Learquivo "november_december_2004/", "Subject_index_543_547_2004.htm"%>


<% Learquivo "november_december_2004/", "Subject_index_543_547_2004.pdf"%>

 

 

 
Reviewers
 
P. 548-549
     


<% Learquivo "november_december_2004/", "Reviewers_548_549_2004.htm"%>


<% Learquivo "november_december_2004/", "Reviewers_548_549_2004.pdf"%>