Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

CaBo GeL

Quantos de espaco livre

Recommended Posts

<% set fso = CreateObject("Scripting.FileSystemObject") for each drive in fso.Drives cDriveName = fso.GetDriveName(drive) set cDrive = fso.GetDrive(drive) if cDrive.DriveType=2 then response.Write cDriveName & " - " &_ formatnumber(cDrive.FreeSpace/1024/1024,0) &_ " MB free<br>" end if next set fso = nothing %>

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.