Cara Membuat Folder Unicode [ vb 6 ]

Nah, ada yang pengin tau caranya bikin simbol ini Δ [ yang di pakai oleh antivirus lokal ]?
Di vb untuk buat sebuah folder unicode mudah kok hanya dengan 1 buah fungsi API dan 1 buah fungsi.

Nah, apa kegunaan folder unicode?
-untuk melindungi suatu folder dari infeksi virus,virus lokal rata" belum pada support path/directory unicode,makanya teknik folder unicode ini masih aman ]

Oke. langsung kita buat.
1.Buka visual basic 6.0
2.Buat sebuah command [ Command1 ]
3.Lalu masukan fungsi API di bawah ini dengan cara klik kanan pada form => View code

Code:
Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryW" (ByVal lpPathName As Long, lpSecurityAttributes As Long) As Long
itu adalah API untuk membuat sebuah directoryW

4.code selanjutnya
masukan fungsi ini ke dalam project tadi,caranya sama seperti di atas

Code:

Public Function BuatFolder(sFolder As String)
CreateDirectory StrPtr(sFolder), VarPtr(SECURITY_ATTRIBUTES)
End Function

5. nah setelah selesai tinggal masukin deh perintahnya di command button

caranya klik 2x commandbutton lalu masukan code ini

Code:

BuatFolder "C:\" & ChrW$(916) & "Test"

NB : ChrW(916) = Δ
ini bisa di ganti sesuai kemauan

credit

ΨЋ1tΣ _ЋλςЌΣЯ™ v 3.1