vb关闭文件夹

‘壹’ VB编程如何打开和关闭EXCEL文件

下面所举的例子均假设F盘下有一个名为d.txt的文本文件，若需要尝试这些例子请作相应的改动。

一、用定长的String变量获取文本内容。由于定长String变量支持的下界为65400,所以在打开超过32K字节的文件时超出部分的字节将无法获取: Private Sub Command1_Cliack() Dim sA As String * 65400 '声明定长String变量 Open "F:d.txt " For Binary As #1 '用二进制打开文件 Get #1, , sA '用Get语句从文件中获取字节 Text1 = sA '显示打开的文件 Close #1 '关闭文件 End Sub；

二、先声明一字符串变量，然后用空格填充字符串，使变量大小与文件大小一致，再通过Get语句将文件全部数据存储到变量中，从而达到获取整个文件字节数的目的。

此法可以打开大于32K的文件，但应该注意的是，装载文件的容器必须能装载大于32K的文件，下例用RichTextBox控件显示打开的文件： Private Sub Command1_Click() Dim sA As String Open "f:d.txt " For Binary As #1 sA = Space(LOF(1)) '用空格填充sA变量 Get #1, , sA '用Get语句获取文件全部内容 RichTextBox1.Text = sA Close #1 End Sub；

三、用StrConv函数将文件的控制字符串数据和Unicode码之间进行转换，从而达到打开文件的目的。可打开任意大小文件。

再给一个简单例子： Private Sub Command1_Click() Open "f:d.txt " For Input As #1 RichTextBox1.Text = StrConv(InputB$(LOF(1), 1), vbUnicode) Close #1 End Sub；

四、用Shell语句直接调出Windows的记事本，给个文件名即可轻而易举地打开文本文件。此法适合于打开程序的Readme文件(注意：在可执行文件和要打开的文本文件之间要有空格)： Shell "NotePad.EXE f:d.txt ",vbNormalFucus；

五、用RichTextBox控件自身的LoadFile属性打开文件： RichTextBox1.LoadFile "f:d.txt ", rtfText。

‘贰’ 在vb中关闭所有被打开的文件可以用什么语句

在vb中关闭所有被打开的文件可以用close语句。如果指定要关闭的文件号，那就只关闭指定的文件；否则，就关闭所有已经打开的文件。

‘叁’ VB中如何关闭文件夹

文件夹与文件不同，文件夹不需要关闭。所以文件夹没有Close。频繁的导出数据，只要及时关闭数据文件就好了。