how can i like scan file to see if they are a virus ???

[Libero]

Observe! You can´t look for a specific virus with this. But you can watch every change.

With a commandbutton and a textbox.


Private Sub Command1_Click()
Dim FileName As String
Dim FileSize As Currency
Dim Directory As String
Directory = "C:\"
FileName = Dir$(Directory)
FileSize = 0
Do While FileName <> ""
FileSize = FileSize + FileLen(Directory & FileName)
FileName = Dir$
Loop
Text1.Text = Str$(FileSize)

End Sub