Pada artikel yang lalu kita sudah membahas bagaimana cara mendapatkan Folder MyDocument dengan menggunakan Code VB6. Namun pada pertemuan kali Saya akan berbagi Code yang tidak jauh berbeda yaitu bagaimana Cara mendapatkan Directory Commond Files dengan cara yang sama pada saat kita mendapatkan Folder MyDocument pada artikel yang lalu yang saya sudah sebutkan diawal kalimat diatas.
Berikut dibawah ini adalah Code untuk menampilkan Directory Commond Files di VB6 :
'Fungsi untuk mendapatkan directory common files:
Function GetCommonPath() As String
GetCommonPath = Environ("CommonProgramFiles")
End Function
'Contoh penggunaan fungsi untuk mendapatkan directory common files:
Private Sub Form_Load()
MsgBox GetCommonPath
End Sub
Ketika form dijalankan maka akan muncul kotak dialog seperti gambar dibawah ini :
Demikian artikel kali ini tentang cara mendapatkan Directory Commond Files dengan code VB6, semoga artikel ini bermanfaat buat kita semua.Amin.
Selamat mencoba semoga sukses....
No comments:
Post a Comment