Kode VB6 Untuk Mendapatkan Directory All User Profile

Pada artikel kali ini masih membahas tentang File Directory, beberapa artikel yang lalu Saya sudah membagikan sebuah kode yaitu Directory MyDocuments, Common Files, Application Data.

Namun pada kesempatan kali ini saya akan membagikan kode untuk mendapatkan Directory All User Profile. Berikut dibawah ini adalah kode untuk mendapatkan Directory All User Profile pada VB6 :

'Fungsi untuk mendapatkan directory All User Profile

Function GetAllUserPath() As String

    GetAllUserPath = Environ("AllUsersProfile")

End Function

'Contoh penggunaan fungsi untuk mendapatkan directory All User Profile

Private Sub Form_Load()

    MsgBox GetAllUserPath

End Sub

Setelah itu jalankan Form Anda, jika tidak ada error maka Anda akan mendapatkan Directory seperti gambar dibawah ini 

Demikianlah artikel singkat pada hari ini tentang Kode VB6 Untuk Mendapatkan Directory All User Profile semoga bermanfaat buat kita semua.Amin

Selamat mencoba semoga sukses....

Related Post: File Directory