Servicios En .Net

GUIA DE LABORATORIO
Aplicaciones que se Ejecutan como Servicios de Windows.

Descripción: Servicio que ordenará (moverá) archivos de extensión .txt dentro de la Carpeta Descargas de la unidad D. auna nueva carpeta con nombre ‘fecha’ del día. 1. CREACIÓN DEL SERVICIO

-

Crear un Nuevo Proyecto. Servicio de Windows

-

En Explorador de Soluciones nos ubicamos en el archivoServicie1.vb Ver código.

Vista código Inicial.
Public Class Service1 Protected Overrides Sub OnStart(ByVal args() As String) ' Agregue el código aquí para iniciar el servicio. Este método debería poner ' enmovimiento los elementos para que el servicio pueda funcionar. End Sub Protected Overrides Sub OnStop() ' Agregue el código aquí para realizar cualquier anulación necesaria para detener el servicio.End Sub End Class

Vista Código Implementada.

Imports System.IO Public Class Service1 Private WithEvents tim As New Timers.Timer(10000) Protected Overrides Sub OnStart(ByVal args() As String)
'Agregue el código aquí para iniciar el servicio. Este método debería poner ' en movimiento los elementos para que el servicio pueda funcionar.

tim.Enabled = True End Sub Protected Overrides SubOnStop()
' Agregue el código aquí para realizar cualquier anulación necesaria para detener el servicio.

End Sub Private Sub tim_Elapsed(ByVal sender As Object, ByVal e AsSystem.Timers.ElapsedEventArgs) Handles tim.Elapsed Dim fecha As String = Now.ToShortDateString().Replace("/", "-") If Not Directory.Exists("D:\Descargas" & fecha) Then Directory.CreateDirectory("D:\Descargas" & fecha) End IfFor Each archivo As String In Directory.GetFiles("D:\Descargas", "*.txt") File.Move(archivo, archivo.Replace("Descargas", "Descargas" & fecha & "")) Next End Sub End Class

-

Crear instalador parael Servicio

Ir a vista Diseño.

Clic derecho Agregar Instalador.

Se crea los controles ServiceProcessInstaller1 y ProjectInstaller.vb en el Explorador de Soluciones.

ServiceInstaller1. Y...