Rumus mengetahui Directory Windows :
Option Base 1
Private Declare Function GetWindowsDirectory Lib "kernel32"
Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize
As Long) As Long
Private Sub GetWindowsDirectory()
Dim strFolder As String
Dim lngResult As Long
strFolder = String(260, 0)
lngResult = GetWindowsDirectory(strFolder, 260)
If lngResult <> 0 Then
GetWindowsDirectory = Left(strFolder, InStr(strFolder, Chr
(0)) - 1)
Else
GetWindowsDirectory = ""
End If
End Sub
--- In [email protected], su_betmen nusaputra
<[EMAIL PROTECTED]> wrote:
>
> dear all,
> mohon maaf mau numpang tanya lagi
> kira2 bagaimana ya caranya supaya kita tahu alamat system path
windows (c:\windows) scr coding VB
> jg klo di XP/2000, ada ngga yg tahun caranya kita tahu alamat dr
local folder (c:\documents and settings\user1\my documents)
>
> makasih buat pencerahannya
>
>
> ---------------------------------
> New Yahoo! Messenger with Voice. Call regular phones from your PC
and save big.
>
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
