vb.net,知道一个文件的扩展名，如何获得该类型文件的默认打开程序。

Public Function GetTypeFilePath(ByVal mType As String)

创新互联公司是一家专注于成都做网站、网站制作与策划设计,桃江网站建设哪家好?创新互联公司做网站,专注于网站建设10余年,网设计领域的专业建站公司;建站业务涵盖:桃江等地区。桃江做网站价格咨询: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 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。从任何标准来说，VB都是世界上使用人数最多的语言——不管是盛赞VB的开发者还是抱怨VB的开发者的数量。

它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

VB还派生了一些语言:VBA、VBS、VB.NET

vb.net，知道一个文件的扩展名，如何通过这个扩展名获得该文件的默认打开方式（即默认打开程序）？

如没有现存的办法的话只能读取注册表，以txt文件为类：

HKEY_CLASSES_ROOT\.txt   '在这个地址有个默认属性值是：txtfile

HKEY_CLASSES_ROOT\txtfile\shell\open\command   '这里的默认属性值txtfile的关联程序：%SystemRoot%\system32\NOTEPAD.EXE %1

我暂不了解vb.net读注册表函数（刚在学），以vbs为类：

Dim WshShell

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

Dim Ext

ext= WshShell.RegRead ("HKEY_CLASSES_ROOT\.mp3\") '这里的扩展名.mp3可以改成其它的看看

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

2、 VB窗体文件和工程文件的扩展名分别是

先解释一下vb一般是指vb3到vb6,与vb.net无关。

以vb6举例：

vb6的窗体扩展名为.frm

vb6的工程文件扩展名为.vbp

怎么用VB.NET更改文件扩展名

以修改“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

文章名称：vb.net文件扩展名,vbnet项目文件扩展名
浏览地址：http://scyingshan.cn/article/dsgpppe.html