Acceder a directorios

[esamper]

Hola!

Seguro que mi consulta es muy sencilla pero estoy empezando a programar en visual basic.

Estoy programando un cliente ftp. Para localizar el archivo que hay en mi ordenador y subirlo al servidor utilizo CommonDialog y un Tetbox, aqui surge mi problema: todo funciona correctamente cuando mi archivo esta situado en un directorio cuyo nombre no tiene espacios, pero si mi directorio contiene espacios, el programa no me funciona. Puedo hacer alguna conversión?Que puedo hacer?

Muchas gracias

[jrhomer]

Esta API es para que de una ruta WIndows, me devuelva una ruta MSDOS,
ya que el comando FTP del prompt no reconoce rutas largas ni con espacios.

Código [Seleccionar] Expandir


Private Declare Function GetShortPathName Lib "kernel32" Alias _
    "GetShortPathNameA" (ByVal lpszLongPath As String, _
    ByVal lpszShortPath As String, ByVal lBuffer As Long) As Long

Public Function RutaDos(strFileName As String) As String

    Dim lngRes As Long, strPath As String
    strPath = String$(165, 0)
    lngRes = GetShortPathName(strFileName, strPath, 164)
    RutaDos = Left$(strPath, lngRes)
   
End Function


[esamper]

Muchas gracias de verdad

Lo provaré, supongo que no tendré problema