Memindahkan Seluruh File Dalam Satu Directory

Di bawah ini merupakan fungsi untuk memindahkan seluruh file dari satu directory tertentu. Untuk keperluan ini Anda harus mereferensi pada objek Microsoft Scripting Runtime atau scrun.dll.

Option Explicit 
 
Public Function MoveAllFiles() 
    Dim fso As New FileSystemObject 
    Call fso.MoveFolder(Source, Destination) 
    Set fso = Nothing 
End Function 

Contoh penggunaan fungsi di atas:

Private Sub Command1_Click() 
    Call MoveAllFiles("C:\djview", "D:\djview") 
End Sub 

READ MORE - Memindahkan Seluruh File Dalam Satu Directory

Mengcopy Seluruh File dalam Satu Directory

Di bawah ini merupakan fungsi untuk meng-copy seluruh file dari satu directory tertentu. Untuk keperluan ini Anda harus mereferensi pada objek Microsoft Scripting Runtime atau scrun.dll.

Option Explicit 
 
Public Function CopyAllFiles(Source As String, Destination As String) 
    Dim fso As New FileSystemObject 
    Call fso.CopyFolder(Source, Destination) 
    Set fso = Nothing 
End Function 

Contoh penggunaan fungsi di atas:

Private Sub Command1_Click() 
    Call CopyAllFiles("C:\djview", "D:\djview") 
End Sub 

READ MORE - Mengcopy Seluruh File dalam Satu Directory

Memperoleh Jumlah Tombol Yang Terdapat Pada Mouse

Di bawah ini merupakan fungsi untuk mengetahui jumlah tombol yang terdapat pada mouse.

Option Explicit 
 
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long 
Private Const SM_CMOUSEBUTTONS As Long = 43 
 
Public Function ButtonMouse() 
    ButtonMouse = GetSystemMetrics(SM_CMOUSEBUTTONS) 
End Function 

Contoh penggunaan:

Private Sub Command1_Click() 
    MsgBox ButtonMouse 
End Sub 

READ MORE - Memperoleh Jumlah Tombol Yang Terdapat Pada Mouse

VB6 Code - Konversi Warna dari RGB Ke Long

Di bawah ini merupakan fungsi untuk meng-konversi warna dari rgb (red, green, blue) ke Long. Bagaimana implementasinya dalam Visual Basic 6.0? simak kodenya di bawah ini:

Public Function RGBToLong(Red As Integer, Green As Integer, Blue As Integer) 
    RGBToLong = RGB(Red, Green, Blue) 
End Function 

Contoh penggunaan fungsi konversi warna dari RGB ke Long

Private Sub Command1_Click() 
    MsgBox RGB(8, 12, 254) 
End Sub 

READ MORE - VB6 Code - Konversi Warna dari RGB Ke Long