VB Code - Fungsi Untuk Mendapatkan Directory My Documents

Di bawah ini merupakan fungsi VB6 untuk mendapatkan directory My Documents.

'Fungsi untuk mendapatkan directory My Documents:
Function GetDocumentsPath() As String
    GetDocumentsPath = Environ("USERPROFILE") & "\My Documents"
End Function

'Contoh penggunaan Fungsi untuk mendapatkan directory My Documents:
Private Sub Form_Load()
    MsgBox GetDocumentsPath
End Sub