Delete File Unicode

ehm, unicode apa sih?
unicode adalah karakter encoding yang ada diluar dari standard key ASCII
ex :



nah, jika kalian membuat sebuah program untuk menghapus file seperti itu dalam VB 6.0, tidak bisa menggunakan perintah



Kill "alamatfile"


atau


Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long

DeleteFile "alamatfile"


kok gak bisa sih?
gak canggih nih VB, canggihan tombol delete di keyboard.. hahahahahaha....
wew, VB canggih kok, yang gak canggih kitanya kali...hahahaha..
tapi setelah baca artikel ini semoga jadi canggih [cihuuuyyy, promosi nih....] :D

hayo, kenapa tidak bisa?
begini, karena pada fungsi Kill dan DeleteFile [alias DeleteFileA], parameternya bertype data string...
ehm, string itu adalah kumpulan karakter bukan...
Karakter disini adalah standard key ASCII -> karakter dari 0 - 255
sedangkan unicode itu diluar dari ASCII, yaitu Wide....

lalu bagaimana dong?
begini jadinya, untuk mengakses unicode kita butuh type data long, yang nantinya akan di konversi menggunkan fungsi
strptr

lalu bagaimana menghapus file tersebut?
karena Windows [XP/Vista/Seven] support unicode, windows pasti menyediakan donk, dengan menggunakan fungsi API, di-load Fungsi API dari module yang disediakan...
mudah sekali untuk mengetahui fungsi API mana yang dapat mengakses unicode..liat saja dari akhiran fungsi API tersebut...

ex :

Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long

akhiran dari fungsi API ini [DeleteFileA] adalah -> A -> Ascii
parameternya [lpfilename] bertype data string..

jadinya harus seperti ini, supaya fungsi API tersebut dapat mengakses unicode

Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileW" (ByVal lpFileName As Long) As Long

akhiran dari fungsi API ini [DeleteFileW] adalah -> W -> Wide
parameternya [lpfilename] bertype data long..

dapat diterapkan pada fungsi API yang mempunyai akhiran A, diganti menjadi W, dan type datanya menjadi long....

jadi begini lah cara ngapus file yang bersifat unicode

'deklarasi fungsi API
Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileW" (ByVal lpFileName As Long) As Long

'panggil fungsi API
DeleteFile strptr("alamatfile")


ehm, kalo utk menghapus folder apa hayo?
cari sendiri ya... :p

nih contoh program yang kubuat [jauh dari sempurna] -> http://www.4shared.com/file/236594633/735aa011/JHelp_Delete.html
*nb : program diatas for trial and error aja.... :D [masih ada kekurangan, lagi dikembangkan]

kalo ada yang salah, mohon di maklumkan ya, maklum anak kemarin sore.... :D

Tx :
- My Jesus, My Everything
- My Family [Mother, Sister & Brother]
- Gemabel
- HrXxX
- BRAJA
- Codenesia, VBForums, Segelaskopi, Google.
- All of you guys