Page 1 sur 1
[EX] Ouvrir un dossier ftp
Posté : sam. 22 nov. 2008 09:11
par 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)
Re: [EX] Ouvrir un dossier ftp
Posté : sam. 22 nov. 2008 15:02
par 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)
Re: [EX] Ouvrir un dossier ftp
Posté : sam. 22 nov. 2008 15:06
par 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
Re: [EX] Ouvrir un dossier ftp
Posté : sam. 22 nov. 2008 20:50
par 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
Re: [EX] Ouvrir un dossier ftp
Posté : dim. 23 nov. 2008 07:28
par Linox
pourrais tu m'en dire plu tlem je ne vois pas ce que tu a modifier ?
Re: [EX] Ouvrir un dossier ftp
Posté : dim. 23 nov. 2008 10:36
par Tlem
J'ai édité mon post pour vous répondre.
Re: [EX] Ouvrir un dossier ftp
Posté : dim. 23 nov. 2008 10:53
par Linox
merci
Re: [EX] Ouvrir un dossier ftp
Posté : mer. 29 avr. 2009 17:03
par 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
Re: [EX] Ouvrir un dossier ftp
Posté : mer. 29 avr. 2009 17:30
par Linox
il faudrai que j'adapte le code, dés que je me sens
Re: [EX] Ouvrir un dossier ftp
Posté : dim. 03 mai 2009 00:36
par 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)