VB6 Code - Mendapatkan Directory Application Data

Di bawah ini merupakan fungsi VB6 untuk mendapatkan Aplication Data atau disingkat dengan AppData.

'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