mau tanya nih ama kawan2 smua..
### Apa sih klebihan & klemahan progromming dgn API ato menggunakan Object??
misalnya utk mendapatkan Systems Folder dari OS kita bs pake API ato Object.
'==============API:
Public Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Function SysPath() As String
Dim Ret As Long
SysPath = Space(255)
Ret = GetSystemDirectory(SysPath, 255)
SysPath = Left$(SysPath, Ret)
End Function
Dim Ret As Long
SysPath = Space(255)
Ret = GetSystemDirectory(SysPath, 255)
SysPath = Left$(SysPath, Ret)
End Function
'=========OBJECT:
Dim FSO As Object, Folder As Object, Filex As Object
Dim fSource As String, fWinSystem As String
Dim fWindows As String
Dim lTemp As Long, lCounter As Long
Set FSO = CreateObject("Scripting.FileSystemObject")
fSource = App.Path & "
\ActiveX"Set Folder = FSO.getfolder(fSource)
If Right(fSource, 1) <> "
\" Then fSource = fSource + "\"fWindows = FSO.GetSpecialfolder(0) & "
\" ' 0 = WindowsfWinSystem = FSO.GetSpecialfolder(1) & "
\" ' 1 = System, 2 = Temp'Trims smuanya...
--
~orang awam~
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
SPONSORED LINKS
| Indonesia phone card | Programmer | Indonesia tour |
| Indonesia travel | Indonesia flower |
YAHOO! GROUPS LINKS
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
__,_._,___
