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

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

十余年的順昌網(wǎng)站建設(shè)經(jīng)驗(yàn)，針對(duì)設(shè)計(jì)、前端、開發(fā)、售后、文案、推廣等六對(duì)一服務(wù)，響應(yīng)快，48小時(shí)及時(shí)工作處理。營(yíng)銷型網(wǎng)站建設(shè)的優(yōu)勢(shì)是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同，自動(dòng)調(diào)整順昌建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調(diào)整網(wǎng)站的寬度，無論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設(shè)計(jì)，從而大程度地提升瀏覽體驗(yàn)。成都創(chuàng)新互聯(lián)從事“順昌網(wǎng)站設(shè)計(jì)”,“順昌網(wǎng)站推廣”以來，每個(gè)客戶項(xiàng)目都認(rèn)真落實(shí)執(zhí)行。

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點(diǎn)虐 讀注冊(cè)表函數(shù)（剛在學(xué)），以vbs為類：

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

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

vb點(diǎn)虐 openfiledialog1.file添加多個(gè)擴(kuò)展名?

openfiledialog1.Filter = "多媒體文件(*.ogg;*.MP3;*.MP4;*.wma)|*.ogg;*.MP3;*.MP4;*.wma|所有文件(*.*)|*.*"