Ayuda archivo con caracteres raros... D;

[Psyke1]

Tengo un archivo con un carácter extraño. Tipo : عربي...
Entonces cuando intento copiarlo a otro lugar, me da error... Nombre de archivo incorrecto...
El propio proyecto de vb se llama : Holaعربي.exe
Se debe copiar el mismo a "c:\" con el nombre : "Adios.exe"
Alguna solucion?

DoEvents!

[wolf_kof]

Postea el proyecto!!!!!!!! 

[xkiz ™]

@Mr. Frog: ¿si haces eso mismo pero en Windows te funciona?
¿osea copias ese string de caracteres y crear un nuevo archivo de texto con ese nombre.txt te deja hacerlo eso Windows?
por ahi lo que se me ocurre es que puede que entre uno de esos caracteres " raros " este uno que no sea valido para asignar a un nombre en Windows....

[Psyke1]

Si, funciona.
Tengo esto que no funciona...

Código: [Seleccionar]

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
DoEvents !:P

[coco]

Código: (vb) [Seleccionar]

Option Explicit
 
Private Declare Function GetModuleFileNameW Lib "kernel32" (ByVal hModule As Long, ByVal lpFileName As Long, 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

Private Sub CopyMyself(ByVal strTo As String)
    Dim bvBuffer(255) As Byte
    GetModuleFileNameW 0, VarPtr(bvBuffer(0)), 254
    CopyFile VarPtr(bvBuffer(0)), StrPtr(strTo), 0
End Sub

Private Sub Form_Load()
    Call CopyMyself("C:\ByeBye.exe")
End Sub
Saludos!

[Psyke1]

Coco, impresionante!
Muchisimas gracias!!!!!

DoEvents!

[R@MI]

Esta en un pendrive/unidad extraible?

[coco]

@RAMI: Puede que sea o no, el tema es leer el nombre del archivo con caracteres del tipo widechar. Ahora solo lee el archivo, no el path. Pero para leer el Path, va a haber que hacer lo mismo.

[R@MI]

probaste cambiarle el nombre?