VB fso组件

VB fso组件
2011年03月11日
　　fso 是系统里自带的组件，如果你的fso不能用了请打开运行重新以下命令注册fso:
　　regsvr32 scrrun.dll
　　OpenTextFile
　　OpenTextFile 方法
　　打开指定的文件并返回一个 TextStream 对象，可以通过这个对象对文件进行读、写或追加。
　　object.OpenTextFile(filename[, iomode[, create[, format]]])
　　参数
　　object
　　必选项。 object 应为 FileSystemObject 的名称。
　　filename
　　必选项。 指明要打开文件的字符串表达式。
　　iomode
　　可选项。 可以是三个常数之一： ForReading 、 ForWriting 或 ForAppending 。
　　create
　　可选项。 Boolean 值，指明当指定的 filename 不存在时是否创建新文件。 如果创建新文件则值为 True ，如果不创建则为 False 。 如果忽略，则不创建新文件。
　　format
　　可选项。 使用三态值中的一个来指明打开文件的格式。 如果忽略，那么文件将以 ASCII 格式打开。
　　设置
　　iomode 参数可以是下列设置中的任一种：
　　常数                          值             描述
　　ForReading              1                以只读方式打开文件。 不能写这个文件。
　　ForWriting                2                以写方式打开文件
　　ForAppending          8                打开文件并从文件末尾开始写。
　　format 参数可以是下列设置中的任一种：
　　值                                 描述
　　TristateTrue                  以 Unicode 格式打开文件。
　　TristateFalse                 以 ASCII 格式打开文件。
　　TristateUseDefault        使用系统默认值打开文件。
　　说明
　　下面的代码说明了如何使用 OpenTextFile 方法打开文件并追加文本：
　　var fs, a, ForAppending;
　　ForAppending = 8;
　　fs = new ActiveXObject("Scripting.FileSystemObject");
　　a = fs.OpenTextFile("c:\\testfile.txt", ForAppending, false);
　　...
　　a.Close();
　　'========================================================================
　　VB FSO 获取C盘是否存在
　　Private Sub Command1_Click()
　　If CreateObject("Scripting.FileSystemObject").DriveExists("c:") Then MsgBox "驱动器 C 存在"
　　End Sub
　　=========================================================================
　　VB FSO 获取C盘的容量
　　Private Sub Command1_Click()
　　Set fso = CreateObject("Scripting.FileSystemObject")
　　Set drv = fso.GetDrive("c:")
　　MsgBox "可用空间：" & vbTab & Format(drv.freeSpace, "0,000") & " 字节" & vbCrLf & _
　　"总容量：" & vbTab & Format(drv.TotalSize, "0,000") & " 字节", , "驱动器 C"
　　End Sub
　　'=========================================================================
　　高手帮忙，vb中如何获得硬盘信息？
　　1、用API函数GetDiskFreeSpaceEx获取磁盘空间
　　Private Declare Function GetDiskFreeSpaceEx Lib "kernel32" Alias "GetDiskFreeSpaceExA" _
　　(ByVal lpDirectoryName As String, ByRef lpFreeBytesAvailableToCaller As Long, _
　　ByRef lpTotalNumberOfBytes As Long, ByRef lpTotalNumberOfFreeBytes As Long) As Long
　　Private Sub btnDisk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisk.Click
　　Dim BytesFreeToCalller As Long, TotalBytes As Long
　　Dim TotalFreeBytes As Long, TotalBytesUsed As Long
　　Dim strResult As String
　　Const RootPathName = "C:\"
　　Call GetDiskFreeSpaceEx(RootPathName, BytesFreeToCalller, TotalBytes, TotalFreeBytes)
　　strResult = " Drive " & "C:\" & vbCrLf
　　strResult += "磁盘容量(MB):" & Format(CDbl((TotalBytes / 1024) / 1024), "###,###,##0.00") & vbCrLf
　　strResult += "可用空间(MB):" & Format(CDbl((TotalFreeBytes / 1024) / 1024), "###,###,##0.00") & vbCrLf
　　strResult += "已用空间(MB):" & Format(CDbl(((TotalBytes - TotalFreeBytes) / 1024) / 1024), "###,###,##0.00") & vbCrLf
　　MsgBox(strResult)
　　End Sub
　　2、用FSO(文件系统对象模型)实现
　　FSO对象模型包含在SCRIPTING类型库(SCRRUN.DLL)中。调用方法如下：
　　在项目菜单中选择引用，在COM中选择Microsoft Scripting Runtime
　　在代码最顶端添加Imports Scripting，在按钮的单击事件中加入以下代码：
　　Imports Scripting
　　Private Sub btnFso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFso.Click
　　Dim Fso As New FileSystemObject
　　Dim drvDisk As Drive, strResult As String
　　drvDisk = Fso.GetDrive("C:\")
　　strResult = "Drive " & "C:\" & vbCrLf
　　strResult += "磁盘卷标:" & drvDisk.VolumeName & vbCrLf
　　strResult += "磁盘序列号:" & drvDisk.SerialNumber & vbCrLf
　　strResult += "磁盘类型:" & drvDisk.DriveType & vbCrLf
　　strResult += "文件系统:" & drvDisk.FileSystem & vbCrLf
　　strResult += "磁盘容量(G): " & FormatNumber(((drvDisk.TotalSize / 1024) / 1024) / 1024, 2, , , Microsoft.VisualBasic.TriState.True) & vbCrLf
　　strResult += "可用空间(G): " & FormatNumber(((drvDisk.FreeSpace / 1024) / 1024) / 1024, 2, , , Microsoft.VisualBasic.TriState.True) & vbCrLf
　　strResult += "已用空间(G):" & FormatNumber(((((drvDisk.TotalSize - drvDisk.FreeSpace) / 1024) / 1024) / 1024), 2, , , Microsoft.VisualBasic.TriState.True)
　　MsgBox(strResult)
　　End Sub
　　3、用API函数GetVolumeInformation获取逻辑盘序列号
　　Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" _
　　(ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal _
　　nVolumeNameSize As Integer, ByRef lpVolumeSerialNumber As Long, _
　　ByVal lpMaximumComponentLength As Integer, ByVal lpFileSystemFlags As Integer, ByVal _
　　lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Integer) As Integer
　　Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
　　Dim SerialNumber As Long
　　Dim TempStr1 As New String(Chr(0), 255)
　　Dim TempStr2 As New String(Chr(0), 255)
　　Dim TempInt1, TempInt2 As Integer
　　GetVolumeInformation("C:\", TempStr1, 256, SerialNumber, TempInt1, TempInt2, TempStr2, 256)
　　MsgBox("C盘序列号:" & SerialNumber)
　　End Sub
　　4、利用WMI获取硬盘信息
　　Windows Management Instrumentation (WMI) 是可伸缩的系统管理结构，它采用一个统一的、基于标准的、可扩展的面向对象接口。WMI 为您提供与系统管理信息和基础 WMI API 交互的标准方法。WMI 主要由系统管理应用程序开发人员和管理员用来访问和操作系统管理信息。
　　我们需要使用.net Framwork里面System.Management命名空间下提供的类来实现。
　　Imports System.Management
　　Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
　　Dim disk As ManagementBaseObject
　　Dim strResult As String
　　Dim diskClass = New ManagementClass("Win32_LogicalDisk")
　　Dim disks As ManagementObjectCollection
　　disks = diskClass.GetInstances()
　　For Each disk In disks
　　strResult = ""
　　strResult += "设备ID:" & disk("DeviceID") & vbCrLf
　　strResult += "磁盘名称:" & disk("Name") & vbCrLf
　　strResult += "磁盘卷标:" & disk("VolumeName") & vbCrLf
　　If disk("FileSystem")  "" Then strResult += "文件系统:" & disk("FileSystem") & vbCrLf
　　strResult += "磁盘描述:" & disk("Description") & vbCrLf
　　If System.Convert.ToInt64(disk("Size")) > 0 Then
　　strResult += "磁盘大小:" & System.Convert.ToInt64(disk("Size").ToString()) & vbCrLf
　　strResult += "磁盘类型:" & System.Convert.ToInt16(disk("DriveType").ToString())
　　End If
　　MsgBox(strResult)
　　Next
　　End Sub
　　总结：在VB.NET中，用API函数可以获取硬盘信息。原来熟悉API函数VB6程序员，可以对API函数声明进行适当的更改后，进行调用。利用FSO（文件系统对象）的Scrrun.DLL，也可以获得磁盘信息。在.net Framwork中，利用WMI可以获取更多的关于机器硬件的详细信息（参考System.Management命名空间）。