VB.NET copy files from excel column?

[daveofgv]

I have many files at work that need to be copied from one directory to another. However, I do not need to copy all the files at once.

I get excel sheets with the list of files that need to be copied once a week. So, in the main directory there is about 150.000 files and I only need to copy about 800 at a time.

I need help doing this. I am thinking of having a textbox and an open dialog so I can pick the directory the main files are at - another one where I can choose where they will be copied to.

The problem is the list will be in excel sheet (column A). How do I have vb.net (2008) see the file names in column A and find them and move them?

Right now, I have macros in excel doing the job, however, I have so many things in this excel I need to transfer this part out and into vb.net.

The macro in excel doing the job is:

Sub CopyFiles()

    Dim objFSO As FileSystemObject
    Dim strSourceFolder As String
    Dim strDestFolder As String
    Dim arrMyFiles() As String
    Dim MatchVal As Variant
    Dim Cnt As Long
    Dim i As Long
    Dim LastRow As Long
    
    Application.ScreenUpdating = False
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
   '*****************************************************************
   '*****************************************************************
    '---- This is the only part that you need to change ----
   '*****************************************************************
    'Change the path to the source folder accordingly
    strSourceFolder = "C:\Users\dbush\Desktop\test\"
    
    'Change the path to the destination folder accordingly
    strDestFolder = "C:\Users\dbush\Desktop\teest\"
   '*****************************************************************
   '*****************************************************************
   
   
   
    Call ProcessFolders(objFSO, strSourceFolder, arrMyFiles(), Cnt)
    
    LastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    For i = 1 To LastRow
        With Application
            MatchVal = .Match(Cells(i, "A").Value, .Index(arrMyFiles, 2, 0), 0)
            'Error's found then put the value specified
            If IsError(MatchVal) Then
                'Cells(i, "B").Value = 1
                Cells(i, "B").Value = ("Not Found")
                'Colors the non-found cell yellow
                Cells(i, "A").Interior.ColorIndex = 6
            Else
            'Add "Duplicate" to already found files
            If objFSO.FileExists(strDestFolder & Cells(i, "A").Value) Then
             Cells(i, "C").Value = "Duplicate"
    Else
            objFSO.GetFile(.Index(arrMyFiles, 1, MatchVal) & "\" & .Index(arrMyFiles, 2, MatchVal)).Copy strDestFolder, False
        End If
                'objFSO.GetFile(.Index(arrMyFiles, 1, MatchVal) & "\" & .Index(arrMyFiles, 2, MatchVal)).Copy strDestFolder
           End If
        End With
    Next i
    
    Application.ScreenUpdating = True
    'Message box when finished
    MsgBox "Dave's Program has Completed...", vbInformation

Can someone please help me with this changing it over to vb.net?

Any help will be very much appreciated.

daveofgv

[dglienna]

Here's a link, to download SAMPLE files

[daveofgv]

The link said 0 sample files found