我有一个选中的列表框,使用文件夹浏览器对话框从所选位置填充文件和子文件。我想要完成的是检索该列表中每个已检查项目的每个位置/目录。我使用这些位置作为复制和粘贴新文件的位置,如果有意义的话。
我应该补充一点,我是编码的新手,我不知道如何做一些事情,因为"复杂"就这样。这也是我的第一篇文章,如果这对你们来说这是一个更容易的类型问题我会道歉。
For Each file As IO.FileInfo In ListBox1.CheckedItems
Dim NewFileName As String = FindListBox2ItemThatContains(file.Name)
Dim lstfiles As String = Directory.GetFiles(FBD2.SelectedPath)
If NewFileName.Trim.Length > 0 Then
IO.File.Copy(file.FullName, IO.Path.Combine(FBD2.SelectedPath, "item parent folder", NewFileName.Trim), True)
End If
ProgressBar1.Increment(+1)
Next