vb.net如何获得自己的文件名

Dim dDirectory As System.IO.Directory

我们提供的服务有：网站设计、成都网站建设、微信公众号开发、网站优化、网站认证、临安ssl等。为数千家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的临安网站制作公司

Dim sName() As String

sName = dDirectory.GetFiles(path)

vb.net如何制作一个改文件名的软件？

涉及的知识有两大块：

一，用VB.NET读取数据表数据。

二，使用VB.NET修改文件名。

vb.net 自动读取文件名

请问你是通过什么得到A文件名的？OpenFileDialog?控件吗？

假设你的A文件名 是strfilename

直接自己写函数进行字符串操作啊

简单一点

就是去掉末尾的扩展名（4个字符），加上你要的扩展名 譬如 “.pla”

复杂一点写就是函数从后到前判断扩展名的长度，然后截断这个扩展名加上你要的。

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自己文件名 vb文件名称
转载注明：http://pwwzsj.com/article/hhipip.html