He tratado de hacer esto:
Código:
Pero no me funciona. ¿En qué estoy fallando?> If Not File1.PostedFile Is Nothing And File1.PostedFile.ContentLength > 0 Then
Dim fileup As String = System.IO.Path.GetFileName(File1.PostedFile.FileName)
Dim route As String
route = lbl.Text
Dim Ruta As String = Server.MapPath("Subir\") & route
Dim directorio As DirectorInfo = Directory.CreateDirectory(Ruta)
Dim SaveLocation As String = Server.MapPath("Fotos") & "\" & route & "\" & fileup
File1.PostedFile.SaveAs(SaveLocation)
End If
Agradeceré que me auxilien en esto.

