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
Elimina los espacios y listo XD
ruta_archivo = replace(Ruta_Archivo, " ", "")
Creo que es asi
Probalo
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.
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:
Private Const MAX_PATH = 260
y funciona perfecto
Muchas gracias
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