Connection windows 98 à unix AIX

Question

Bonjour,
J'utilise le controle internet transfert 5.0, pour me connecter à un serveur unix AIX.
Le probléme réside dans le fait que je voudrais télécharger un fichier du serveur par la méthode inet1.execute.

Ex: inet1.execute inet1.URL, "GET " & nomsource & " " & nomdestination.
do
doevents
loop until not inet1.stillexecuting

Lors de l'essai de transfert (qui ne fonctionne pas), le nomsource est envoyé en majuscule sur le serveur unix, alors qu'il a été saisi en minuscule, posant ainsi le probléme majuscule/minuscule sur unix (respect de la casse).

J'aimerais donc savoir comment faire pour télécharger un fichier par la méthode GET avec respect de la casse dans le chemin source.

Si quelqu'un posséde de la doc ou des exemples de client FTP, je suis preneur. Merci

Patrice · Answer

Voici un code qui marche du tonnerre....

Private Sub Command1_Click()
'On défini le protocole de transfert
Inet1.Protocol = icFTP
'On défini l'adresse IP du serveur Unix
Inet1.RemoteHost = "128.0.100.1"
'On défini le login, en général ROOT
Inet1.UserName = "root"
'On défini le password
Inet1.Password = "xxxxx"
'On défini le nom du fichier à rappatrier de l'unix
'Attention Unix tient compte de la casse pas windows
nomfichier = "toto.txt"
'On se positionne dans le repertoire de l'unix
Inet1.Execute , "cd //usr/file/fax"
'On execute cette boucle de tempo pour laisser le temps à l'unix de traiter la commande
Test = Inet1.StillExecuting
While Test = True
Test = Inet1.StillExecuting
DoEvents
Wend
'On lit le repertoire de l'unix
Inet1.Execute , "dir"
'On execute cette boucle de tempo pour laisser le temps à l'unix de traiter la commande
Test = Inet1.StillExecuting
While Test = True
Test = Inet1.StillExecuting
DoEvents
Wend
'On transfer le fichier du repertoire //usr/file/fax/ de unix au repertoire c:\ de windows
Inet1.Execute , "get //usr/file/fax/" & nomfichier & " c:" & nomfichier
'On execute cette boucle de tempo pour laisser le temps à l'unix de traiter la commande
Test = Inet1.StillExecuting
While Test = True
Test = Inet1.StillExecuting
DoEvents
Wend
'On ferme la connexion
Inet1.Execute , "close"
End Sub

BOnne prog

Connection windows 98 à unix AIX

1 réponse

Discussions similaires