Credo ti riferisca a VB.NET, non era specificato nel titolo.

Non mi sembra ci sia molta differenza tra le varie opzioni della costrutto Select Case, e senza il reale valore delle variabili e delle proprietā mostrate č difficile rispondere (es. textbox2.text?, ReadLine?)

In generale, sarebbe meglio un codice del genere:
codice:
dim path_1 as string, path_2 as string

path_2 = TextBox2.Text & "\dt0d.img" 'visto che il valore non cambia

Select case ComboBox1.SelectedIndex.tostring 
case = "0"
path_1 = TextBox1.Text & "\Gloves\" & fileReader.ReadLine(1) 
case = "1"
path_1 = TextBox1.Text & "\Gloves\" & fileReader.ReadLine() 
'e cosė via..
end select

My.Computer.FileSystem.CopyDirectory(path_1, path_2, True)
Ciao