On Senin, 05 Juli 2010 0 komentar

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...

0 komentar:

Posting Komentar