小编Pre*_*kwu的帖子

如何使用循环删除所有列表框项目我还要删除每个位置中的所有文件

  For i As Integer = 0 To ListBox1.SelectedIndices.Count - 1
        ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
        ListBox1.SelectedIndex = Me.ListBox1.SelectedIndex + 1
        path1 = folderBrowserDialog1.SelectedPath
        path2 = ListBox1.SelectedItem.ToString
        Dim fullpath As String = My.Computer.FileSystem.CombinePath(path1, path2)
        Kill(fullpath)
    Next