La Web del Programador: Comunidad de Programadores
 
    Pregunta:  5749 - FUNCION QUE ME RETORNE PROPIEDADES DE UN DISCO DURO
Autor:  felipe olivella
Como puedo saber el espacio libre en un disco mayor de 2 GB, utilizando la herramienta de visual foxpro 6?

  Respuesta:  Eddie Yanes
Felipe que tal, para obtener esa informaciĆ³n puedes utilizar las siguientes instrucciones en la Ventana de Comandos (por ejemplo):

Fs=CreateObject("Scripting.FileSystemObject")

AquĆ­ estas creando un objeto de tipo Filesystem, el cual posee entre otras el siguiente grupo de propiedades:

Fs.GetDrive("c:").SerialNumber --> Serial de la Unidad
Fs.GetDrive("c:").VolumeName --> Nombre del Volumen
Fs.GetDrive("c:").FreeSpace --> Espacio Libre de la Unidad
Fs.GetDrive("c:").TotalSize --> Espacio Total de la Unidad
Fs.GetDrive("c:").IsReady --> True: Activo; False: Inactivo

Espero te sea de Ayuda. Desde Barranquilla - Colombia.

  Respuesta:  Xavi
Utiliza la API
GetDiskFreeSpaceEx Lib "kernel32" Alias "GetDiskFreeSpaceExA" (ByVal lpRootPathName As String, lpFreeBytesAvailableToCaller As Currency, lpTotalNumberOfBytes As Currency, lpTotalNumberOfFreeBytes As Currency) As Long

Saludos

  Respuesta:  Alberto
Has intentado la funcion DISKSPACE() ?