[ASK] Bantu ane gan Anti virus ane aneh

Subject: [ASK] Bantu ane gan Anti virus ane aneh Thu Dec 01, 2011 8:02 pm

Soory gan bukan maksud nya junk tpi cuma mau nanya neh

tdi ane cba bikin anti virus

ne ss nya:

[You must be registered and logged in to see this image.]

Tapi pas dipencet Scan kq gagal gan? Alias Error?

Apa ane salah masukin script nya?

Code:: Private Sub cmdScan_Click()
'Code:
If cmdScan.Caption = "Scan" Then
Pathnya = txtPath.Text
If Mid(Pathnya, 2, 1) <> ":" Or Pathnya = "" Then
MsgBox "Direktori Tidak Ditemukan", vbCritical, "Error"
Exit Sub
Else
lvScan.Enabled = False
cmdEnable False, False, False
clear_log
cmdScan.Caption = "Stop"
StopScan = False
FindFilesEx txtPath.Text, CBool(chkSubDir.Value)
MsgBox "Scan finished !" & vbNewLine & vbNewLine & "Total Dir Scanned = " & lblDirScan.Caption & _
vbNewLine & "Total File Scanned = " & lblFileScan.Caption & vbNewLine & "Total File Detected = " & lblFileDet.Caption, vbInformation, "Finish"
If lblFileDet.Caption <> "0" Then
cmdEnable True, True, True
Else
cmdEnable False, False, True
End If
lvScan.Enabled = True
cmdScan.Caption = "Scan"
End If
Else
cmdScan.Caption = "Scan"
StopScan = True
End If
End Sub

tuh code sript scan nya gan?

and ane mohon pencerahan dan bantuan nya gan
nanti ane kasih cendol deh [ASK] Bantu ane gan Anti virus ane aneh 399996

» Cara Membuat Anti Virus VB 6
» AXTAV [ Alex Team Anti Virus ]
» Anti virus khusus untuk flashdisk
» ARTAV Revolusi 1- Anti Virus Terbaik di Indonesia
» Membuat Anti Virus Visual Basic 2010 Express