Kode Untuk Mendapatkan Aplikasi Data Roaming Dengan VB6

Pada artikel beberapa hari yang lalu Admin sudah membagikan dua kode file directory yaitu diantaranya kode untuk mendapatkan Directory file MyDocument dan kode untuk mendapatkan Directory Commond files

Namun pada artikel kali ini Admin akan membagian kode File Directory yang ketiga yaitu AppData\Roaming. Berikut dibawah ini adalah kode untuk mendapatkan File Directory AppData\Roaming.Untuk membuatnya sama dengan proses sebelumnya.

'Fungsi untuk mendapatkan Aplication Data:

Function GetAppDataPath() As String

    GetAppDataPath = Environ("AppData")

End Function


'Contoh penggunaan fungsi untuk mendapatkan application data:

Private Sub Form_Load()

    MsgBox GetAppDataPath

End Sub

Setelah anda mengetikan kode diatas silahkan jalankan project Anda, jika tidak ada error maka hasilnya akan tampak pada gambar dibawah ini :

AppData\DataRoaming

Demikianlah artikel singkat pada hari ini, semoga bermanfaat buat kita semua.Amin.
Selamat mencoba semoga sukses...

No comments: