13518219792
VB文件后缀名都是.vb
成都创新互联公司坚持“要么做到，要么别承诺”的工作理念，服务领域包括：网站建设、网站设计、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的沁县网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！
Visual Basic是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。从任何标准来说，VB都是世界上使用人数最多的语言——不管是盛赞VB的开发者还是抱怨VB的开发者的数量。
它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
VB还派生了一些语言:VBA、VBS、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一般是指vb3到vb6,与vb.net无关。
以vb6举例：
vb6的窗体扩展名为.frm
vb6的工程文件扩展名为.vbp
这个恐怕有点难度，比如用户输入text.txt，你可能认为text.txt不允许输，但是说不定用户有文件名字命名为text.txt.exe的可执行文件存在，所以要过滤扩展名靠判断.号意义不大
如没有现存的办法的话只能读取注册表，以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\")
openfiledialog1.Filter = "多媒体文件(*.ogg;*.MP3;*.MP4;*.wma)|*.ogg;*.MP3;*.MP4;*.wma|所有文件(*.*)|*.*"
