Hola!!
Fijate que use la sugerencia que me brindaste, pero sigue funcionando igual
El codigo con el que lo guardo es:
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim strFileName As String
Dim fecha_nombre As String
Dim ruta_archivos As String = "C:\Inetpub\wwwroot\SisFac_Pruebas\Archivos\"
If Not (File1.PostedFile Is Nothing) Then
' Este es un algoritmo para concatenar al nombre del archivo, ciertos parametros para hacer que el archivo sea siempre unico
fecha_nombre = Date.Now
If Date.Now.Hour < 10 Then
fecha_nombre = fecha_nombre.Replace(" ", "0")
End If
fecha_nombre = fecha_nombre.Replace(" ", "")
fecha_nombre = fecha_nombre.Replace("/", "")
fecha_nombre = fecha_nombre.Replace(":", "")
fecha_nombre = fecha_nombre.Replace("p.m.", "")
fecha_nombre = fecha_nombre.Replace("a.m.", "")
fecha_nombre = fecha_nombre & "_"
If File1.Value <> Nothing Then
strFileName = File1.Value.Trim().Substring(File1.Value.Trim().La stIndexOf("\") + 1)
File1.PostedFile.SaveAs((ruta_archivos & fecha_nombre & strFileName))
End If
End If
End Sub
¿Cómo ves ese código?