que tal a todo
sabes me a interesado en hacer una aplicacion en visual basic en calcular la cantida o el espacio que tienes que mi HDD con alguna grafica que se podria hacer el excel para que salga en el programa el espacion que tienes el disco duro HDD con una grafica por ejemplo cuando uno en el HDD de la en propiedades un grafica de es tipo....
Primero que todo, te voy a pedir que te expreses mejor, ya que entendí la mitad de eso.
Con respecto a lo que entendí, querés hacer un programa que te muestre con gráficos de torta/barra el espacio disponible de tu disco duro.
Comentaste que se podría hacer en excel, vamos a ver...
Yo creo que sería más fácil (repito, YO CREO) programando con imagenes, pero no con otros componentes de office...
Si insertamos un shape en el formulario, y controlamos su propiedad "width" depende del espacio total en disco, entonces tendríamos un gráfico de barras, despúes para otros gráficos solamente se necesita creatividad y experiencia en programación...
Ya voy a postear algún programa que te diga el espacio total en disco con gráficos xD
;)
Ejemplo Api-Guide:
'In general section
Private Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTtoalNumberOfClusters As Long) As Long
Private Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Dim Sectors as Long,Bytes as Long,FreeC as Long, TotalC as Long,Total as Long,Freeb as Long
'Retrieve information about the C:\
GetDiskFreeSpace "C:\", Sectors, Bytes, Freec, Totalc
'Set graphic mode to persistent
Me.AutoRedraw = True
'Print the information to the form
Me.Print " Path: C:\"
Me.Print " Sectors per Cluster:" + Str$(Sector)
Me.Print " Bytes per sector:" + Str$(Bytes)
Me.Print " Number Of Free Clusters:" + Str$(Freec)
Me.Print " Total Number Of Clusters:" + Str$(Totalc)
Total = rTotalc& * rSector& * rBytes&
Me.Print " Total number of bytes in path:" + Str$(Total)
Freeb = rFreec& * rSector& * rBytes&
Me.Print " Free bytes:" + Str$(Freeb)
End sub