Any VB.net gurus on this board?

Okay, here it goes


CheckBoxList1 (populated by a folder browser dialog)

AB01AA.dwg
BA01AA.dwg
CD01AA.dwg
EA01AA.dwg
FL01AA.dwg

CheckBoxList 2 (popluated by a separate folder browser dialog)

BASE ANGLE DETAIL BA01AA.dwg
CRANE TIE BACK DETAIL TOP RUNNING CRANE CD01AA.dwg
GUTTER CLIP EA01AA.dwg
POST HUNG EAVE FLASHING FL01AA.dwg
RIGID FRAME ANCHOR BOLT SETTING AB01AA.dwg

what i'm trying to accomplish is copy the selected/checked items from checkboxlist1 into another folder(selected from a third folder browser dialog) and rename them with the names from the checkboxlist2

i have the copy method working. i just have to include the renaming portion.

here's the code i'm using to copy...

quote:

---

For Each file As IO.FileInfo In ListBox1.CheckedItems
IO.File.Copy(file.FullName, IO.Path.Combine(TextBox3.Text, file.Name))
Next

---

eta: sorry for the late response. i didn't check on this thread for replies until after i got back from lunch.

quote:

---

How do you know which file name from list 1 corresponds to which file name from list 2?

---

that's what i'm trying to figure out. i don't know if the sorting of the list has anything to do with it or not. as of right now, the list just sorts in an alpha-numeric order.

what i want the program to do is change "AB01AA.dwg" to "RIGID FRAME ANCHOR BOLT SETTING AB01AA.dwg" and so on..

i've got it pasted and the only issues it's have thus far is the "NewFileName" after the "Dim". it's saying, "Variable 'NewFilename' hides a variable in an enclosing block."

what's that mean?

You can call that whatever you want if there's a conflict elsewhere.

holy shite, that worked. but it only did 4 of the 5 files.

what could cause that?

that didn't work either

It's always something stupid like that. Honestly, if case doesn't matter, I should've included a .ToUpper (or .ToLower) when trying to see if the filename contains a particular string.

Usually pretty standard, but I was going off the top of my head. So much of that stuff just becomes automatic the more you do it.

Glad you got it going.

This line:

quote:

---

........If ListBox2.Items(i).Text.Trim.Contains(listBox1FileName) Then

---

should be

quote:

---

........If ListBox2.Items(i).Text.Trim.ToUpper.Contains(listBox1FileName.ToUpper) Then

---

This makes the string comparisons non-case-sensitive.

Loop over every filename that is checked in ListBox1
For Each file As IO.FileInfo In ListBox1.CheckedItems

Use the function FindListBox2ItemThatContains (see below) to find the item in ListBox2 that contains the text of the current file
....Dim NewFileName As String = FindListBox2ItemThatContains(file.name)

If there is an item in ListBox2 corresponding to the current file in ListBox1
....If NewFileName.Trim.Length > 0 Then _

Make a copy of the source filepath (file.Fullname) and save it in the new directory (TextBox3.Text) with the filename from ListBox2 (NewFileName.Trim)
........IO.File.Copy(file.FullName, IO.Path.Combine(TextBox3.Text, NewFileName.Trim))

We're done with this file in ListBox1. Move on to the next one, if there are any left
Next


This Function will search through ListBox2 and Return the Filename that contains the text in listBox1FileName
Function FindListBox2ItemThatContains(ByVal listBox1FileName As String) As String

Loop over all items in ListBox2
....For i As Integer = 0 To ListBox2.Items.Count - 1

If the current item (at index i) contains the text in listBox1FileName
........If ListBox2.Items(i).Text.Trim.Contains(listBox1FileName) Then _

We've found what we're looking for. Exit the function and return that filename
............Return ListBox2.Items(i).Text

The current item (at index i) didn't contain the text in listBox1FileName, move on to the next item in ListBox2
....Next


We've run out of items in ListBox2 to check. There aren't any that contain the text in listBox1FileName. So, we return a blank string. (Have to return something)
....Return ""
End Function