List1.AddItem "剩余字節數: "
& Format(FreeBytes, "#,0")
If SysFlags And FS_CASE_IS_PRESERVED Then
List1.AddItem "文件名的大小寫記錄于文件系統"
        End If
        If SysFlags And FS_CASE_SENSITIVE Then
            List1.AddItem "文件名要區分大小寫"
        End If
        If SysFlags And FS_UNICODE_STORED_
ON_DISK Then
            List1.AddItem "文件名保存為 Unicode 格式"
        End If
        If SysFlags And FS_PERSISTENT_ACLS Then
            List1.AddItem "文件系統支持文件的訪問
      控制列表（ACL）安全機制"
        End If
        If SysFlags And FS_FILE_COMPRESSION Then
      List1.AddItem "文件系統支持逐文件地進行文件壓縮"
        End If
        If SysFlags And FS_VOL_IS_COMPRESSED Then
            List1.AddItem "整個磁盤卷都是壓縮的"
        End If
    End If
End Sub

Private Sub Form_Load()
    Call Drive1_Change
End Sub

　　運行后，選擇驅動器列表框中的不同驅動器，列表框中就會顯示出該驅動器的相應信息。以上程序在VB5.0、VB6.0及WINDOWS 98中運行通過。