vb.net高手帮忙看一下这个从listbox中截取字符串的代码哪里不对

vb.net截取字符串的问题~

可以如下截取056

Private Sub Command1_Click()
a = "123.45056"
Me.Caption = Mid(a, InStr(a, "056"), 3)
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

Dim i, p As Integer, c, d As String
c = Trim(TextBox1.Text)
d = Trim(TextBox2.Text)
ReDim A(c.Length - 1)
ReDim B(d.Length - 1)
For i = 0 To c.Length - 1
A(i) = c.Substring(i, 1)
Next
For i = 0 To d.Length - 1
B(i) = d.Substring(i, 1)
Next
m = A.Length
n = B.Length
If m = n And m > 0 Then
ReDim F(m - 1)
Label3.Text = "F="
For i = 0 To m - 1 Step 1
If A(i) = "1" And B(i) = "1" Then
F(i) = 1
Else
F(i) = 0
End If
Label3.Text &= F(i)
Next i
Else
If m = 0 Or n = 0 Then
MessageBox.Show("输入不能为空！", "错误提示")
Exit Sub
Else
MessageBox.Show("字符串长度不一致", "错误提示")
Exit Sub
End If
End If
End Sub

是你的思路一开始就偏了，导致后面不好处理！获取目录下的文件列表，有3种方法，其实都差不多，只是可能后期的处理需求不同用不同的类来实现。
第一种方法：
'读取D:\Temp目录下所有文件完整路径名称
Dim pathArray As String() = IO.Directory.GetFiles("D:\Temp")
'历遍文件完整路径
For Each path As String In pathArray
'获取完整路径下的文件名称，添加到ListBox1
ListBox1.Items.Add(IO.Path.GetFileName(path))
Next

第二种方法：
'读取D:\Temp目录下所有文件完整路径名称
Dim pathArray As String() = IO.Directory.GetFiles("D:\Temp")
'历遍文件完整路径
For Each path As String In pathArray
'根据文件完整路径新建FileInfo文件信息对象
Dim info As New IO.FileInfo(path)
'获取文件名称，添加到ListBox1
ListBox1.Items.Add(info.Name)
Next

第三种方法：
'读取D:\Temp目录下所有文件完整路径名称
Dim pathArray As String() = IO.Directory.GetFiles("D:\Temp")
'历遍文件完整路径
For Each path As String In pathArray
'根据文件完整路径新建DirectoryInfo目录信息对象
Dim info As New IO.DirectoryInfo(path)
'获取文件名称，添加到ListBox1
ListBox1.Items.Add(info.Name)
Next

普通应用，第一种就可以。
用FolderBrowserDialog操作的话，把"D:\Temp"换成 FolderBrowserDialog.SelectedPath

vb.net截取一段路径中的文件名的话直接用这个函数即可

My.Computer.FileSystem.GetFileName(path)

其中path就是完整的路径。

例如：Dim myStr As String = My.Computer.FileSystem.GetFileName("C:\1.vb")
那么 myStr 就是 1.vb。

不要用Mid什么的了，太麻烦还容易出错。

你的mid函数用错了，用left函数，用Microsoft.VisualBasic.Left引用。同时i要从0开始计数，listbox的index是从0开始的，最后你的ListBox1.Items.Count要减一，所以你的第一个和最后一个有问题。

谢谢谢谢，不过经过我无数次的调试，我用Mid函数也成功了。你的方法很简洁，还是改用你的吧。
把 IO.Directory.GetFiles(FolderBrowserDialog1.SelectPath).ToString 当作参数传进去呀

---

vb.net高手帮忙看一下这个从listbox中截取字符串的代码哪里不对视频