Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: blinski en 8 Agosto 2005, 21:52 pm

Título: control Inet
Publicado por: blinski en 8 Agosto 2005, 21:52 pm

Buenas, estoy usando un OCX que facilita el manejo para un cliente FTP, este OCX usa a su vez un control Inet, pero tengo problemas al asignar la ruta de mi directorio local con espacios en blanco, es decir, si le asigno:

ruta="C:\archivo.txt" sube sin prblemas

pero si la ruta contiene espacios en blanco

ruta="C:\Documents and Settings\ archivo.txt" no sube

¿Alguna sugerencia?...gracias

Título: Re: control Inet
Publicado por: germnex en 9 Agosto 2005, 00:16 am

Elimina los espacios y listo XD

ruta_archivo = replace(Ruta_Archivo, " ", "")

Creo que es asi
Probalo

Título: Re: control Inet
Publicado por: Slasher-K en 9 Agosto 2005, 00:51 am

Código:

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

Function GetShortPath(PathSpec As String) As String
            Dim sPath$

  sPath = String(MAX_PATH, 0)
  If GetShortPathName(PathSpec, sPath, MAX_PATH) Then
    GetShortPath = Left$(sPath, InStr(1, sPath, vbNullChar) - 1)
  End If
End Function

Saludos.

Título: Re: control Inet
Publicado por: blinski en 9 Agosto 2005, 01:31 am

Gracias Anhur y Germnex por responder

Efectivamente es como dice Anhur solo que falto un pequeño detalle:

declarar la constante MAX_PATH que es 260

a lo anterior que escribio Anhur se le agrega:

Código:

Private Const MAX_PATH = 260

y funciona perfecto

Muchas gracias

Título: Re: control Inet
Publicado por: rodimus en 9 Agosto 2005, 01:53 am

Hola soy nuevo y me gustaria aprender mas .... como hacer para subir a un archivo mediante un programa en visual........blinski podrias poner tu codigo final osea todo el kodigo....no con la intencion de copiarlo y pegarlo sino para estudiarlo ayudenme porfavor

espero entiendan
salu2