QUIERO QUE ME AVISE DEL CONTENDIO DE UNA CARPETA

uhmm, es una tarea muy especifica.
No te serviria crear un Dir/w/s y ejecutarlo cada cierto tiempo programado?
Si no hay nada te saldran solo los folders, si cae algun archivo te listara contenido.


Saludos
Mr Big Dragon.


"JOSE" wrote in message news:
: Buenos días.
:
: Necesito que cada x minutos se revisen unas 10 carpetas que normalmente
: estarán vacías, para cuando alguna de ellas tenga algo el ordenador me
: avise diciéndome que carpeta contiene algún archivo.
:
: Que programa necesito? O que forma tengo de indicarle al ordenador que me
: realice dicha tarea?
:
:
: Gracias por leerme.
:
:
: José
:
:

Buenas noches,

Es una idea (pero seria un poco incordio, para el trabajo diario).


Gracias de todas formas.

Jose.

Este script monitoriza la creacción de ficheros dentro de una carpeta.
Lo puedes ejecutar contra cualquier equipo al que tengas permisos de
acceso y no consume muchos recursos de procesador.
Pega el código en una fichero de texto y luego ponle la extension vbs

strComputer = "nombre del equipo que tiene la carpeta"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & _
strComputer & "oot\cimv2")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _
("SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE " _
& "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _
& "TargetInstance.GroupComponent= " _
& "'Win32_Directory.Name=""c:\\\ombre_de_la
carpeta_a_monitorizar""'")
Do
Set objLatestEvent = colMonitoredEvents.NextEvent
Wscript.Echo objLatestEvent.TargetInstance.PartComponent
Loop

Este script monitoriza la creacción de ficheros dentro de una carpeta.
Lo puedes ejecutar contra cualquier equipo al que tengas permisos de
acceso y no consume muchos recursos de procesador.
Pega el código en una fichero de texto y luego ponle la extension vbs

strComputer = "nombre del equipo que tiene la carpeta"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & _
strComputer & "oot\cimv2")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _
("SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE " _
& "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _
& "TargetInstance.GroupComponent= " _
& "'Win32_Directory.Name=""c:\\\ombre_de_la
carpeta_a_monitorizar""'")
Do
Set objLatestEvent = colMonitoredEvents.NextEvent
Wscript.Echo objLatestEvent.TargetInstance.PartComponent
Loop

este tipo de cosas se hace siempre con con wsh y el scheduler
programado para q ejecute el script cada cierto tiempo. Informacion
sobre Windows Scripting Host tienes a paladas en la web de microsoft y
el scheduler es bastante facil de configurar. Esas son las 'piezas', si
necesitas algo mas especifico dilo q nos movemos al area apropiada.