vb.net文件后缀名 win文件名后缀

vb.net从文件路径中获取文件名

获取方法，参考实例如下：

建网站原本是网站策划师、网络程序员、网页设计师等，应用各种网络程序开发技术和网页设计技术配合操作的协同工作。成都创新互联专业提供成都网站设计、做网站,网页设计,网站制作(企业站、成都响应式网站建设、电商门户网站)等服务,从网站深度策划、搜索引擎友好度优化到用户体验的提升,我们力求做到极致!

'获取路径名各部分: 如： c:\dir1001\aaa.txt

'获取路径路径 c:\dir1001\

Public Function GetFileName(FilePathFileName As String) As String '获取文件名 aaa.txt

On Error Resume Next

Dim i As Integer, J As Integer

i Len(FilePathFileName)

J InStrRev(FilePathFileName, "\")

GetFileName Mid(FilePathFileName, J + 1, i)

End Function

''获取路径路径 c:\dir1001\

Public Function GetFilePath(FilePathFileName As String) As String '获取路径路径 c:\dir1001\

On Error Resume Next

Dim J As Integer

J InStrRev(FilePathFileName, "\")

GetFilePath Mid(FilePathFileName, 1, J)

End Function

'获取文件名但不包括扩展名 aaa

Public Function GetFileNameNoExt(FilePathFileName As String) As String '获取文件名但不包括扩展名 aaa

On Error Resume Next

Dim i As Integer, J As Integer, k As Integer

i Len(FilePathFileName)

J InStrRev(FilePathFileName, "\")

k InStrRev(FilePathFileName, ".")

If k 0 Then

GetFileNameNoExt Mid(FilePathFileName, J + 1, i - J)

Else

GetFileNameNoExt Mid(FilePathFileName, J + 1, k - J - 1)

End If

End Function

'＝＝＝＝＝ '获取扩展名 .txt

Public Function GetFileExtName(FilePathFileName As String) As String '获取扩展名 .txt

On Error Resume Next

Dim i As Integer, J As Integer

i Len(FilePathFileName)

J InStrRev(FilePathFileName, ".")

If J 0 Then

GetFileExtName ".txt"

Else

GetFileExtName Mid(FilePathFileName, J, i)

End If

End Function

如何用vb.net实现将一个文件夹中的后缀相同的文件名放在一个txt中？

创建一个文本文件，在其中输入：

dir *.txt /s /n 目录.txt

保存为XX.bat

然后双击运行即可在该文件夹下产生一个目录.txt的文件，里面有你要的内容，不用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\")

vb.net怎样转成vb

vb.net里好像提供了自动转换vb6程序的，直接点 文件-打开 选择vbp文件，然后下一步下一步就行了，好像是的

vb.net中怎么判断文件类型

这个问题可以用注册表解决。

Function getOpenCommand(fileExt As String) as String

Dim fileType as String, openCommand as String

fileExt = "." + fileExt

'取得文件扩展名在注册表里的文件类型名称

'比如.zip的类型名称一般是zipfile

fileType = 读取注册表的classes_root下的子键(fileExt)的默认键值

'取得打开这种文件的程序

openCommand = 读取注册表的classes_root下的子键(fileType + "\shell\open\command")的默认键值

Return getOpenCommand

End Function

读取注册表的HKEY_CLASSES_ROOT下的子键的默认键值的方法可以在网上搜索到。

这样getOpenCommand("doc")就可以得到一个字符串(包括引号)：

"C:\Program Files\Word\word.exe" "%1"

这里只需要用Spilt函数把C:\Program Files\Word\word.exe分离出来就好了

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