Imprimir Página - Acceder a directorios

Título: Acceder a directorios
Publicado por: esamper en 29 Diciembre 2006, 14:18 pm

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

Título: Re: Acceder a directorios
Publicado por: jrhomer en 29 Diciembre 2006, 16:22 pm

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:

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

Título: Re: Acceder a directorios
Publicado por: esamper en 29 Diciembre 2006, 18:22 pm

Muchas gracias de verdad

Lo provaré, supongo que no tendré problema

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: esamper en 29 Diciembre 2006, 14:18 pm