Guidance
指路人
g.yi.org
software / rapidq / Examples / File & Directory / GetVolumeInformation.bas

Register 
注册
Search 搜索
首页 
Home Home
Software
Upload

  
     DECLARE FUNCTION GetVolumeInformation LIB "kernel32" _
      ALIAS "GetVolumeInformationA" (lpRootPathName AS STRING, _
      lpVolumeNameBuffer AS LONG, nVolumeNameSize AS LONG, _
      lpVolumeSerialNumber AS LONG, lpMaximumComponentLength AS LONG, _
      lpFileSystemFlags AS LONG, lpFileSystemNameBuffer AS STRING, _
      nFileSystemNameSize AS LONG) AS LONG

     DIM rtn AS LONG, flags AS LONG, fat$ AS STRING

     fat$=SPACE$(50)

     GetVolumeInformation("C:\", VARPTR(fat$), LEN(fat$), 0, VARPTR(rtn), _
      VARPTR(flags), 0, LEN(fat$))

     IF rtn=255 THEN SHOWMESSAGE("FAT supporting Long Names")
     fat$=RTRIM$(fat$)
     SHOWMESSAGE ("Drive C is called: "+fat$)
     SHOWMESSAGE ("Flags: "+STR$(flags))
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Sat 2024-12-14  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2003-05-28 19:55:34