Visualizar tamanho BD (kb/mb) data que foi criado

[ricardo coelho designer 0]

Bom dia !Bom estou precisando que no codigo abaixo mostre o tamanho do BD (kb/mb) e quando ele chegar em determinada tamanho ex.: 4 MB apareça uma mensagem: O tamanho excedeu!Agora segue o codigo utilizado:

Count_mdb = 0for each arquivo in arquivosArr_ext = Split(arquivo.name,".")If Lcase(Arr_ext(Ubound(Arr_ext))) = "mdb" ThenCount_mdb = Count_mdb + 1response.write ""&arquivo.name&"<br>"End IfnextIf Count_mdb = 0 ThenResponse.Write "Não tem arquivo de BD."End IfResponse.Write "</font>"response.write "</div><br>"%>

Agradeço desde já!

[Mário Monteiro 179]

que resultados conseguiu até agora?

[ricardo coelho designer 0]

que resultados conseguiu até agora?

Na verdade estou tentando adaptar um codigo mas não estou conseguindo entender é esse abaixo:

Dim fso, f  Set fso = CreateObject("Scripting.FileSystemObject")  Set f = fso.GetFile(""&Path&"")  ShowDateCreated = f.DateCreated  Set f = fso.GetFolder(filespec)  s = UCase(f.Name) & " uses " & f.size & " bytes."  ShowFolderSize = s

Por ventura consegui aqui no forum, mas como sou iniciante em asp não consigo entender muito bem.Se puder ajudar agradeço.