获取方法，参考实例如下：
成都创新互联专注于扎赉诺尔网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供扎赉诺尔营销型网站建设，扎赉诺尔网站制作、扎赉诺尔网页设计、扎赉诺尔网站官网定制、小程序开发服务，打造扎赉诺尔网络公司原创品牌,更为您提供扎赉诺尔网站排名全网营销落地服务。
'获取路径名各部分: 如： 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
请问你是通过什念洞派么得到A文件名的？OpenFileDialog?控仔贺件吗？
假设你的A文件名 是strfilename
直接自己写函数进行字符串操作啊
简单一点
就是去掉末尾的扩展名（4个字符），加上你要的扩展名颤空 譬如 “.pla”
复杂一点写就是函数从后到前判断扩展名的长度，然后截断这个扩展名加上你要的。
如果想要获得当前文件中的文件名只需要String [] fileName = file.list();就可以了。如果要包括文件中的文件名就可以用递归的举羡方式。下面是两个具体的实现。 其中public static String [] getFileName(String path)是只得到当前文件中的文正培拍件中芹名。
