uni$ = "C"
R = GetDiskFreeSpaceExA(uni$ + ":\" + CHR$(0), free~&&, total~&&, free2~&&)
IF R THEN
    vo$ = STR$(free~&&):  vo1$ = STR$(total~&&)
    PRINT "Free space  = "; vo$:    PRINT "Total space = "; vo1$
    INPUT k$
END IF
END
'qb64 x64
DECLARE DYNAMIC LIBRARY "kernel32"
 FUNCTION GetDiskFreeSpaceExA& (filename$, free AS _UNSIGNED _INTEGER64, total AS _UNSIGNED _INTEGER64, free2 AS _UNSIGNED _INTEGER64)
END DECLARE