Dir, SubDir and Copy file

I have a directory with a number of files in it. I am trying to manipulate the files by customer name and move them to a folder with this customers name. I have the following steps to complete

Get the customers number from the filename
Check to see if there is an existing folder for this customer if not create a folder, if the parent folder exists then check to see if there is a child subfolder for the previous month, if not create it and then copy the file into the child subfolder.

I am most of ther way there I am just having some trouble with the parent and child subfolders.

Dim FolderDate = Format(DateSerial(Year(Now()), Month(Now()), 0), "yyyy-mm")
        Dim d As New IO.DirectoryInfo("C:\SourceFolder\")
        Dim Destinationfolder As String = "C:\Test Folder\"
        Dim f As IO.FileInfo
        For Each f In d.GetFiles("*.pdf")
            Dim FName As String = f.Name.Substring(0, f.Name.LastIndexOf("."))
            FName = FName.Substring(0, 6)

            MessageBox.Show(FName)
            MessageBox.Show(f.FullName)

            Dim path As String
            path = Destinationfolder & FName
            Dim subdi = path & "\" & FolderDate

            'Try
            ' Determine whether the directory exists.
            If Directory.Exists(path) Then
                'Return
            End If

            If Directory.Exists(subdi) Then

            End If

            ' Try to create the directory.
            Dim di As DirectoryInfo = Directory.CreateDirectory(path)
            Console.WriteLine("The directory was created successfully at {0}.", Directory.GetCreationTime(path))


            System.IO.File.Copy(f.FullName, subdi & "\" & f.Name, True)


            'Catch e As Exception
            '    Console.WriteLine("The process failed: {0}.", e.ToString())
            'End Try

        Next

Select all Open in new window