-- cambio en propiedad Extension y Path, del objeto Archivo

GPS/CatEventos.aspx.vb

@@ -113,7 +113,7 @@ Partial Class GPS_CatEventos
                     If Not Directory.Exists(Path) Then
                         Directory.CreateDirectory(Path)
                     End If
-                    Dim directorioNew As String = String.Format("{0}\{1}.{2}", Path, Imagen, ArchivoImagen.Extencion)
+                    Dim directorioNew As String = String.Format("{0}\{1}.{2}", Path, Imagen, ArchivoImagen.Extension)
                     If File.Exists(directorioNew) Then
                         My.Computer.FileSystem.DeleteFile(directorioNew)
                     End If
@@ -123,7 +123,7 @@ Partial Class GPS_CatEventos
                 If TxtUpSonido.getfiles().Archivos.Count > 0 Then
                     Dim ArchivoSonido As Archivo = TxtUpSonido.getfiles().Archivos(0)
                     Dim PathSonido As String = $"{ModExtensiones.DirectorioBaseEmpresas}Sonidos"
-                    Dim dirSonido As String = String.Format("{0}\{1}.{2}", PathSonido, Sonido, ArchivoSonido.Extencion)
+                    Dim dirSonido As String = String.Format("{0}\{1}.{2}", PathSonido, Sonido, ArchivoSonido.Extension)
                     If File.Exists(dirSonido) Then
                         My.Computer.FileSystem.DeleteFile(dirSonido)
                     End If