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
Visual Basic是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。从任何标准来说，VB都是世界上使用人数最多的语言——不管是盛赞VB的开发者还是抱怨VB的开发者的数量。
它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
VB还派生了一些语言:VBA、VBS、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\")
先解释一下vb一般是指vb3到vb6,与vb.net无关。
以vb6举例：
vb6的窗体扩展名为.frm
vb6的工程文件扩展名为.vbp
以修改“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
