Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Win95 diskspace limitation
Message
General information
Forum:
Visual FoxPro
Category:
Troubleshooting
Miscellaneous
Thread ID:
00454307
Message ID:
00455389
Views:
33
>Hi George,
>
>Most of the Win95B system will only see the most up to 2G of diskspace on
>a mapped NT server, even thought the mapped space had more that 2G of diskspace
>which I had confirm and verify. Therefore, I am confused whether this problem
>is due to win95B or any other issue. Thank advise and comment. Thank for your
>help

Not having access to either platform, it's impossible for me to say. As I mentioned earlier, however, what comes to mind is how much space on the server is allocated to the user. While the documentation indicates that per user quotas are support only on Win2K, you might try the following to see what the results are:
DECLARE INTEGER GetDiskFreeSpaceEx IN Win32API;
    STRING @lpDirectoryName,;
    STRING @lpFreeBytesAvailableToCaller,;
    STRING @lpTotalNumberOfBytes,;
    STRING @lpTotalNumberOfFreeBytes
lcdrive = "F:\"
STORE REPLICATE(CHR(0), 8) TO lccaller, lctotal, lcfree
IF GetDiskFreeSpaceEx(@lcdrive, @lccaller, @lctotal, @lcfree) # 0
  ? StringToInteger(lccaller) && Available to caller
  ? StringToInteger(lctotal) && Total space
  ? StringToInteger(lcfree) && Free space
ENDIF

FUNCTION StringToInteger
    
  LPARAMETER pcstring, plsigned
    
  LOCAL lnresult, lnlast, lni, llsigned,;
    lnmsb, lnmax
  lnresult = 0
  lnlast = LEN(pcstring)
  * Return Signed Integer?
  IF PCOUNT() = 2
    llsigned = plsigned
  ELSE
    llsigned = .F.
  ENDIF
  FOR lni = 1 TO lnlast
    lnresult = lnresult + ASC(SUBSTR(pcstring, lni, 1)) * (256 ^ (lni - 1))
  NEXT
  IF llsigned
    lnmsb = (lnlast * 8) - 1
    IF BITTEST(lnresult, lnmsb)
      lnmax = (2 ^ (lnmsb + 1))
      lnresult = lnresult - lnmax
    ENDIF
  ENDIF
  RETURN lnresult
ENDFUNC
George

Ubi caritas et amor, deus ibi est
Previous
Reply
Map
View

Click here to load this message in the networking platform