Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        If TextBox3.Text = "" Then
            MsgBox("immettere anno") : Exit Sub
        End If
        If TextBox1.Text = "" Then
            MsgBox("immettere la serie") : Exit Sub
        End If
        Dim path As String = "c:\"
        Dim percorsoRoot As String = path + TextBox3.Text
        My.Computer.FileSystem.CreateDirectory(percorsoRoot)
        MsgBox("cartella creata con successo")
        My.Computer.FileSystem.CreateDirectory(path + TextBox1.Text)

        'Alternativa se non si vuole usare move
        'My.Computer.FileSystem.CreateDirectory(percorsoRoot + "\" + TextBox1.Text)

        Dim sourceDirectory As String = path + TextBox1.Text + "\"  'c:\SubDirectory
        Dim destinationDirectory As String = percorsoRoot + "\" + TextBox1.Text  'c:\folderRoot\SubDirectory
        SpostaFolder(sourceDirectory, destinationDirectory)

    End Sub

    Public Sub SpostaFolder(ByVal sourceDirectory As String, ByVal destinationDirectory As String)
        Try
            Directory.Move(sourceDirectory, destinationDirectory)
        Catch e As Exception
            Console.WriteLine(e.Message)
        End Try
    End Sub