Tengo un archivo con un carácter extraño. Tipo : عربي...
Entonces cuando intento copiarlo a otro lugar, me da error... Nombre de archivo incorrecto... 
Alguna solucion? 

DoEvents!

El propio proyecto de vb se llama : Holaعربي.exe
Se debe copiar el mismo a "c:\" con el nombre : "Adios.exe"
Voy a buscar ese post...

DoEvents!

@seba123neo
Supongo que te refierse a esto :
http://foro.elhacker.net/programacion_visual_basic/command_extraer_archivos-t319395.0.html;msg1580388#msg1580388
Nunca antes hice esto, y si soy sincero, no entiendo algunas partes del código...

Pensé algo así, pero no funciona...

Option Explicit
 
Private Declare Function GetModuleFileNameW Lib "kernel32" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileW" (ByVal lpExistingFileName As Long, ByVal lpNewFileName As Long, ByVal bFailIfExists As Long) As Long
 
Function WhereIam() As String
    Dim bnUffer As String * 255
    GetModuleFileNameW 0, bnUffer, 255
    WhereIam = Replace$(bnUffer, vbNullChar, vbNullString)
End Function
 
Private Sub Form_Load()
    CopyFile StrPtr(WhereIam), StrPtr("c:\ByeBye.exe"), 0
End Sub 

@XXX-ZERO-XXX
Eso es lo primero que probé... y obvio que no funciona.

DoEvents!

aca tenes un ejemplo de como copiar un archivo con texto unicode, el link del post es para que te fijes que cada caracter tiene su codigo, en este caso tenes caracteres arabes creo, debes buscar su codigo para poder pasarselo a ChrW(), y con la api CopyFileApiW, lo podes hacer ya que la funcion Name de visual basic no soporta unicode en los nombres de los archivos.

Private Declare Function CopyFileApiW Lib "kernel32" Alias "CopyFileW" (ByVal lpExistingFileName As Long, ByVal lpNewFileName As Long, ByVal bFailIfExists As Long) As Long
 
Private Sub Form_Load()
    Dim retval As Long
    retval = CopyFileApiW(StrPtr("C:\" & ChrW(&H414) & ".txt"), StrPtr(StrConv("C:\copia.txt", 0)), 1)
End Sub

el archivo que copia se llama "Д.txt" es un caracter unicode de rusia y corresponde al ChrW(&H414)

saludos.

Y porq es q no funciona? Por eso q dice Seba? de q la funcion no soporta caracteres unicode?