Salam kenal,
Untuk kawan-kawan semuanya saya ingin bertanya & minta bantuannya...
Saya ingin bertanya :
1. Apakah kelebihan mendeklarasikan variabel secara implisit dibanding
eksplisit?
2. Apakah kekurangan mendeklarasikan variabel secara implisit dibanding
eksplisit?
3. Menurut kawan-kawan, lebih baik dideklarasikan secara eksplisit atau
implisit?
Saya sudah mencoba mendeklarasikan variabel secara implisit...
Dibawah ini adalah kode yg saya tuliskan yg berfungsi untuk mendapatkan tipe
drive dan variabel-nya saya deklarasikan secara implisit:
Mohon bantuannya untuk dikoreksi :)
'Awal Module
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA"
(ByVal nDrive As String) As Long
Public Function DriveType$(strDrive$)
If Len(strDrive$) = 1 Then strDrive$ = strDrive$ & ":\"
If Len(strDrive$) = 2 And Right$(strDrive$, 1) = ":" Then strDrive$ =
strDrive$ & "\"
lDriveType& = GetDriveType&(strDrive$)
Select Case lDriveType&
Case 2
strDriveType$ = "Removable Disk"
Case 3
strDriveType$ = "Fixed Drive"
Case 4
strDriveType$ = "Remote Drive"
Case 5
strDriveType$ = "CD-ROM"
Case 6
strDriveType$ = "RAM Disk"
Case Else
strDriveType$ = "Not exist"
End Select
DriveType$ = strDriveType$
End Function
'Akhir Module
'////////////////////////////////////////////////////////////////////////////////////////////////////////////////
'Awal Form
Private Sub RefreshDrive()
List1.Clear
For iCtr% = 65 To 90
strDrive$ = Chr$(iCtr%)
If DriveType$(strDrive$) <> "Not exist" Then
On Error Resume Next
List1.AddItem strDrive$, 0
End If
Next iCtr%
End Sub
'Akhir Form
Apakah coding/deklarasi variabel saya diatas sudah benar ? :)
Mohon bantuannya kepada kawan-kawan semua...
Sebelumnya saya ucapkan terima kasih... :)
