Sapere in tempo reale se un file di nome conosciuto viene modificato o distrutto
Da Gambas-it.org - Wikipedia.
Versione del 13 mar 2016 alle 19:22 di Vuott (Discussione | contributi) (Creata pagina con "Per sapere in tempo reale se un file, di cui si conosce il percorso ed il nome, viene modificato o distrutto, si può adottare un codice come il seguente: Private tempus As...")
Per sapere in tempo reale se un file, di cui si conosce il percorso ed il nome, viene modificato o distrutto, si può adottare un codice come il seguente:
Private tempus As Timer Private dr As String Private lun As String Public Sub Main() dr = "/percorso/del/file" lun = File.Load(dr) With tempus = New Timer As "Tempus" .Delay = 250 .Start End With End Public Sub Tempus_Timer() Dim s As String If Exist(dr) Then s = File.Load(dr) If lun <> s Then Print "Si sta modificando il file: "; dr lun = s Else Print "\nIl file '"; dr; "' è stato distrutto !" tempus.Stop Endif End