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