Penjelasan Kode

Penjelasan Kode :

Private Declare Function GetDriveType Lib "kernel32"_
Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
// Mendeklarasikan Fungsi API GetDriveType yang berguna untuk mengambil informasi 
   drive termasuk jenis apa.//

Private Declare Function GetWindowsDirectory_
Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As
String, ByVal nSize As Long) As Long
// Mendeklarasikan  Fungsi API GetWindowsDirectory yang berguna untuk mengambil
   informasi system Operasi windows terletak di direktori mana.//

Private Function  DriveType (Drive As String) As String

// Mendeklarasikan Fungsi DriveType dengan tipe data variabel string.//

     ''////fungsi mengecek drive
     Dim sAns As String,1Ans As Long

// Mendeklarasikan variable sAns dengan tipe data string dan variable |Ans dengan tipe data

   Long integer.//

     'fix bad parameter values
     If Len (Drive) = 1 Then Drive = Drive & ":\"

//Mengecek jika panjang drive(variable dari  Fungsi DriveType) adalah 1 maka variable drive 

  akan bernilai drive ditambah karakter  ":\"  (tanpa tanda kutip).Maksudnya kadaang 

  dalam windows  drive dengan karakter  "c"  (tanpa tanda kutip) atau  "c". Untuk mengatasi 

  hal tersebut maka diberi handle error seoerti kode di atas.Misal drive terdeteksi sebaagai 

  karakter  "c", maka karakter "c"  akan ditambah karakter  ":\" sehingga akan menjadi "c:\".

     If Len (Drive) = 2 And Right$ (Drive,1) = ":\"_
         Then Drive = Drive & "\"

// Mengecek jika panjang drive(variabel dari  Fungsi DriveType) adalah 2 dan karakter drive

   diambil  dari kanan adalah ":" maka variabel drive akan bernilai  drive ditambah karakter 

   "\". Misal drive terdeteksi  sebagi karakter  "c:", maka karakter "c:" akan ditambah  

   karakter  "\"  sehingga menjadi "c:\".

     1Ans = GetDriveTpye (Drive)

// Mendeklarasikan variable  berisi |Ans berisi tipe drive dari variabel “Drive”.kode ini 

   berfungsi untuk mengetahui tipe drive tersebut  adalah cd-rom,floppy,atau hardisk.misalnya

   anggap saja variabel Drive adalah  "c: ",maka  komputer "c: " akan mencari tahu tipe drive  "c:\" 

   itu termasuk CD-ROM,Floppydisk atau Hardisk.

     Select Case 1Ans
      Case 2
        sAns = "Removable Drive"
      Case 3
        sAns = "Fixed Drive"
      Case 4
        sAns = "Remote Drive"
      Case 5
        sAns = "CD-ROM"
      Case 6
        sAns = "RAM Disk"
      Case Else
        sAns = "Drive Doesn’t Exist"
      End Select
     
      DriveType = sAns

//Keterangan daridrive yang ada di CPU atau komputer apakah termasuk tipe Removable Drive (Floppy,Flashdisk,dll),fixed Drive (Hardisk),Remote drive(drive yang dimapping),CD_ROM,RAM  Disk (Zip Drive),atau Drive Doesn’t  Exist (Drive tidak ada).

      DriveType = sAns

// Mendeklarasikan Fungsi DriveType  dari variable sAns yang didapat.

End Function
// Akhir dari Fungsi.