Compartilhar via

Objeto do drive

  • Artigo

Fornece acesso às propriedades de uma determinada unidade de disco ou compartilhamento de rede.

Comentários

O código a seguir ilustra o uso do objeto Drive para acessar propriedades da unidade.

Sub ShowFreeSpace(drvPath)
    Dim fs, d, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(drvPath))
    s = "Drive " & UCase(drvPath) & " - " 
    s = s & d.VolumeName  & vbCrLf
    s = s & "Free Space: " & FormatNumber(d.FreeSpace/1024, 0) 
    s = s & " Kbytes"
    MsgBox s
End Sub

Coleções

Coleção Descrição
Unidades Coleção somente leitura de todas as unidades disponíveis.

Propriedades

Propriedade Descrição
AvailableSpace Retorna a quantidade de espaço disponível para um usuário em uma unidade ou compartilhamento de rede especificado.
Letra da unidade Retorna uma letra maiúscula que identifica a unidade local ou um compartilhamento de rede.
DriveType Retorna o tipo de unidade especificada.
Sistema de arquivos Retorna o sistema de arquivos em uso para uma unidade especificada.
Espaço livre Retorna a quantidade de espaço livre para um usuário em uma unidade ou compartilhamento de rede especificado.
IsReady Retorna true se a unidade especificada estiver pronta e false, se não.
Path Retorna uma letra maiúscula seguida por um ponto que indica o nome do caminho para uma unidade especificada.
RootFolder Retorna um objeto Folder que representa a pasta raiz de uma unidade especificada.
SerialNumber Retorna o número de série de uma unidade especificada.
Nome de compartilhar Retorna o nome do compartilhamento de rede para uma unidade especificada.
TotalSize Retorna o tamanho total de uma unidade ou compartilhamento de rede especificado.
VolumeName Define ou retorna o nome do volume de uma unidade especificada.

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.