vb.net關(guān)閉文件 vb關(guān)閉程序

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

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

10年專(zhuān)注成都網(wǎng)站制作，成都企業(yè)網(wǎng)站建設(shè)，個(gè)人網(wǎng)站制作服務(wù)，為大家分享網(wǎng)站制作知識(shí)、方案，網(wǎng)站設(shè)計(jì)流程、步驟,成功服務(wù)上千家企業(yè)。為您提供網(wǎng)站建設(shè),網(wǎng)站制作,網(wǎng)頁(yè)設(shè)計(jì)及定制高端網(wǎng)站建設(shè)服務(wù),專(zhuān)注于成都企業(yè)網(wǎng)站建設(shè),高端網(wǎng)頁(yè)制作,對(duì)成都小攪拌車(chē)等多個(gè)方面，擁有豐富的網(wǎng)站維護(hù)經(jīng)驗(yàn)。

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

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

你都用.net了，這是vb的舊語(yǔ)法，不推薦使用。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í)意要用的話(huà)，也可以：

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

...

FileClose(1) '這里可以同時(shí)關(guān)閉多個(gè)文件號(hào)，文件號(hào)之間用,隔開(kāi)

vb.net2010關(guān)閉excel問(wèn)題

使用 ADO 連接到 Excel

ADO 使用 MDAC 中以下兩個(gè) OLE DB 提供程序中的任何一個(gè)都可以連接到 Excel 數(shù)據(jù)文件。

Microsoft Jet OLE DB Provider — 或 —Microsoft OLE DB Provider for ODBC Drivers

使用 Microsoft Jet OLE DB Provider

Jet 提供程序只需要兩條信息就可以連接到 Excel 數(shù)據(jù)源：路徑（包括文件名），和 Excel 文件版本。

Jet 提供程序使用連接字符串

Dim cn as ADODB.Connection

Set cn = New ADODB.Connection

With cn

.Provider = "Microsoft.Jet.OLEDB.4.0"

.ConnectionString = "Data Source=C:\MyFolder\MyWorkbook.xls;" _

"Extended Properties=Excel 8.0;"

.Open

End With

提供程序版本：必須使用 Jet 4.0 提供程序；Jet 3.51 提供程序不支持 Jet ISAM 驅(qū)動(dòng)程序。如果指定了 Jet 3.51 提供程序，在運(yùn)行時(shí)會(huì)出現(xiàn)以下錯(cuò)誤信息：

Couldn't find installable ISAM.

Excel 版本：對(duì)于 Excel 95 工作簿（Excel 版本 7.0），應(yīng)指定 Excel 5.0；對(duì)于 Excel 97、Excel 2000 或 Excel 2002 (XP) 工作簿（Excel 版本 8.0、9.0 和 10.0），應(yīng)指定 Excel 8.0 版本。

使用“數(shù)據(jù)鏈接屬性”對(duì)話(huà)框的 Jet 提供程序

如果在應(yīng)用程序中使用“ADO 數(shù)據(jù)控件”或“數(shù)據(jù)環(huán)境”，就會(huì)出現(xiàn)數(shù)據(jù)鏈接屬性對(duì)話(huà)框來(lái)收集必要的連接設(shè)置。

在提供程序選項(xiàng)卡上，選擇 Jet 4.0 提供程序；Jet 3.51 提供程序不支持 Jet ISAM 驅(qū)動(dòng)程序。如果指定了 Jet 3.51 提供程序，在運(yùn)行時(shí)會(huì)出現(xiàn)以下錯(cuò)誤信息：

Couldn't find installable ISAM.

在連接選項(xiàng)卡上，瀏覽到工作簿文件。忽略“用戶(hù) ID”和“密碼”項(xiàng)，因?yàn)檫@些不適用于 Excel 連接。（無(wú)法打開(kāi)受密碼保護(hù)的 Excel 文件作為數(shù)據(jù)源。）

在所有選項(xiàng)卡上，從列表中選擇擴(kuò)展屬性，然后單擊編輯值。輸入 Excel 8.0;，用分號(hào) (;) 將其與任何其他已有的項(xiàng)分隔。如果忽略此步驟，測(cè)試連接時(shí)將出現(xiàn)一條錯(cuò)誤信息。這是因?yàn)槿绻涣硇兄付?，Jet 提供程序期望 Microsoft Access 數(shù)據(jù)庫(kù)。返回到連接選項(xiàng)卡，并單擊測(cè)試連接。將出現(xiàn)一個(gè)消息框，通知測(cè)試已成功完成即可。

怎樣才能用VB.NET的代碼來(lái)關(guān)閉一個(gè)在運(yùn)行的程序

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

Dim?進(jìn)程集合?=?Process.GetProcessesByName("進(jìn)程名稱(chēng)")

For?Each?進(jìn)程?In?進(jìn)程集合

進(jìn)程.Kill()

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

Next

也可以先獲取所有進(jìn)程，再來(lái)判斷這些進(jìn)程的名稱(chēng)ProcessName

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

For?Each?進(jìn)程?In?獲取本地所有進(jìn)程

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

Next

名稱(chēng)欄目：vb.net關(guān)閉文件 vb關(guān)閉程序
網(wǎng)站鏈接：http://www.jbt999.com/article2/hppiic.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供移動(dòng)網(wǎng)站建設(shè)、關(guān)鍵詞優(yōu)化、服務(wù)器托管、網(wǎng)站內(nèi)鏈、ChatGPT、定制網(wǎng)站

廣告

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