VB如何获取文件名？

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

CommonDialog 控件

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

通过使用 CommonDialog 控件的 ShowOpen 和 ShowSave

方法可显示“打开”和“另存为”对话框。

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

Split函数，

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

代码实例：

Private Sub Command1_Click()

    Dim splitStr

    CommonDialog1.CancelError = True ' 设置“CancelError”为 True

    On Error GoTo ErrHandler

    CommonDialog1.Flags = cdlOFNHideReadOnly    ' 设置标志

    ' 设置过滤器

    CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"

    CommonDialog1.FilterIndex = 2    ' 指定缺省的过滤器

    CommonDialog1.ShowOpen    ' 显示“打开”对话框

    ' 显示选定文件的名字

    MsgBox CommonDialog1.FileName

    splitStr = Split(CommonDialog1.FileName, "\")

    MsgBox splitStr(UBound(splitStr))

ErrHandler:

    ' 用户按了“取消”按钮

    Exit Sub

End Sub

第一句Msgbox显示文件路径。

第二句Msgbox显示文件全名（含扩展名）

Dim a() As String

Private Sub Dir1_Change()

File1.Path = Dir1.Path

Label1.Caption = Dir1.Path

End Sub

Private Sub Drive1_Change()

On Error GoTo err1

Dir1.Path = Drive1.Drive

Exit Sub

err1:

MsgBox Err.Description, vbInformation + vbOKOnly, "提示"

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer

Dim ifieldcount As Integer, irecordcount As Integer

Dim wdapp As Word.Application

Dim wddoc As Word.Document

Dim atable As Word.Table

If Option2.Value = True Then

ReDim a(1 To File1.ListCount)

For i = 1 To File1.ListCount

b = File1.List(i)

a(i) = b

Next

End If

If Option1.Value = True Then

ReDim a(1 To Dir1.ListCount)

For i = 1 To Dir1.ListCount

b = Dir1.List(i)

a(i) = b

Next

End If

End Sub

这段程序 复制过去 就行了 创建的控件有 两个option 让你选择 要提取文件夹 还是文件路径的 选中option 1 就是提取文件夹的 option2 就是提取文件的 然后再创建 Drive1 Dir1 File1 这三个 选择文件路径的 控件 再加一个 command 按钮 就行了 有疑问再联系我！！！！！这个 只是 文件路径 你看看 是你想要的话 我再给你写 提取文件夹和文件名的代码！！！！

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

2、然后，就能在这里看到帮组文件名一栏。这时，就能在这里按下这个三点进行选择文件。

3、接下来就可以这个帮组文件的窗口。

4、此时，就能在这里进行帮组文件的加载。

5、最后，点击打开按钮既可打开VB的帮助文件。

---