[EX] Ouvrir un dossier ftp

[Linox]

Voici un script permétant d'ouvrir un dossier FTP

► Afficher le texte

Code : Tout sélectionner

$vrUrlFTP = InputBox("URL FTP", "Entrez ici votre adresse FTP:", "", "")
 If $vrUrlFTP = "" Then 
    MsgBox(0,"Info","Vous n'avez pas entrer l'url FTP, abandon de la connexion") 
    exit
 Else
 Endif

$vrNamUser = InputBox("Nom d'utisisateur", "Entrez ici votre nom d'utilisateur FTP:", "", "")
 If $vrNamUser = "" Then 
    MsgBox(0,"Info","Vous n'avez pas entrer le nom d'utilisateur FTP, abandon de la connexion") 
    exit
 Else
 Endif

$vrPassword = InputBox("Password", "Entrez ici votre mot de passe FTP:", "", "")
 If $vrPassword = "" Then 
    MsgBox(0,"Info","Vous n'avez pas entrer le mot de passe FTP, abandon de la connexion") 
    exit
 Else
 Endif

$vrPort = InputBox("Password", "Entrez ici votre port FTP: laisser vide si 21", "", "")

if $vrPort = "" Then $vrPort = "21"

$file_index = FileOpen($vrNamUser & ".bat", 2) 
FileWriteLine($file_index, "explorer.exe ftp://" & $vrNamUser & ':' & $vrPassword & '@' & $vrUrlFTP & ':' & $vrPort) 
FileClose($file_index) 

RunWait("explorer.exe ftp://" & $vrNamUser & ':' & $vrPassword & '@' & $vrUrlFTP & ':' & $vrPort)

[timmalos]

Code : Tout sélectionner

; d'abord on demande les infos
$vrUrlFTP = InputBox("URL FTP", "Entrez ici votre adresse FTP:", "", "")
$vrNamUser = InputBox("Nom d'utisisateur", "Entrez ici votre nom d'utilisateur FTP:", "", "")
$vrPassword = InputBox("Password", "Entrez ici votre mot de passe FTP:", "", "")
$vrPort = InputBox("Password", "Entrez ici votre port FTP: laisser vide si 21", "", "")

; maintenant on les traite
 If $vrPassword = "" or $vrNamUser = "" or $vrPassword = "" Then 
    MsgBox(0,"Info","Vous n'avez pas rentrer une des informations demandées, abandon de la connexion.") 
    exit
 Endif
If $vrPort = "" Then $vrPort = "21"


;maintenant, on execute le programme
$file_index = FileOpen($vrNamUser & ".bat", 2) 
FileWriteLine($file_index, 'explorer.exe ftp://' & $vrNamUser & ':' & $vrPassword & '@' & $vrUrlFTP & ':' & $vrPort) 
FileClose($file_index) 


RunWait('explorer.exe ftp://' & $vrNamUser & ':' & $vrPassword & '@' & $vrUrlFTP & ':' & $vrPort)

 

[timmalos]

Etant dans le forum Exemples, je deleste au fur et a mesure:

Pour les ifs, il y a plusieurs solutions.

Soit on teste une condition, ça donne une action:

Action --->>> Réaction
If ... Then ...

Soit on teste une condition, ca donne une suite d'actions:

Action --->>> Réaction multiple
If ... Then
...
EndIf

A ces deux premiers cas, le test d'action peut être un test de non action tel que ceci :
If Not ... Then

Soit on teste une condition, ca donne une action si elle est vraie, une autre si elle est fausse:
Action --->>> Réaction 1 OU Réaction 2
If... Then
...
Else
...
EndIf

[Tlem]

Je me suis permis d'éditer le post de timmalos pour affiner les conditions.

Soit on teste une condition, ça donne deux actions:

devient

Soit on teste une condition, ca donne une suite d'actions

J'ai aussi rajouté ceci :
A ces deux premiers cas, le test d'action peut être un test de non action tel que ceci :
Action négative --->>> Réaction
If Not ... Then

[Linox]

pourrais tu m'en dire plu tlem je ne vois pas ce que tu a modifier ?

[Tlem]

J'ai édité mon post pour vous répondre.

[Linox]

merci

[aipc]

J'ai un FTP local sans mots de passe. Et ton script ne marche pas car je n'ai pas mis de mot de passe :s

[Linox]

il faudrai que j'adapte le code, dés que je me sens

[aipc]

si je met :
log : anonymous
mdp : anonymous
ca fonctionne

je me suis permis de modifier :

Code : Tout sélectionner

$vrUrlFTP = InputBox("URL FTP", "Entrez ici votre adresse FTP:", "", "")
 If $vrUrlFTP = "" Then 
    MsgBox(0,"Info","Vous n'avez pas entrer l'url FTP, abandon de la connexion") 
    exit
 Else
 Endif

$vrNamUser = InputBox("Nom d'utisisateur", "Entrez ici votre nom d'utilisateur FTP: default anonymous", "", "")
 If $vrNamUser = "" Then  $vrNamUser = "anonymous"
     

$vrPassword = InputBox("Password", "Entrez ici votre mot de passe FTP: default anonymous", "", "")
 If $vrPassword = "" Then  $vrPassword = "anonymous"
    


$vrPort = InputBox("Password", "Entrez ici votre port FTP: default 21", "", "")



if $vrPort = "" Then $vrPort = "21"



$file_index = FileOpen($vrNamUser & ".bat", 2) 
FileWriteLine($file_index, 'explorer.exe ftp://' & $vrNamUser & ':' & $vrPassword & '@' & $vrUrlFTP & ':' & $vrPort) 
FileClose($file_index) 


RunWait('explorer.exe ftp://' & $vrNamUser & ':' & $vrPassword & '@' & $vrUrlFTP & ':' & $vrPort)