Mengecek Ukuran dan Jenis File dengan VB

Untuk melihat ukuran maupun jenis file sangantlah mudah di lakukan, tapi pernahkah anda berfikir bagai mana system komputer dapat melakukan itu dengan mudah, padahal dibalik layar banyak coding coding tersusun untuk dapat membantu kita, salah satunya untuk melihat ukuran sebuah file maupen jenis file.
Nah bagai mana kalau kita membuatnya sendiri dengan bantuan Microsoft Visual Basic atau yang sering disebut dengan VB.

Cara:
Tambahkan sebuah componen Microsoft Commond Dialog Control 6.0
dengan cara klik kanan pada bagian toolsbox yang kosong lalu pilih Component...


Pada form tambahkan component : 1 textbox, 1 CommondDialog, 2 buah Button.

Pada form tambahkan kode prosedur, dengan mengklik dua kali form, dan ketikkan coding berikut :
Sub baca(foldername)
Dim x, f, s, h, t
Set x = CreateObject("Scripting.FileSystemObject")
Set f = x.getfile(foldername)
s = f.Size
t = f.Type
h = Val(s) / 1000000
h = Left(h, 4) & " " & "Mb"

MsgBox "Ukuran file : " & h & vbLf & "" _
& "Jenis file :" & t
End Sub

Pada Command1 tambahkan coding berikut:

Private Sub Command1_Click()
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
End Sub

Pada Command2 tambahkan coding berikut :

Private Sub Command2_Click()
Call baca(Text1.Text)
End Sub


GOOD LUCk....

Kunci Folder Dengan VB

Sebenarnya banyak cara untuk mengunci sebuah file dan folder, salah satunya dengan bahasa Dos, sebenarnya jika dikatakan dikunci kayaknya kurang pas.....
kerena sebenarnya file tersebut hanya di sebunyikan saja alias heiden, namun heiden disini disembunykan secara sistem, jadi dengan cara apapun tidak bakalan terlihat tanpa menggunakan coding dari bahasa Dos.
Nah bagaimana kalau bahasa dos itu kita refrensikan di visual basic 6, bisa ngak ya......?
Bisa....
Download file: disini

Konversi Access ke SQL

Padahal sebelumnya ku ngak tau kalau database access bisa di konversi ke sql server 2000, kerena sebelumnya ku ngak pernah makai sql server.....
ya.....awalnya ada temen yang nyuruh bantuin buatin program rent car sederhana tapi database nya pake sql server...., wah bagi ku itu tantangan baru yang menguntungkan, he.....he......
selain bisa nolongin temen kan bisa jadi belajar sql deh.....

Mungkin ku ngak begitu menguasai sakali yang namanya sql server, tapi asal ada kemauan pasti bisa kok.....
dari sejak tu ku cari bahan materi baik buku,internet ya sama senior senior juga. Ku hanya bisa berbagi apa yang ku punya dan apa yang ku bisa.

He....he.... langsung aja deh, yang mau tau caranya download di sini