Si grazie per l'interessamento, ieri ci ho perso tutto il pomeriggio. Il codice è questo e mi sa proprio che c'è un errore.
Module Module1
Sub Main()
Dim F As FileAttributes
F = FileAttributes.Archive Or FileAttributes.System Or _
FileAttributes.Hidden
'Ora F è 00001110 e bisogna eseguire un'operazione di And
'sui bit, confrontando questo valore con Archive, che è 8.
'And restituisce Vero solo quando entrambe le condizioni
'sono vere:
'00001110 And
'00001000 =
'00001000, ossia Archive!
If F And FileAttributes.Archive = FileAttributes.Archive Then
Console.WriteLine("Il file è marcato come 'Archive'")
End If
Console.ReadKey()
End Sub
End Module
Questa riga
If F And FileAttributes.Archive = FileAttributes.Archive Then
Secondo me va cambiata con questa:
If F And FileAttributes.Archive Then
Sai dirmi se ho ragione? Se si, bisognerebbe modificare la lezione 16 altrimenti altri potrebbero perderci un pomeriggio non riuscendo a capire i comandi.
Comunque grazie mille per l'interessamento.
|