vb.net,知道一個(gè)文件的擴(kuò)展名，如何獲得該類(lèi)型文件的默認(rèn)打開(kāi)程序。

Public?Function?GetTypeFilePath(ByVal?mType?As?String)

創(chuàng)新互聯(lián)公司是一家專(zhuān)注于成都做網(wǎng)站、網(wǎng)站制作與策劃設(shè)計(jì),桃江網(wǎng)站建設(shè)哪家好?創(chuàng)新互聯(lián)公司做網(wǎng)站,專(zhuān)注于網(wǎng)站建設(shè)10余年,網(wǎng)設(shè)計(jì)領(lǐng)域的專(zhuān)業(yè)建站公司;建站業(yè)務(wù)涵蓋:桃江等地區(qū)。桃江做網(wǎng)站價(jià)格咨詢:028-86922220

mType?=?mType.Trim

If?mType.Substring(0,?1)??"."?Then?mType?=?"."??mType

Dim?Key?As?Microsoft.Win32.RegistryKey?=?Microsoft.Win32.Registry.ClassesRoot.OpenSubKey(mType)

Dim?Result?As?String?=?""

If?Not?Key?Is?Nothing?Then

Dim?SubKeyValue?As?Object

Dim?Value?As?String

SubKeyValue?=?Key.GetValue("")

If?Not?SubKeyValue?Is?Nothing?Then

Value?=?SubKeyValue.ToString

Dim?SubKey?As?Microsoft.Win32.RegistryKey,?ResultKey?As?Microsoft.Win32.RegistryKey

SubKey?=?Microsoft.Win32.Registry.ClassesRoot.OpenSubKey(Value)

If?Not?SubKey?Is?Nothing?Then

ResultKey?=?SubKey.OpenSubKey("shell\open\command\",?False)

If?Not?ResultKey?Is?Nothing?Then

Result?=?ResultKey.GetValue("").ToString

End?If

End?If

End?If

End?If

Return?Result

End?Function

.vb是什么文件后綴

VB文件后綴名都是.vb

Visual Basic是一種由?Microsoft?公司開(kāi)發(fā)的結(jié)構(gòu)化的、模塊化的、面向?qū)ο蟮?、包含協(xié)助開(kāi)發(fā)環(huán)境的事件驅(qū)動(dòng)為機(jī)制的可視化程序設(shè)計(jì)語(yǔ)言。從任何標(biāo)準(zhǔn)來(lái)說(shuō)，VB都是世界上使用人數(shù)最多的語(yǔ)言——不管是盛贊VB的開(kāi)發(fā)者還是抱怨VB的開(kāi)發(fā)者的數(shù)量。

它源自于BASIC編程語(yǔ)言。VB擁有圖形用戶界面（GUI）和快速應(yīng)用程序開(kāi)發(fā)（RAD）系統(tǒng)，可以輕易的使用DAO、RDO、ADO連接數(shù)據(jù)庫(kù)，或者輕松的創(chuàng)建ActiveX控件。程序員可以輕松的使用VB提供的組件快速建立一個(gè)應(yīng)用程序。

VB還派生了一些語(yǔ)言:VBA、VBS、VB.NET

vb.net，知道一個(gè)文件的擴(kuò)展名，如何通過(guò)這個(gè)擴(kuò)展名獲得該文件的默認(rèn)打開(kāi)方式（即默認(rèn)打開(kāi)程序）？

如沒(méi)有現(xiàn)存的辦法的話只能讀取注冊(cè)表，以txt文件為類(lèi)：

HKEY_CLASSES_ROOT\.txt?? '在這個(gè)地址有個(gè)默認(rèn)屬性值是：txtfile

HKEY_CLASSES_ROOT\txtfile\shell\open\command?? '這里的默認(rèn)屬性值txtfile的關(guān)聯(lián)程序：%SystemRoot%\system32\NOTEPAD.EXE %1

我暫不了解vb.net讀注冊(cè)表函數(shù)（剛在學(xué)），以vbs為類(lèi)：

Dim?WshShell

Set?WshShell?=?WScript.CreateObject("Wscript.Shell")

Dim?Ext

ext=?WshShell.RegRead?("HKEY_CLASSES_ROOT\.mp3\") '這里的擴(kuò)展名.mp3可以改成其它的看看

MsgBox?WshShell.RegRead?("HKEY_CLASSES_ROOT\"??ext??"\shell\open\command\")

2、 VB窗體文件和工程文件的擴(kuò)展名分別是

先解釋一下vb一般是指vb3到vb6,與vb.net無(wú)關(guān)。

以vb6舉例：

vb6的窗體擴(kuò)展名為.frm

vb6的工程文件擴(kuò)展名為.vbp

怎么用VB.NET更改文件擴(kuò)展名

以修改“C:\abc.txt"為bat為例。

Public Class Form1

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

Dim Myfile As String

Myfile = IO.Path.ChangeExtension("C:\abc.txt", ".bat")

Microsoft.VisualBasic.FileSystem.Rename("C:\abc.txt", Myfile)

End Sub

End Class