锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net读取文件名 vbs 获取文件名

IT技术iServer

在VB中如何获取指定文件夹下的所有文件名？VB可以使用FileListBox 控件来获取指定文件夹内的所有文件名 。
FileListBox 控件，在运行时，在 Path 属性指定的目录中，FileListBox 控件将文件定位并列举出来 。该控件用来显示所选择文件类型的文件列表 。例如，可以在应用程序中创建对话框，通过它选择一个文件或者一组文件 。
以下是组合使用DriveListBox 、控件DirListBox 控件和FileListBox 控件来获取硬盘下任何一个文件夹内的文件名 。
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
Dim i As Long
Debug.Print "目录夹内存在"File1.ListCount"个文件 。"
End Sub
vb.net 自动读取文件名请问vb.net读取文件名你是通过什么得到A文件名vb.net读取文件名的vb.net读取文件名？OpenFileDialog?控件吗vb.net读取文件名？
假设你的A文件名 是strfilename
直接自己写函数进行字符串操作啊
简单一点
就是去掉末尾的扩展名（4个字符），加上你要的扩展名 譬如 “.pla”
复杂一点写就是函数从后到前判断扩展名的长度，然后截断这个扩展名加上你要的 。
VB.Net怎样得到某个文件夹里的所有文件名如果想要获得当前文件中的文件名只需要String [] fileName = file.list();就可以了 。如果要包括文件中的文件名就可以用递归的方式 。下面是两个具体的实现 。其中public static String [] getFileName(String path)是只得到当前文件中的文件名 。
如何使用vb.net获取一个文件夹里最后一个数据文件的名称？function Newfile as fileinfo
Dim dic As New System.IO.DirectoryInfo("C:\Users\Q\Desktop\数据")
Dim files = dic.GetFiles.OrderByDescending(Function(s) s.CreationTime)
if files.
return files.first
end function
注意引入 system.linq
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
【vb.net读取文件名 vbs 获取文件名】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
Then
GetFileNameNoExt
Mid(FilePathFileName,
J
+
1,
i
-
J)
Else
GetFileNameNoExt
Mid(FilePathFileName,

推荐阅读


上一篇：可以插u盘的电视机怎么用，能放u盘的电视机

下一篇：解谜游戏觉醒索菲亚，索菲亚的复苏迷宫