' 26/06/2026 Se inicializa HoraControl
This commit is contained in:
@@ -31,11 +31,12 @@ Imports System.Runtime.InteropServices
|
|||||||
' mediante el asterisco ('*'), como se muestra a continuación:
|
' mediante el asterisco ('*'), como se muestra a continuación:
|
||||||
' <Assembly: AssemblyVersion("1.0.*")>
|
' <Assembly: AssemblyVersion("1.0.*")>
|
||||||
|
|
||||||
<Assembly: AssemblyVersion("3.0.0.0")>
|
<Assembly: AssemblyVersion("3.0.1.0")>
|
||||||
<Assembly: AssemblyFileVersion("3.0.0.0")>
|
<Assembly: AssemblyFileVersion("3.0.1.0")>
|
||||||
|
|
||||||
|
|
||||||
' Cambios en la versión 3.0.0.0
|
' Cambios en la versión 3.0.1.0
|
||||||
|
' 26/06/2026 Se inicializa HoraControl
|
||||||
' 26/06/2026 Se controla todas las excepciones con tsl5.tsExcepcion y se añade HoraControl
|
' 26/06/2026 Se controla todas las excepciones con tsl5.tsExcepcion y se añade HoraControl
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@@ -2,7 +2,7 @@
|
|||||||
<package >
|
<package >
|
||||||
<metadata>
|
<metadata>
|
||||||
<id>tsFluentFTP</id>
|
<id>tsFluentFTP</id>
|
||||||
<version>3.0.0</version>
|
<version>3.0.1</version>
|
||||||
<authors>Tecnosis</authors>
|
<authors>Tecnosis</authors>
|
||||||
<owners>Tecnosis</owners>
|
<owners>Tecnosis</owners>
|
||||||
<requireLicenseAcceptance>false</requireLicenseAcceptance>
|
<requireLicenseAcceptance>false</requireLicenseAcceptance>
|
||||||
|
|||||||
2
ftp.vb
2
ftp.vb
@@ -3,7 +3,7 @@ Imports System.Security.Authentication
|
|||||||
Imports System.Threading
|
Imports System.Threading
|
||||||
Imports FluentFTP
|
Imports FluentFTP
|
||||||
Public Class ftp
|
Public Class ftp
|
||||||
Public Shared HoraControl As DateTime
|
Public Shared HoraControl As DateTime = Now
|
||||||
Public Shared Function ObtenerFechaDeModificacion(Fichero As String, ServidorFTP As ServidorFTP) As Date
|
Public Shared Function ObtenerFechaDeModificacion(Fichero As String, ServidorFTP As ServidorFTP) As Date
|
||||||
Try
|
Try
|
||||||
Dim ftp As New FtpClient(ServidorFTP.Servidor, ServidorFTP.Usuario, ServidorFTP.Contraseña, ServidorFTP.Puerto)
|
Dim ftp As New FtpClient(ServidorFTP.Servidor, ServidorFTP.Usuario, ServidorFTP.Contraseña, ServidorFTP.Puerto)
|
||||||
|
|||||||
Reference in New Issue
Block a user