Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: Psyke1 en Febrero 24, 2011, 05:39:37 pm
-
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! :P
-
Postea el proyecto!!!!!!!! :o
-
@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....
-
Si, funciona.
Tengo esto que 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
DoEvents !:P
-
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!
-
Coco, impresionante!
Muchisimas gracias!!!!! :D
DoEvents! :P
-
Esta en un pendrive/unidad extraible?
-
@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.
-
probaste cambiarle el nombre?