En fin esta funcion lo que hace es determinar si una cadena contiene caracteres unicode (si contiene unicode envia true sino false)
Ustedes diran... para que sirve esto, bueno, resulta que hay apis que solo soportan entrada ascii, entonces conesto prevenimos crasheos, en el ejemplo que arme hay un archivo con nombre de fichero unicode (un caracter RLO 202E).
Código
Private Function IsUnicode(expression As String) As String 'by 79137913 Dim b() As Byte 'Se crea un array de bytes para almacenar el string Dim Aux As String 'se usara para comparar b = expression 'se usa un evil type convert para obtener todos los ascii de los caracteres de la expresion en las posiciones del array For x = 0 To UBound(b) Step 2 Aux = Aux & Chr(b(x)) 'reconstruimos la expresion Next IsUnicode = (expression <> Aux) 'asignamos a IsUnicode el resultado de la comparacion 'Si expression es = a aux dara Falso por que expression es totalmente Ascii, sino dara Verdadero por que contiene algun caracter Unicode. End Function
El ejemplo lo descargan de aca:
http://www.mediafire.com/download/76yuudmsnnoykau/IsUnicode.rar
GRACIAS POR LEER!!!