获得磁盘相关信息

Lisphk

1. ; -- Function VxGetDriveInfos
   
2. ; Returns information's from a drive.
   
3. ; Copyright:
   
4. ;   ©2001 MENZI ENGINEERING GmbH, Switzerland
   
5. ; Arguments [Type]:
   
6. ;   Drv = Drive character, e.g. "C" or "C:" [STR]
   
7. ; Return [Type]:
   
8. ;   > Drive infos '(TotalSize FreeSpace DriveType FileSystem SerialNumber
   
9. ;                   ShareName VolumeName)
   
10. ;     Explanations:
    
11. ;     - TotalSize (kB)
    
12. [REAL]
    
13. ;       Returns the total space of a drive or network share.
    
14. ;     - FreeSpace (kB) [REAL]
    
15. ;       Returns the amount of space available to a user on the specified drive
    
16. ;       or network share.
    
17. ;     - DriveType [INT]
    
18. ;       0 = "Unknown"
    
19. ;       1 = "Removable"
    
20. ;       2 = "Fixed"
    
21. ;       3 = "Network"
    
22. ;       4 = "CD-ROM"
    
23. ;       5 = "RAM Disk"
    
24. ;     - FileSystem [STR]
    
25. ;       Returns the type of file system in use for the specified drive, e.g.
    
26. ;       "FAT", "NTFS", "CDFS".
    
27. ;     - SerialNumber [INT]
    
28. ;       Returns the serial number used to uniquely identify a disk volume.
    
29. ;     - ShareName [STR]
    
30. ;       Returns the network share name (UNC) for the specified drive. If it's
    
31. ;       not a network drive, ShareName returns a zero-length string ("").
    
32. ;     - VolumeName [STR]
    
33. ;       Returns the volume name of the specified drive.
    
34. ;   >  0 The drive doesn't exist.
    
35. ;   > -1 The drive is not ready. For removable-media drives and CD-ROM drives,
    
36. ;        VxGetDriveInfos returns -1 when the appropriate media is not inserted
    
37. ;        or not ready for access.
    
38. ; Notes:
    
39. ;   - Requires ScrRun.dll (see also notes at top of page).
    
40. ;
    
41. (defun VxGetDriveInfos (Drv / DrvObj FilSys RetVal)
    
42. (vl-load-com)
    
43. (setq FilSys (vlax-create-object "Scripting.FileSystemObject")
    
44.        RetVal (cond
    
45.                ((= (vlax-invoke FilSys 'DriveExists Drv) 0) 0)
    
46.                ((setq DrvObj (vlax-invoke FilSys 'GetDrive Drv))
    
47.                 (cond
    
48.                  ((= (vlax-get DrvObj 'IsReady) 0) -1)
    
49.                  ((list
    
50.                    (/ (vlax-get DrvObj 'TotalSize) 1000.0)
    
51.                    (/ (vlax-get DrvObj 'FreeSpace) 1000.0)
    
52.                    (vlax-get DrvObj 'DriveType)
    
53.                    (vlax-get DrvObj 'FileSystem)
    
54.                    (vlax-get DrvObj 'SerialNumber)
    
55.                    (vlax-get DrvObj 'ShareName)
    
56.                    (vlax-get DrvObj 'VolumeName)
    
57.                   )
    
58.                  )
    
59.                 )
    
60.                )
    
61.               )
    
62. )
    
63. (if DrvObj (vlax-release-object DrvObj))
    
64. (vlax-release-object FilSys)
    
65. RetVal
    
66. )
    

; -- Function VxGetDriveInfos<br /> ; Returns information's from a drive.<br /> ; Copyright:<br /> ;   &#169;2001 MENZI ENGINEERING GmbH, Switzerland<br /> ; Arguments [Type]:<br /> ;   Drv = Drive character, e.g. "C" or "C:" [STR]<br /> ; Return [Type]:<br /> ;   > Drive infos '(TotalSize FreeSpace DriveType FileSystem SerialNumber<br /> ;                   ShareName VolumeName)<br /> ;     Explanations:<br /> ;     - TotalSize (kB)<br /> [REAL]<br /> ;       Returns the total space of a drive or network share.<br /> ;     - FreeSpace (kB) [REAL]<br /> ;       Returns the amount of space available to a user on the specified drive<br /> ;       or network share.<br /> ;     - DriveType [INT]<br /> ;       0 = "Unknown"<br /> ;       1 = "Removable"<br /> ;       2 = "Fixed"<br /> ;       3 = "Network"<br /> ;       4 = "CD-ROM"<br /> ;       5 = "RAM Disk"<br /> ;     - FileSystem [STR]<br /> ;       Returns the type of file system in use for the specified drive, e.g.<br /> ;       "FAT", "NTFS", "CDFS".<br /> ;     - SerialNumber [INT]<br /> ;       Returns the serial number used to uniquely identify a disk volume.<br /> ;     - ShareName [STR]<br /> ;       Returns the network share name (UNC) for the specified drive. If it's<br /> ;       not a network drive, ShareName returns a zero-length string (""). <br /> ;     - VolumeName [STR]<br /> ;       Returns the volume name of the specified drive.<br /> ;   >  0 The drive doesn't exist.<br /> ;   > -1 The drive is not ready. For removable-media drives and CD-ROM drives,<br /> ;        VxGetDriveInfos returns -1 when the appropriate media is not inserted<br /> ;        or not ready for access.<br /> ; Notes:<br /> ;   - Requires ScrRun.dll (see also notes at top of page).<br /> ; <br /> (defun VxGetDriveInfos (Drv / DrvObj FilSys RetVal)<br /> (vl-load-com)<br /> (setq FilSys (vlax-create-object "Scripting.FileSystemObject")<br />        RetVal (cond<br />                ((= (vlax-invoke FilSys 'DriveExists Drv) 0) 0)<br />                ((setq DrvObj (vlax-invoke FilSys 'GetDrive Drv))<br />                 (cond<br />                  ((= (vlax-get DrvObj 'IsReady) 0) -1)<br />                  ((list<br />                    (/ (vlax-get DrvObj 'TotalSize) 1000.0)<br />                    (/ (vlax-get DrvObj 'FreeSpace) 1000.0)<br />                    (vlax-get DrvObj 'DriveType)<br />                    (vlax-get DrvObj 'FileSystem)<br />                    (vlax-get DrvObj 'SerialNumber)<br />                    (vlax-get DrvObj 'ShareName)<br />                    (vlax-get DrvObj 'VolumeName)<br />                   )<br />                  )<br />                 )<br />                )<br />               )<br /> )<br /> (if DrvObj (vlax-release-object DrvObj))<br /> (vlax-release-object FilSys)<br /> RetVal<br /> )<br />