Friday, March 12, 2010

VB6 Code - Fungsi Untuk Mengisi ListBox Dengan Seluruh File

Di bawah ini merupakan fungsi VB6 untuk mengisi Listbox dengan seluruh file, maksudnya (karena judul tersebut kurang lengkap) fungsi untuk mengisi ListBox dengan file-file dari sebuah directory yang telah ditentukan.

Fungsi untuk mengisi ListBox dengan seluruh file:
Function LoadFilesToList(FileName As String, lst As ListBox, Optional Attrib As VbFileAttribute)
Dim sNextFile As String
sNextFile = Dir$(FileName, Attrib)
While sNextFile <> ""
If sNextFile <> "." And sNextFile <> ".." Then
lst.AddItem sNextFile
End If
sNextFile = Dir$
Wend
End Function
Contoh Penggunaan fungsi untuk mengisi ListBox dengan seluruh file:
Private Sub Command2_Click()
LoadFilesToList "C:\Windows\System32\*", List1, vbArchive + _
vbDirectory + vbSystem
'mengenai vbArchive + vbDirectory + vbSystem optional, boleh _
diisi atau tidak tergantung kebutuhan
End Sub
READ MORE - VB6 Code - Fungsi Untuk Mengisi ListBox Dengan Seluruh File

VB6 Code - Fungsi Untuk Mengetahui Keberadaan Sebuah Folder

Di bawah ini merupakan fungsi VB6 untuk mengetahui keberadaan folder.

Fungsi untuk mengetahui keberadaan folder:
Function IsFolderExist(FolderName As String) As Boolean
IsFolderExist = (Dir$(FolderName, vbDirectory) <> "")
End Function
Contoh penggunaan fungsi untuk mengetahui keberadaan sebuah folder:
Private Sub Form_Load()
MsgBox IsFolderExist("C:\Windows") 'True jika ada
MsgBox IsFolderExist("C:\Data Asep Hibban") 'False jika tidak ada
End Sub
READ MORE - VB6 Code - Fungsi Untuk Mengetahui Keberadaan Sebuah Folder

VB6 Code - Mendapatkan Nama File dari Path Lengkap

Di bawah ini merupakan fungsi VB6 untuk mendapatkan nama file dari path lengkap.

'Fungsi untuk mendapatkan file dari path lengkap:
Public Function GetFileName(FileName As String) As String
Dim str() As String
str = Split(FileName, "\")
GetFileName = str(UBound(str))
End Function

'Contoh fungsi untuk mendapatkan file dari path lengkap:
Private Sub Form_Load()
MsgBox GetFileName("C:\Program Files\Winamp.exe")
End Sub
READ MORE - VB6 Code - Mendapatkan Nama File dari Path Lengkap

VB6 Code - Mendapatkan Ekstensi dari Path Lengkap

Di bawah merupakan fungsi VB6 untuk mendapatkan ekstensi dari path lengkap.
'Fungsi untuk mendapatkan ekstensi dari path lengkap:
Public Function GetExtension(FileName As String)
Dim str() As String
str = Split(FileName, ".")
GetExtension = str(UBound(str))
End Function

'Contoh penggunaan fungsi untuk mendapatkan ekstensi dari path lengkap
Private Sub Form_Load()
MsgBox GetExtension("c:\mydir\myfile.exe") 'menghasilkan 'exe'
End Sub
READ MORE - VB6 Code - Mendapatkan Ekstensi dari Path Lengkap