[VB6]Problema FTP e path

[Stefanik]

Ciao.
Sto facendo un client FTP il problema è che se decido di fare un upload/download di un file che si trova sotto una cartella con un nome separato (tipo "documents and settings") non funziona, perchè l'ftp non riconosce un nome con spazi.
Per risolvere il problema potrei mettere il nome tra apici,...oppure?

Questo è il mio codice:

Private Sub cmdDownLoad_Click()
WaitForResponse
On Error GoTo ERRORE
FTPinet.Execute "", "get " & lstServer.Text & " " & "" & dirSelez.Path & "" & "\" & lstServer.Text
Exit Sub
ERRORE:
    MsgBox "ERRORE: " & Err.Description, vbCritical + vbOKOnly
End Sub

dove lstServer è una ListBox e dirSelez è una DirListBox.

Esiste un oggetto in VB che mi restituisce un path che vada bene per l'FTP?

[buba88]

allora se nn sbagli dovresti usare i nomi "ristretti", sin pratica quelli che usa l'MS-DOS
devi usare queste funzioni in un modulo


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

Dim lngRes As Long
Dim strPath As String

strPath = Space$(255)
lngRes = GetShortPathName(strFileName, strPath, 255)

GetShortPath = trim$(strPath)
End Function

poi dovresti richiamare la funzione getshortpath dal form passandogli il nome completo del file o della cartella
prova cosi...

[Stefanik]

Grazie Buba88. Sembra che funziona, ma il problema è che messo nell' "Execute" dell'Inet, non funziona il download:

Private Sub cmdDownLoad_Click()
PathCorto = ModConn.GetShortPath(dirSelez.Path)
WaitForResponse
On Error GoTo ERRORE
FTPinet.Execute "", "get " & lstServer.Text & " " & PathCorto & "\" & lstServer.Text
Exit Sub
ERRORE:
    MsgBox "ERRORE: " & Err.Description, vbCritical + vbOKOnly
End Sub

mi restituisce "error 5:accesso negato".
Inoltre ho notato che non legge più il "lstServer.Text" dopo la variabile "PathCorto".Ossia l'execute sembra che si fermi dopo aver usato la funzione "GetShortPath".

[Stefanik]

Idee?

[allejo]

Xkè nonm usi il file .bat????????
e poi dal programma fai la shell del file .bat........

cioè nel file pippo.bat metti

ftp -i -s:d:\percorsotext\ftppippo.txt nomeserver >c:\ftplog.log

e nel ftppippo.txt metti questo

nomeuser
pwd
cd dove salvare
send percorso file da inviare
disconnect
bye

e da vb

x= shell(c:\pippo.bat)