Cara Membuat Aplikasi Sederhana Untuk Mengetahui Ukuran File

OK, Pertama - tama saya ucapkan terima kasih buat kalian yang sudah meluangkan waktu untuk mampir ke artikel saya. Semoga dengan adanya artikel saya ini bisa menambahkan wawasan kalian sendiri.

Langsung ke TKP nya aja ya, Gak usah basa dan basi lagi. Bahan yang kalian butuhkan cukup gampang kok :

1. Visual Basic 6.0
2. Ketelitian dan keuletan

Jika, Bahan - bahan sudah terkumpulkan saat untuk praktek.

1. Buka Visual Basic 6.0 nya

2. Pilih Standard Exe

3. Setelah itu CTRL + T pada keyboard

4. Muncul Box, Pilih :

5. Klik Apply / OK

6. Dengan otomatis di ToolBox akan muncul atau bertambah beberapa Tool.

7. Klik / Pilih Tool tersebut lalu masukkan disembarang tempat. Tempatnya di Form.

8. Lalu, saat untuk design Form nya. Kurang lebih bisa dilihat pada screenshot dibawah :

9. Setelah itu ... saatnya untuk Ngoding. ^_^

10. Copy dan Paste kan Code dibawah ini kedalam Form yang sudah dibuat sebelumnya.

Private Sub Command1_Click() Me.CommonDialog1.ShowOpen Dim l As Long l = ((FileLen(Me.CommonDialog1.FileName) / 1024) / 1024) MsgBox l & " MB" End Sub Private Sub Command2_Click() Me.Label1.Caption = SelectFolder Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") MsgBox fso.GetFolder(Label1).Size End Sub Function SelectFolder() Dim strPath As String, Bi As BrowseInfo, iShow As Long On Error GoTo Select_Error Bi.hWndOwner = Me.hWnd Bi.lpszTitle = lstrcat("Pilih folder yg ingin dicari .....", "") Bi.ulFlags = 2 'BIF_RETURNONLYFSDIRS iShow = SHBrowseForFolder(Bi) If iShow Then strPath = String$(MAX_PATH, Chr(0)) SHGetPathFromIDList iShow, strPath strPath = Left$(strPath, InStr(strPath, Chr$(0)) - 1) SelectFolder = strPath End If Exit Function Select_Error: SelectFolder = "" End Function

11. Belum sampai disini ... Ada satu langkah lagi, yaitu ...
12. Buatlah Module-nya.
13. Kemudia Copy dan Paste kan code berikut :

'browse folder Public Declare Function SHBrowseForFolder Lib "shell32" _ (lpbi As BrowseInfo) As Long Public Declare Function SHGetPathFromIDList Lib "shell32" _ (ByVal pidList As Long, ByVal lpBuffer As String) As Long Public Type BrowseInfo hWndOwner As Long pIDLRoot As Long pszDisplayName As Long lpszTitle As Long ulFlags As Long lpfnCallback As Long lParam As Long iImage As Long End Type Public Const BIF_RETURNONLYFSDIRS = 1 Public Const MAX_PATH = 260 Public Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" _ (ByVal lpString1 As String, ByVal lpString2 As String) As Long

14. Sudah selesai dehhh .. Saatnya test, tekan F5.

Dan, tambahan ..
Kalau masih sedikit bingung dengan artikel ini. Silahkan download source code dari software sederhana ini : DISINI.

Mungkin itu saja yang dapat penulis share kali ini, "Cara Membuat Aplikasi Sederhana Untuk Mengetahui Ukuran File".

Semoga bermanfaat dan selamat mencoba ... ^_^

Note : Software sederhana ini hanya dapat menghitungkan file size MB.