vb.net如何關(guān)閉讀取過的文件夾？

你都用.net了，這是vb的舊語法，不推薦使用。vb.net是面向?qū)ο蟮模扑]您使用

創(chuàng)新互聯(lián)建站主營莎車網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營網(wǎng)站建設(shè)方案,app軟件開發(fā)公司,莎車h5成都小程序開發(fā)搭建,莎車網(wǎng)站營銷推廣歡迎莎車等地區(qū)企業(yè)咨詢

dim OpF as new io.filestream(OpenFileDialog1.FileName, IO.FileMode.Open)

...

OpF.close

或是

Using OpF as new io.filestream(OpenFileDialog1.FileName, IO.FileMode.Open)

...

End Using

但是你如果執(zhí)意要用的話，也可以：

FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)

...

FileClose(1) '這里可以同時關(guān)閉多個文件號，文件號之間用,隔開

VB中文件的打開與關(guān)閉

你都用.net了，這是vb的舊語法，不推薦使用。vb.net是面向?qū)ο蟮?，推薦您使用

dim

opf

as

new

io.filestream(openfiledialog1.filename,

io.filemode.open)

...

opf.close

或是

using

opf

as

new

io.filestream(openfiledialog1.filename,

io.filemode.open)

...

end

using

但是你如果執(zhí)意要用的話，也可以：

fileopen(1,

openfiledialog1.filename,

openmode.input)

...

fileclose(1)

'這里可以同時關(guān)閉多個文件號，文件號之間用,隔開

VB編程如何打開和關(guān)閉EXCEL文件？

下面所舉的例子均假設(shè)F盤下有一個名為d.txt的文本文件，若需要嘗試這些例子請作相應(yīng)的改動。

一、用定長的String變量獲取文本內(nèi)容。由于定長String變量支持的下界為65400,所以在打開超過32K字節(jié)的文件時超出部分的字節(jié)將無法獲取: Private ? Sub ? Command1_Cliack() Dim ? sA ? As ? String ? * ? 65400 ? '聲明定長String變量 ? Open ? "F:\d.txt " ? For ? Binary ? As ? #1 ? '用二進制打開文件 Get ? #1, ? , ? sA ? '用Get語句從文件中獲取字節(jié) Text1 ? = ? sA ? '顯示打開的文件 Close ? #1 ? '關(guān)閉文件 End ? Sub；

二、先聲明一字符串變量，然后用空格填充字符串，使變量大小與文件大小一致，再通過Get語句將文件全部數(shù)據(jù)存儲到變量中，從而達到獲取整個文件字節(jié)數(shù)的目的。

此法可以打開大于32K的文件，但應(yīng)該注意的是，裝載文件的容器必須能裝載大于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語句獲取文件全部內(nèi)容 RichTextBox1.Text ? = ? sA Close ? #1 End ? Sub；

三、用StrConv函數(shù)將文件的控制字符串數(shù)據(jù)和Unicode碼之間進行轉(zhuǎn)換，從而達到打開文件的目的?？纱蜷_任意大小文件。

再給一個簡單例子： 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語句直接調(diào)出Windows的記事本，給個文件名即可輕而易舉地打開文本文件。此法適合于打開程序的Readme文件(注意：在可執(zhí)行文件和要打開的文本文件之間要有空格)： Shell ? "NotePad.EXE ? f:\d.txt ",vbNormalFucus；

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

VB中如何關(guān)閉文件夾

vb關(guān)閉文件夾的方法是：

1、判斷是否打開 2、如果開著就close

完整代碼如下 ：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim myfolder As String = "C:\Test"

Dim OpenFolder As Object = CreateObject("shell.application")

For Each item In OpenFolder.Windows

'ComboBox1.Items.Add(item.document.folder.self.Path)

If item.document.folder.self.Path = myfolder Then

item.Quit()

End If

Next

End Sub

VB.net如何關(guān)閉已打開的文件夾

appid = Shell("explorer.exe c:\windows", vbNormalNoFocus)

If appid 0 Then Shell "Taskkill /PID " appid, vbHide

怎樣才能用VB.NET的代碼來關(guān)閉一個在運行的程序

軟糖來回答羅：通過System.Diagnostics命名空間下的Process類來關(guān)閉程序的進程

Dim?進程集合?=?Process.GetProcessesByName("進程名稱")

For?Each?進程?In?進程集合

進程.Kill()

'進程.Close()?'或者使用關(guān)閉

Next

也可以先獲取所有進程，再來判斷這些進程的名稱ProcessName

Dim?獲取本地所有進程?=?Process.GetProcesses()

For?Each?進程?In?獲取本地所有進程

If?進程.ProcessName?=?"explorer.exe"?Then?進程.Kill()

Next

網(wǎng)站名稱：vb.net怎么關(guān)閉文件,vb 關(guān)閉excel文件
文章路徑：http://jinyejixie.com/article42/dssejhc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供Google、網(wǎng)站排名、商城網(wǎng)站、網(wǎng)站設(shè)計公司、手機網(wǎng)站建設(shè)、企業(yè)網(wǎng)站制作

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)