Differenze tra le versioni di "Sapere in tempo reale se un file di nome conosciuto viene modificato o distrutto"
Da Gambas-it.org - Wikipedia.
Riga 1: | Riga 1: | ||
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: | 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 tempus As Timer | ||
Private dr As String | Private dr As String | ||
Riga 23: | Riga 22: | ||
Dim s As String | 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''' | '''End''' | ||
− | |||
oppure un codice simile al precedente, ma ponendo il file da verificare sotto ''osservazione'' con la parola chiave ''Watch'': | oppure un codice simile al precedente, ma ponendo il file da verificare sotto ''osservazione'' con la parola chiave ''Watch'': | ||
Riga 55: | Riga 53: | ||
Dim s As String | Dim s As String | ||
− | + | If Exist(dr) Then | |
− | + | s = File.Load(dr) | |
− | + | If lun <> s Then Print "Il file "; dr; " è stato modificato !" | |
− | + | lun = s | |
− | + | Else | |
− | + | Print "\nIl file '"; dr; "' è stato distrutto !" | |
− | + | fl.Close | |
− | + | Endif | |
'''End''' | '''End''' |
Versione delle 08:12, 18 mag 2023
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
oppure un codice simile al precedente, ma ponendo il file da verificare sotto osservazione con la parola chiave Watch:
Private dr As String Private lun As String Private fl As File Public Sub Main() dr = "/percorso/del/file" lun = File.Load(dr) fl = Open dr For Read Watch End Public Sub File_Watch() Dim s As String If Exist(dr) Then s = File.Load(dr) If lun <> s Then Print "Il file "; dr; " è stato modificato !" lun = s Else Print "\nIl file '"; dr; "' è stato distrutto !" fl.Close Endif End