Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Access » Espacio en Disco

Access - Espacio en Disco

Volver
Nuevo Tema
<<>>
 
Vista:

Espacio en Disco

Publicado por Xoxto Trex (7 intervenciones) el 31/05/2001 03:09:35
Hola amigos, por cuestiones de una aplicación que estoy desarrollando, necesito conocer el espacio del Disco Duro,
Mediante VBA Alguno de ustedes me puede ayudar......???

Gracias

Xoxto
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Alejandro

Espacio en Disco

Publicado por Alejandro (4142 intervenciones) el 14/04/2023 23:15:04
Sí, es posible obtener el espacio disponible en disco mediante VBA en Access. Puedes utilizar la función FileSystemObject de la biblioteca de objetos de scripting de Microsoft para lograr esto.

Aquí te dejo un ejemplo de código que muestra cómo obtener el espacio libre en disco para la unidad C:

1
2
3
4
5
6
7
8
9
10
11
12
Sub ObtenerEspacioEnDisco()
    Dim fs As Object
    Dim d As Object
 
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive("C")
 
    MsgBox "El espacio libre en disco es: " & d.FreeSpace & " bytes"
 
    Set fs = Nothing
    Set d = Nothing
End Sub

En este ejemplo, la función GetDrive() se utiliza para obtener una referencia al objeto de disco correspondiente a la unidad C. A continuación, se utiliza la propiedad FreeSpace para obtener el espacio libre en disco para esa unidad. Finalmente, se muestra el resultado utilizando la función MsgBox.

Espero que esto te ayude.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar