[VB6]Gérer les espaces dans une command FTP

Salut,

Je viens de trouver un bug dans mon application FTP. Dans le chemin d'accès du dossier où les fichiers doivent être téléchargés, il est fort possible qu'il y ait un espace ... ex: "C:\Program Files\Downloads\"

Quand je sélectionne un chemin ne comportant pas d'espace, "C:\Downloads\" tout se télécharge bien, mais pas quand il y a un espace.

Voici le code que j'utilise pour télécharger :

Code:

---

1 2 3

inet1.Execute , "GET" & " " & List1.List(c) & " " & GamePath & -> <- "\downloads\" & List1.List(c)

---

(Les flèches sont pour illustrer que la ligne de code ne fait qu'une ligne, elles ne figurent pas dans le code)
Tout va bien lorsque GamePath n'a pas d'espace...
:roll:

et ton gamePath .. il est initialisé comment ..?

Citation:

---

et ton gamePath .. il est initialisé comment ..?

---

L'utilisateur selectionne le chemin à partir d'une petite form que j'ai fait avec un DriveListBox et un DirListBox. Le chemin est ensuite renvoyer à la variable GamePath.

Si l'utilisateur ne le fait pas, le programme choisit le répertoire du jeu par défaut, qui lui même comporte des espaces :S

peut-être en utilisant le nom court .. ( tiens shortpath on dirai ton pseudo :mouarf: )

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

' Rajouter références à ' Microsof scripting Runtime ' Function RepCourt(stRepLong As String) As String Dim Fso As New FileSystemObject Dim FolderPath As Folder On Error Resume Next ' renvoi "" si inexistant.. RepCourt = Fso.GetFolder(stRepLong).ShortPath Set Fso = Nothing   End Function ' ' Petite procédure de text ' Sub test() Dim GamePath As String GamePath = CurDir Debug.Print "Avant : " & GamePath GamePath = RepCourt(GamePath) Debug.Print "

---

YESSSS,

Ca fonctionne !

Merci

Citation:

---

( tiens shortpath on dirai ton pseudo )

---

:mouarf: