Berikut adalah kodenya:
Private Sub cmdGetSysDir_Click()
Dim Junk, WinSysDir$
WinSysDir = Space(144)
Junk = GetSystemDirectory(WinSysDir, 144)
WinSysDir = Trim(WinSysDir)
MsgBox "The Windows System Directory Path is: " & WinSysDir
End Sub
Semoga bisa membantu...

Langganan:
Posting Komentar (Atom)
Grab this Widget ~ Blogger Accessories Custumized by Yuniarto Rahardjo
0 komentar:
Posting Komentar