How To Move Files Between Folders

I have the following code which works without errors but I don't know how to implement another process as explained below:

Code:
Private Sub Daily_Collections()
'Dim query As String
Dim cmd As New SqlCommand
Dim conn As SqlConnection = GetDbConnection()
'destination of the unzipped files
[Code] .....

In the highlighted section, I move all the files stored in the path in label2.text to label4.text. Now, I want to change that for not moving everything but ONLY the files when prac_no as read from QryDailyAuto_Coll equals to Col_Prac_no. All other files should not be moved..