vb怎么把文件名读出来

Ⅰ vb 读取打开的文件名

'给你一个函数根据文段高件地址获取文件名

FunctionfGetLast(ByValoriginalStringAsString)AsString

Dimtmps()AsString

DimdelimeterAsString

delimeter=""'分隔符

tmps=Split(originalString,delimeter)

fGetLast=tmps(UBound(tmps))

EndFunction

PrivateSubCommand1_Click()

DimaAsString

a="C:天怒娱乐握袜尺完美枫枫.txt"'例如a是这个路径

Form1.Caption=fGetLast(a)&好行"-记事本"'我调用A////fGetLast(文件的地址)

EndSub

Ⅱ vb 怎样读取一个文件夹里面的指定类型的所有文件的名称

可以实现
可以借助文件列表框来实现
首先加入一个FileListBox 控件,然后加入一下程序
Private Sub Command1_Click()
File1.Path = "C:\Documents and Settings\Administrator\桌面\新建文件夹" '指定一个文件夹
File1.Pattern = "*.txt" '指定文件类型
Dim i As Integer
For i = 0 To File1.ListCount - 1 从列表框的第一个项目找到最后一个项目
Print File1.List(i) '依次输出该文件夹中指定类型的文件名,可以按照自己的需要输出到一个文本文件中,或者自己其他指定
Next i
End Sub

如果需要,可以把该控件的visible属性谁为false,把控件隐藏

Ⅲ 怎样用VB获取文件的文件名（不要包含扩展名）

这样来就可自以啦，干嘛要这么麻烦呢？ Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As String
a = System.IO.Path.GetFileNameWithoutExtension("c:\windows\test123.txt123")
Me.Text = a End Sub

Ⅳ VB读取文件名怎么弄啊，就是把文件的文件用读出来啊！！！求解，比如D盘有一个文件夹叫做

通常有三种编码类型
ANSI（本地编码国家的）
统一码（Unicode文本文件，解释勒（头2个字节255,254）和BE（包头解释的2个字节254,255）两个版本），
UTF-8（Unicode宽字符集），签名版（头）解释UTF-8字节239187191

Web编码通常有两种，UTF-8（没有文件头）和ANSI。

我也写一个批处理软件（下载地址见参考资料），包括内置的文本阅读器和文本的批量处理功能，支持ANSI，UTF-8和Unicode解析（选择纯文本文件中，右键单击菜单[可调节的阅读文本]菜单项了）。

页文件头（不知道为什么没有放下制服的头），它是很难确定它是什么类型的编码是UTF-8或ANSI，所以我选择了在此期间的判断页面的代码[text / html的字符集= UTF-8] [字符集= UTF-8]存在或UTF-8解码输出，否则ANSI

Ⅳ vb或易语言中如何遍历c盘中的文件夹，注意只是文件夹，把文件名读出来

On Error Resume Next
Dim str1 As String, str2
Set fso = CreateObject("Scripting.FileSystemObject")
Set Folders = fso.GetFolder("c:\")
Set fFolder = Folders.SubFolders
Set fFile = Folders.Files
For Each fffolder In fFolder
str1 = str1 & " " & fffolder.Name
Next
MsgBox str1 '遍历输出c盘所有文件夹名
For Each fffile In fFile
str2 = str2 & " " & fffile.Name
Next
MsgBox str2 '遍历输出c盘所有文件名

Ⅵ VB如何获取文件名

VB6.0可以使用CommonDialog 控件实现获取文件路径并使用Split函数获取文件全名。

CommonDialog 控件

CommonDialog 控件提供一组标准的操作对话框，进行诸如打开和保存文件，设置打印选项，以及选择颜色和字体等操作。

通过使用 CommonDialog 控件的 ShowOpen 和 ShowSave
方法可显示“打开”和“另存为”对话框。

两个对话框均可用以指定驱动器，目录，文件扩展名和文件名。除对话的标题不同外，另存为对话外观上与打开对话相似。

Split函数，

返回一个下标从零开始的一维数组，它包含指定数目的子字符串。

代码实例：

PrivateSubCommand1_Click()
DimsplitStr
CommonDialog1.CancelError=True'设置“CancelError”为True
OnErrorGoToErrHandler
CommonDialog1.Flags=cdlOFNHideReadOnly'设置标志
'设置过滤器
CommonDialog1.Filter="AllFiles(*.*)|*.*|TextFiles"&"(*.txt)|*.txt|BatchFiles(*.bat)|*.bat"
CommonDialog1.FilterIndex=2'指定缺省的过滤器
CommonDialog1.ShowOpen'显示“打开”对话框
'显示选定文件的名字
MsgBoxCommonDialog1.FileName
splitStr=Split(CommonDialog1.FileName,"")
MsgBoxsplitStr(UBound(splitStr))
ErrHandler:
'用户按了“取消”按钮
ExitSub
EndSub

第一句Msgbox显示文件路径。