copying multiple files from 1 folder to another.

[redAllison21]

what i have is a folder that has over 1000 pdf's inside it. I also have a program that runs a querey in SAP and returns a text file with certain pdfs that need to be copied into another folder to be shipped out to the field. currently i have my secretary that moves these files manually. I have began to create a program that will read the text file then copy these automaticly. I have been able to make a button and textbox that will create the new folder, button that will load the text file into the text box.
The problem i am having is reading the textbox that will concatenate the textbox with the file name and copy it into the new folder. here is the code i have currently


Imports System.IO

Imports System.Convert
Imports Microsoft.Visua lBasic.ControlC hars

Public pstrLine As String


Function FileToArray(ByV al filePath As String) As String()
Dim content As String
Dim lines As New ArrayList
Dim sr As System.IO.Strea mReader

' read the file's lines into an ArrayList
Try
sr = New System.IO.Strea mReader(filePat h)
Do While sr.Peek() >= 0
lines.Add(sr.Re adLine())
Loop
Finally
If Not sr Is Nothing Then sr.Close()
End Try

' convert from ArrayList to a String array
Return CType(lines.ToA rray(GetType(St ring)), String())
End Function

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e _
As System.EventArg s) Handles MyBase.Load

End Sub





Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles Button1.Click


Try
Directory.Creat eDirectory("c:\ " & TextBox1.Text)

Catch
End Try
MsgBox("Done")
End Sub



Private Sub btnOpenTextFile _Click(ByVal sender As System.Object, ByVal e As System.EventArg s) Handles btnOpenTextFile .Click

Dim pstrLine, pstrFile As String
Dim psrdCurrent As System.IO.Strea mReader
ofdCommon.ShowD ialog()
psrdCurrent = New System.IO.Strea mReader(ofdComm on.FileName)
pstrLine = psrdCurrent.Rea dLine()
Do Until pstrLine = Nothing
pstrFile += pstrLine & CrLf
pstrLine = psrdCurrent.Rea dLine()
Loop
psrdCurrent.Clo se()
TextBox3.Text = pstrFile
End Sub
Private Sub btncopyFiles_Cl ick(ByVal sender As System.Object, ByVal e As System.EventArg s) Handles btncopyFiles.Cl ick

End Sub

End Class


Please Help