显示文件名,但不包括后缀,帮我看看问题出在哪?
在下初学VB。我想显示文件列表框中的文件名,但不包括后缀。
建立驱动器列表框、目录列表框和文件列表框,并将其组合。建立一command按钮,编写代码如下,比较简单,就不加说明了。
Private Sub Command1_Click()
Dim m As String, p As Integer
For i = 0 To File1.ListCount
m = File1.List(i)
p = InStr(1, m, ".")
m = Left(m, p - 1) '这行提示出错了
Print m
Next i
End Sub
运行时虽然也显示文件名,但提示“实时错误5:无效的过程调用或参数”。如果我把“m = Left(m, p - 1)”改成“m = Left(m, p)”就不提示出错了,但显示的文件名后面多了个点。
请问问题出在哪里,应该怎么改一下才能只显示文件名不显示点?