[Resolvido]É possível verificar o espaço livre em disco

Boa tarde

Tenho uma base de dados a qual insere muitas fotos numa pasta, as quais vão retirando espaço no disco.

Preciso que ao clicar no botão Inserir Fotos, o programa me informe o espaço que tenho livre no disco.

Porque vão inserindo fotos ficam sem espaço e o programa da erro e para.



Desde já muito obrigado

Olá Ventura,

Veja se é o que pretende:

Código:

Function fncEspacoUnidade(sUnidade)
' Autor ..: Alvaro Teixeira (ahteixeira)
' Para ...: MaximoAccess.com
' Data ...: 18-09-2023
' Função .: Obter espaço livre de unidade (c: , d: , ...)
' Adaptado: https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/freespace-property
    Dim fs, d
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(sUnidade))
    fncEspacoUnidade = FormatNumber(d.FreeSpace / 1024, 0) & " Kbytes"
End Function

Abraço

Ola Alvaro , boa tarde

E mesmo isso

Muito Obrigado, Abraço

Caro Álvaro!

Baixei seu código e não executa corretamente. Dando: Erro em tempo de execução 5: Argumento ou chamada de procedimento inválida na linha Set d = fs.GetDrive(fs.GetDriveName(drvPath)). Será que falta alguma biblioteca?

Muito grato

Abraço

Olá,

Não fiz validação de dados nem tratamento de erros, mas creio que está a faltar é você passar o parâmetro da unidade.

Teste assim, crie num botão coloque o seguinte código:

Código:

MsgBox fncEspacoUnidade("C:")

Abraço

Perfeito Álvaro.

Muito grato

Abraços