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。頻繁的導出數據，只要及時關閉數據文件就好了。