Discussion :

[ShortcutZ]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[SfJ5Rpw8]

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

[ShortcutZ]

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

[SfJ5Rpw8]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 "

[ShortcutZ]

YESSSS,

Ca fonctionne !

Merci

[ShortcutZ]

( tiens shortpath on dirai ton pseudo )