Ir para conteúdo

POWERED BY:

Arquivado

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

xanburzum

[Resolvido] O Objeto Drive

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

O Objeto Drive é usado para retornar informações sobre um disco rígido local ou um compartilhamento de rede. O Objeto Drive pode retornar informações sobre uma unidade,o tipo de sistema de arquivos, espaço livre, número de série, nome do volume, e mais.

 

Iremos ver hoje alguns exemplos usando o objeto Drive:

 

Obter o tamanho total de uma determinada unidade

Este exemplo demonstra como usar a propriedade TotalSize para obter o tamanho total de uma determinada unidade

 

<html>
<body>

<%
Dim fs,d,n
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set d=fs.GetDrive("c:")
n = "Drive: " & d
n = n & "<br />Total tamanho em bytes: " & d.TotalSize
Response.Write(n)
set d=nothing
set fs=nothing
%>

</body>
</html>

 

Espaço disponível de uma determinada unidade

Este exemplo demonstra como criar primeiro um objeto FileSystemObject e, em seguida, utilize a propriedade AvailableSpace para obter o espaço disponível de uma determinada unidade.

<html>
<body>

<%
Dim fs, d, n
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set d=fs.GetDrive("c:")
n = "Drive: " & d
n = n & "<br />Espaço Disponível em bytes: " & d.AvailableSpace
Response.Write(n)
set d=nothing
set fs=nothing
%>

</body>
</html>

Obtenha o espaço livre de uma determinada unidade

Este exemplo demonstra como usar a propriedade FreeSpace para obter o espaço livre de uma determinada unidade

 

<html>
<body>

<%
Dim fs, d, n
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set d=fs.GetDrive("c:")
n = "Drive: " & d
n = n & "<br />Espaço Livre em bytes: " & d.FreeSpace
Response.Write(n)
set d=nothing
set fs=nothing
%>

</body>
</html>

 

Obter a letra da unidade de uma determinada unidade

Este exemplo demonstra como usar a propriedade Letra_da_unidade para obter a letra de uma unidade especificada

 

<html>
<body>

<%
dim fs, d, n
set fs=Server.CreateObject("Scripting.FileSystemObject")
set d=fs.GetDrive("c:")
Response.Write("A letra é: " & d.driveletter)
set d=nothing
set fs=nothing
%>

</body>
</html>

Obtenha do tipo de unidade de uma determinada unidade

Este exemplo demonstra como usar a propriedade para obter DriveType do tipo de unidade de uma determinada unidade

 

<html>
<body>

<%
dim fs, d, n
set fs=Server.CreateObject("Scripting.FileSystemObject")
set d=fs.GetDrive("c:")
Response.Write("O tipo de unidade é: " & d.DriveType)
set d=nothing
set fs=nothing
%>

</body>
</html>

Obtenha o sistema de arquivos de uma determinada unidade

Este exemplo demonstra como usar a propriedade FileSystem para obter o sistema de arquivos de uma determinada unidade

 

<html>
<body>

<%
dim fs, d, n
set fs=Server.CreateObject("Scripting.FileSystemObject")
set d=fs.GetDrive("c:")
Response.Write("O sistema de arquivos é: " & d.FileSystem)
set d=nothing
set fs=nothing
%>

</body>
</html>

Este exemplo demonstra como usar a IsReady propriedade para verificar se uma determinada unidade está pronta.

 

<html>
<body>

<%
dim fs,d,n
set fs=Server.CreateObject("Scripting.FileSystemObject")
set d=fs.GetDrive("c:")
n = "The " & d.DriveLetter
if d.IsReady=true then 
	n = n & " unidade está pronta."
else
	n = n & " unidade não está pronta."
end if 
Response.Write(n)
set d=nothing
set fs=nothing
%>

</body>
</html>

Pegue o Path de uma determinada unidade

Este exemplo demonstra como usar a propriedade Path para obter o caminho de uma determinada unidade.

 

<html>
<body>

<%
dim fs,d
set fs=Server.CreateObject("Scripting.FileSystemObject")
set d=fs.GetDrive("c:")
Response.Write("O path é" & d.Path)
set d=nothing
set fs=nothing
%>

</body>
</html>

Obter a pasta raiz de uma unidade especificada

Este exemplo demonstra como usar a propriedade RootFolder para obter a pasta raiz de uma unidade especificada.

 

<html>
<body>

<%
dim fs,d
set fs=Server.CreateObject("Scripting.FileSystemObject")
set d=fs.GetDrive("c:")
Response.Write("O rootfolder é" & d.RootFolder)
set d=nothing
set fs=nothing
%>

</body>
</html>

Obtenha o serialNumber de uma determinada unidade

Este exemplo demonstra como usar a propriedade serialNumber para obter o serialNumber de uma determinada unidade.

 

<html>
<body>

<%
dim fs,d
set fs=Server.CreateObject("Scripting.FileSystemObject")
set d=fs.GetDrive("c:")
Response.Write("The serialnumber is " & d.SerialNumber)
set d=nothing
set fs=nothing
%>

</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

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

  Aceito