Differenze tra le versioni di "Sapere in tempo reale se un file di nome conosciuto viene modificato o distrutto"
Da Gambas-it.org - Wikipedia.
(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...") |
(Nessuna differenza)
|
Versione delle 19:22, 13 mar 2016
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
