vb.net文件扩展名,vbnet项目文件扩展名

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

 Public Function GetTypeFilePath(ByVal mType As String)

        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

相关问答

Q1: .vb是什么文件后缀

VB文件后缀名都是.vb

Visual Basic是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。从任何标准来说，VB都是世界上使用人数最多的语言——不管是盛赞VB的开发者还是抱怨VB的开发者的数量。

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

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

Q2: 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\")

 

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

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

以vb6举例：

vb6的窗体扩展名为.frm

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

Q4: 怎么用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