Carpeta respaldo

Public Function folderBkp(ByVal ruta As String) As String
        Dim newFolder As String = Now.ToString("yyyy") & "\" & Now.ToString("MM") & "\" & Now.ToString("dd")
        ruta = ruta & "\" & newFolder
        If Not Directory.Exists(ruta) Then
            Directory.CreateDirectory(ruta)
        End If
        Return ruta
    End Function

Public Function folderBkp(ByVal ruta As String) As String
        ruta = ruta & "\" & Now.ToString("yyyy") & "\" & Now.ToString("MM") & "\" & Now.ToString("dd")
        If Not Directory.Exists(ruta) Then
            Directory.CreateDirectory(ruta)
        End If
        Return ruta
    End Function