请问你是通过什么得到A文件名的?OpenFileDialog?控件吗?
假设你的A文件名 是strfilename
直接自己写函数进行字符串操作啊
简单一点
复杂一点写就是函数从后到前判断扩展名的长度,然后截断这个扩展名加上你要的.
Vb.net获取某个目录下文件夹名称(不包含隐藏文件夹)实现代码如下:
Dim?dir?As?New?DirectoryInfo("D:\")
For?Each?d?As?DirectoryInfo?In?dir.GetDirectories
ComboBox1.Items.Add(d.Name)
Next
dim?finfo?as?new?fileinfo(d.name)
if?(finfo.attributes?and?FileAttributes.Hidden)FileAttributes.Hidden?then
end?if
先用System.IO.Directory.GetDirectories函数获取子目录的名称(包括其路径),再用System.IO.Path.GetFileName获取子目录的名称.下面是代码:
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
For Each s In System.IO.Directory.GetDirectories("C:\Windows")
Console.WriteLine(System.IO.Path.GetFileName(s))
End Sub
下面是部分输出:
Application Data
AppPatch
assembly
BOCNET
Boot
Branding
ConfigSetRoot
Cursors
Debug
DigitalLocker
Downloaded Installations
Downloaded Program Files
ehome
en-US
Fonts
Globalization
Help
...
可能有更简洁的方法,你可以到MSDN看看
System.IO.Directory.GetDirectories:
System.IO.Path.GetFileName:
通用 I/O 任务:
获取方法,参考实例如下:
'获取路径名各部分:
如:
c:\dir1001\aaa.txt
'获取路径路径
c:\dir1001\
Public
Function
GetFileName(FilePathFileName
As
String)
String
'获取文件名
aaa.txt
On
Error
Resume
Dim
i
Integer,
J
Integer
Len(FilePathFileName)
InStrRev(FilePathFileName,
"\")
GetFileName
Mid(FilePathFileName,
◆
i)
End
''获取路径路径
GetFilePath(FilePathFileName
GetFilePath
J)
'获取文件名但不包括扩展名
aaa
GetFileNameNoExt(FilePathFileName
k
".")
If
Then
GetFileNameNoExt
-
Else
'=====
'获取扩展名
.txt
GetFileExtName(FilePathFileName
GetFileExtName
".txt"
J,
以上就是土嘎嘎小编为大家整理的vb.net读取文件名称相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!