锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net打开钱箱 收银系统钱箱怎么打开( 二 )

IT技术文件


Dim FolderName() As String = New String() {" "}
For Each strFolder As String In My.Computer.FileSystem.GetDirectories("C:\")
CountNumber = CountNumber + 1
ReDim Preserve FolderName(1 To CountNumber)
FolderName = strFolder
Next strFolder
注：My.Computer.FileSystem.GetDirectories：主要用来枚举指定目录的子文件夹 。
Preserve：主要用来避免重定义数组而不损失数组元素的原有数据 。
另外 ， 利用My.Computer.FileSystem也可以实现文件的读取 ， 其代码如下：
Dim fpReader As String = My.Computer.FileSystem.ReadAllText("C:\test.txt")
示例说明：
定义一个字符串变量利用My.Computer.FileSystem.ReadAllText来实现对“C:\test.txt”的读取 。
如果是已经编码的文本，则可以使用My.Computer.FileSystem对象中的ReadAllText方法并提供路径和文件编码类型，将文本写入字符串变量中 ， 例如：
Dim fpReader As String = My.Computer.FileSystem.ReadAllText("C:\test.txt", _
System.Text.Encoding.UTF32)
当然，System.Text.Encoding的成员不止一个，它还有如下成员：
System.Text.Encoding.UTF8
System.Text.Encoding.UTF16
System.Text.Encoding.ASCII
System.Text.Encoding.Unicode
这些是常见的成员，也是主要的成员 。
另外 ， 利用My.Computer.Filesystem类无法实现文件的行操作，还有 ， 如果您的计算机未安装完整的Microsoft.NET Framework Runtime，则无法实现这种操作！
写入文件的操作同样简单，Visual Basic.NET 允许用户使用StreamWriter来对文件写入内容，下面就让我们来创建一个子例程，来实现文件的写入：
Private Sub WriterFile(ByVal FileURL As String, ByVal FileCon As String)
Dim sr As StreamWriter = New StreamWriter(FileURL)
sr.Write(FileCon)
sr.Close()
sr = Nothing
End Sub
示例说明：
sr.Write(FileCon)：将FileCon写入文件FileURL之中 。
另外，StreamWriter常用方法如下：
WriteLine：向流中写入一行，后面跟结束符 。
Write：写入流 ， 向流对象中写入字符并移动流或文件指针 。
Close：关闭打开的对象，释放资源 。
附：Visual Basic 6.0文件操作解说：
打开： Open 文件名 For Input | Output | Append As [#]文件号
Input打开读入 ， 文件不存在报错 。Output打开覆盖写入，文件不存在则创建 。Append打 开追加写入，文件不存在则创建 。
读： Line Input #文件号, 字符串变量
读一行数据存入字符串变量，数据包括空格、Tab、等 ， 不包括回车符和换行符，所以要显示文件的换行效果，要手动添加回车符和换行符（vbCrLf）
Input #文件号, 变量1[, | ;] [变量2]...
这种方式可以存入多个变量 ， 而且变量类型不限于字符串型 。
写： Print #文件号, 参数1[, | ;] [参数2]...
将各参数逐个写入文件 。参数间用逗号隔开时，文件中相应插入多个空格；用分号隔开时，插入一个空格 。可以用Spc(n)、Tab(n)等进行排版 。
Write #文件号, 参数1[, | ;] [参数2]...
这种写入方式将自动添加界定符，对不同参数的类型加以界定 。
Visual Basic 6.0文件操作函数：
Seek： Seek(文件号)
返回文件正在访问的位置，返回值为长整型 。对顺序文件和二进制文件，返回值以字节为单位；对随机访问文件，返回值以记录号为单位 。
Seek： Seek [#]文件号 ， 位置
定位文件到指定位置 。位置单位同上所述 。
Input： Input (字节数，[#]文件号)
从文件的访问当前位置读入指定字节数的数据 。仅适用于顺序文件和二进制文件 。
EOF： EOF(文件号)

推荐阅读


上一篇：jquery公司模板，jquery模块

下一篇：怎样在钉钉直播时连麦说话，怎样在钉钉直播时连麦说话声音