control Inet

[blinski]

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

[germnex]

Elimina los espacios y listo XD

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

Creo que es asi
Probalo

[Slasher-K]

Código [Seleccionar] Expandir


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.

[blinski]

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 [Seleccionar] Expandir

Private Const MAX_PATH = 260

y funciona perfecto

Muchas gracias

[rodimus]

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