Mensajes

[GetShortPathName]

Lo que necesitas es que la ruta completa sea mas corta, como las usaba el DOS (creo xD).
Lo solucionas usando la API GetShortPathName del siguiente modo:

Código [Seleccionar] Expandir


Private Declare Function GetShortPathName Lib "kernel32.dll" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

Private Sub Form_Load()
    Dim Ubicacion As String, retUbicacion As String
    retUbicacion = Space(255)
    Ubicacion = "c:\Archivos de programa\eMule\Incoming\08-Marcha de san lorenzo.mp3"
    GetShortPathName Ubicacion, retUbicacion, 255
    MsgBox retUbicacion
End Sub


Despues vos adaptalo a tu programa, espero que te sirva.

Saludos.-

Bajate el CSocketPlus: http://www.geocities.com/anshoku/

La descarga viene con ejemplos asike no creo que tengas problemas.

Saludos.-

¿Podrias postear la funcion FileExist?

Otra cosa, podrias poner un IF antes de usar dicha funcion. Algo asi:

Código [Seleccionar] Expandir


Sub heuristic()
Dim r As String
r = PathTo("server.exe")
If r <> "" then
If FileExist(r) Then
List1.AddItem "New Trojan " & r
End If
end if
End Sub


Por ahi estas en la funcion FileExist estas tratando de abrir un archivo inexistente y por eso te da error.

Saludos.-

Eso es el evento del control Inet. Lo que tenes que hacer es poner ese codigo y despues con el control bajar el archivo normalmente.

PD: Acordate de crear los controles que te pide como lblDescarga, etc.

Y a que te referis con que "cambie de encriptacion" =S

Muy bueno, felicitaciones.

Tenes pensado liberar el codigo o parte de el? Seria interesante verlo...


Saludos.-

Hay algunos programas que tienen protecciones para que la gente no haga trampa y juegue como corresponde...

He eliminado la parte:
Key = LLave(Key)

Me olvide de poner esa funcion . Era para que uno pueda poner HKLM en vez de HKEY_LOCAL_MACHINE. La funcion lo que hacia, era 'traducir' el metodo abreviado.

Saludos.-

Lo mas probable es que este en uso...
Por casualidad, ¿estas intentando borrar un archivo del sistema?

Saludos.-

Para borrar una carpeta primero tenes que borrar los archivos que estan adentro, por lo tanto:

Código [Seleccionar] Expandir


Kill "C:\Directorio\Tu Carpeta\*.*"


Eso va a dejar la carpeta vacia, por lo que ahora podes usar RmDir:

Código [Seleccionar] Expandir


RmDir "C:\Directorio\Tu Carpeta"



Espero que te sirva

Saludos.-