Espacio en el disco duro
Como se puede saber cuando espacio libre hay en el disco duro? Y como se puede saber el espacio que ocupa un fichero?
Gracias
Saludos
Gracias
Saludos
Lo del fichero es posible que te pueda ayudar hice algo que mostraba el tamaño de un fichero pero no lo tengo aqui lo mirare y el lunes si encuentro algo te lo paso. ciaoo y Suerte!!!
hola, para obtener el espacio libre puedes hacer:
Dim Fs, Unidad
Set Fs = createobject("Scripting.filesystemobject")
Set Unidad= Fs.GetDrive("C:")
MsgBox Format(Unidad.FreeSpace / 1024^2, "0.00") & " Mb libres en la unidad C"
Set Unidad = Nothing
Set Fs = Nothing
para saber el tamaño de un fichero usa la función FileLen(Ruta_Fichero), te devuelve el tamaño en bytes
saludos.
Dim Fs, Unidad
Set Fs = createobject("Scripting.filesystemobject")
Set Unidad= Fs.GetDrive("C:")
MsgBox Format(Unidad.FreeSpace / 1024^2, "0.00") & " Mb libres en la unidad C"
Set Unidad = Nothing
Set Fs = Nothing
para saber el tamaño de un fichero usa la función FileLen(Ruta_Fichero), te devuelve el tamaño en bytes
saludos.