Visual Basic - Espacio del Disco

Quisiera saber el espacio libre que va quedando en un Disquet a la hora de ir introducindo ficheros.
Todo esto es para poder utilizar el componente ProgressBar, si ustedes me sugieren otra cosa, os lo agradezco de antemano

Puedes utilizar la siguiente función del API de Windows:

Public Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTotalNumberOfClusters As Long) As Long

Aquí tienes un ejemplo de uso:

Dim result As Long
Dim sectoresPorCluster As Long
Dim bytesPorSector As Long
Dim clustersLibres As Long
Dim totalClusters As Long
Dim bytesLibres As Long

result = GetDiskFreeSpace("a:\", sectoresPorCluster, bytesPorSector, clustersLibres, totalClusters)
If result <> 0 Then
bytesLibres = sectoresPorCluster * bytesPorSector * clustersLibres
Debug.Print bytesLibres
End If

Gracias por tu consejo, pero he encontrado un metodo mejor y es utilizando el objeto FileSystemObject:
Set fs = CreateObject("Scripting.FileSystemObject")