Newsgroup: it.comp.lang.visual-basic
Titolo: Monitorare cartella

Dovrei realizzare un porgrammino che monitorizzi una cartella, e quando vi 
si presenta un nuovo files con certe caratteristiche deve succedere un 
qualcosa...
Non sono un buon programmatore, ci mettero' molto tempo a realizzarlo a meno 
che non risco a trovare il sorgente di qualcosa di simile, mi aiuterebbe 
molto.
Avreste qualcosa da suggerirmi?
Grazie 1000. 

 Avreste qualcosa da suggerirmi?
Intanto, di confessare con quale programma intendi scriverlo.
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo
Se i tempi non chiedono la tua parte migliore, inventa altri tempi. 
(Baolian, libro II, vv. 16-17)
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Intanto, di confessare con quale programma intendi scriverlo.
Scusami, pensavo che il fatto di non aver messo [OT] nel Subject equivalesse 
a dire che mi riferivo a Visual Basic. 

Davide D'Amico ha detto questo mercoledì :

Il metodo più distribuibile è quello di fare un dir, magari ordinato 
per data decrescente, mettere tutto in un array, e confrontarlo con 
l'array precedente. Facilmente distribuibile, ma forse meno facile e 
performante del secondo metodo.
Il secondo metodo, con tutte le attenzioni del caso se dovrai 
distribuirlo, è quello di usare FileSystemObject.
Scrivo a braccio uno spunto:
Public Ultimo_Giro as Date
Form_Load
Ultimo_GiroNow()
Timer_Check.Interval=1000
Timer_Check_Timer
Dim Fol as Object
Dim Fil as Object
Dim FSO as Object
Set FSO=CreateObject("Scripting.FileSystemObject")
Set Fol=FSO.GetFolder("C:\cartella")
For each Fil in Fol
  If Fil.CreateDate>Ultimo_Giro and Fil.<caratteristiche>=<determinate 
caratteristiche> then
      Call Succede_Qualcosa(Fil)
  end if
Next Fil
Private Function Succede_Qualcosa(Byref Fil as Object) as Long
...quello che vuoi....
-- 
Si è visto di meglio,
ma si è scopato di peggio,
qualche volta a pago
e non erano neanche sempre donne
[Paolo]

 Next Fil
Grazie 1000, questa mi sembra un'ottima strada.
Solo che non riesco a valorizzare Fil
All'esecuzione di "For each Fil in Fol" ottengo "Errore di run-time 438" 
"Proprieta' o metodo non supportati dall'oggetto". 

 "Proprieta' o metodo non supportati dall'oggetto".
Ok, fol.Files :-) 

 a dire che mi riferivo a Visual Basic.
Potevi tranquillamente riferirti a .net, senza essere affatto ot, e
avresti avuto a disposizione alcuni simpatici strumenti in più per fare
quello che chiedevi.


 Potevi tranquillamente riferirti a .net, senza essere affatto ot,
Ah, ok!
Comunque ho quasi risolto.
Veramente la cosa e' piu' semplice di quello che temevo. Grazie 1000 lo 
stesso.
Ciao.
p.s.
Rileggendo il mio post in risposta alla tua mi sono accorto che forse sono 
sembrato polemico..... non lo ero sappilo ;-) 

si presenta un nuovo files con certe caratteristiche [.......]
oltre al ottimo esempio di Albe V° ecco 2 righe alternative
sempre in VBS (vale il solito discorso che se vuoi distribuirlo ...)
Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFile("C:\WINDOWS\WIN.INI")
 s= f.DateLastModified
msgbox s
msgbox "sto' monitorando in background"
do until f.DateLastModified > s
 wscript.sleep 100
Loop
msgbox "Attenzione Win.ini e' stato modificato"
'lancialo e prova a modificare win.ini
'(o qualsiasi file di tua scelta modificando i parametri)
--
Fosco