vb导出的文件名

Ⅰ VB如何提取路径中的文件名

楼上几位够费劲的，只需要一行代码：
Text2 = CreateObject("Scripting.FileSystemObject").GetBaseName(Text1)

Ⅱ 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显示文件路径。

Ⅲ 怎样用vb获取exe自身的文件名

Dim str As String
str = IIf(Len(App.Path) > 3, App.Path & "\" & App.EXEName & ".exe", App.Path & App.EXEName & ".exe") str 就是EXE文件的路径了。搞这么复杂是因为当EXE文件在根目录下的时候，app.path 是带有“\”，不在根目录下的时候没有。

Ⅳ vb 获取目录所有文件名

1、首先，在电脑上打开VB6.0属性窗口，新建一个EXE工程窗口。

Ⅳ vb如何从全路径中获取文件名

把以下代码复制到代码窗口,
要获取文件名时,
用这样的语句:
msgbox
GetPathFromFileName("C:\windows\text.txt")
代码如下:
'****************************************************************************************************
'函数:
GetPathFromFileName
'作用:
从完整路径获取
文件名
'输入:
完整路径,
目录分隔符
'返回:
文件名(带扩展名)
Public
Function
GetPathFromFileName(ByVal
strFullPath
As
String,
Optional
ByVal
strSplitor
As
String
=
"\")
As
String
GetPathFromFileName
=
Left$(strFullPath,
InStrRev(strFullPath,
strSplitor,
,
vbTextCompare))
End
Function