besoin aide pour correction code

Version imprimable

bonsoir,
je réitère ma demande a savoir si quelqu'un pourrai m'aider à corriger mon code.
à savoir que je n'es pas réussis a gérer les bouton annuler des "inputbox", j'ai pas réussis à créer ma boucle donc mon code se vois copier en double (je pense que vous le comprendrez en le lisant) et également j'ai pas réussis à trouver l'astuce pour gérer d'afficher "msgbox" uniquement à la fin de la commande dos ftp donc beaucoup de "wscript.sleep" bref vous verrez par vous-même. et d'ailleurs si vous avez une solution pour que je puisse inclure ce code dans mon code vb ou le coderr autrement qu'en vbe car même moi étant une pipe j'ai réussis a trouver le code pour le décrypter donc ...
Merci d'avance de l'aide et du temps apporter à ma demande

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
'26/02/2011 apli pour telecharger fichier mp3 sur server ftp
'
'déclaration msgbox aide
set aide = CreateObject("Scripting.FileSystemObject")
aide = MsgBox("lors des premières utilisations une illustration est disponible désirez-vous la voir ?", vbQuestion + vbYesNo, "Z!T¤ùN£ @NT!C!P-W!N-32")
'instruction pour si bouton non est clicker
If aide = vbNo then
'déclaration pour creation fichier.txt et run
Set sh = WScript.CreateObject("WScript.Shell") 
Set fs = CreateObject("Scripting.FileSystemObject")
'création d'un nouveau fichier choixdl.txt, inscription des commandes ...
Set fich = fs.OpenTextFile("C:\ftp\script\choixdl.txt", 2, true)
'lancement inputbox avec declaration REP & chx
rep=inputbox("Merci de coller ici UNIQUEMENT l'emplacement du fichier à télécharger le titre vous sera demander après !","emplacement du fichier à télécharger ?","cela doit commencer par une LETTRE et finir par un /")
chx=inputbox("Merci de coller ici UNIQUEMENT le titre à télécharger","nom fichier à télécharger","générallement se termine par .mp3")
'ecriture dans fichier choixdl
fich.writeLine "adresseftp"
fich.writeLine "id"
fich.writeLine "mdp"
fich.writeLine "lcd C:\ftp\Telechargements"
fich.writeLine "cd """& rep & ""
fich.writeLine "get """& chx & ""
fich.writeLine "quit"
fich.close
wscript.sleep 200
'création d'un nouveau fichier ftp.bat
Set batch = fs.OpenTextFile("C:\ftp\script\ftp.bat", 2, true)
wscript.sleep 500
'ecriture dans fichier ftp.bat
batch.writeLine "ftp -s:c:\ftp\script\choixdl.txt " 
batch.close
wscript.sleep 5000
'lancer le fichier batch
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "C:\ftp\script\ftp.bat",0,false
'ouverture dossier telechargements
msgbox("INFO les fichiers à caractères spéciaux sont téléchargeables UNIQUEMENT par filezilla.                                                                                                                                   Merci de faire OK pour afficher le dossier contenant vos téléchargements")
wscript.sleep 8000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "C:\ftp\telechargements"
wscript.sleep 8000
'suppression des fichiers créer ainsi que des déclarations
fs.deletefile "c:\ftp\script\choixdl.txt"
fs.deletefile "c:\ftp\script\ftp.bat"
set fich=nothing
set batch=nothing
set sh=nothing
set fs=nothing
'fin instruction si boutton non est clicker
'
'si reponse oui est clicker	
elseIf aide = vbYes then
'ouverture image d'illustration
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "C:\ftp\image\capture.jpg"
wscript.sleep 700
wscript.sleep 1000
'**************************************************************************************************
'déclaration pour creation fichier.txt et run
Set sh = WScript.CreateObject("WScript.Shell") 
Set fs = CreateObject("Scripting.FileSystemObject")
'création d'un nouveau fichier choixdl.txt, inscription des commandes ...
Set fich = fs.OpenTextFile("C:\ftp\script\choixdl.txt", 2, true)
'lancement inputbox
rep=inputbox("Merci de coller ici UNIQUEMENT l'emplacement du fichier à télécharger le titre vous sera demander après !","emplacement du fichier à télécharger ?","cela doit commencer par une LETTRE et finir par un /")
chx=inputbox("Merci de coller ici UNIQUEMENT le titre à télécharger","nom fichier à télécharger","générallement se termine par .mp3")
'ecriture dans fichier choixdl
fich.writeLine "adresseftp"
fich.writeLine "id"
fich.writeLine "mdp"
fich.writeLine "lcd C:\ftp\Telechargements"
fich.writeLine "cd """& rep & ""
fich.writeLine "get """& chx & ""
fich.writeLine "quit"
fich.close
wscript.sleep 200
'création d'un nouveau fichier ftp.bat
Set batch = fs.OpenTextFile("C:\ftp\script\ftp.bat", 2, true)
wscript.sleep 500
'ecriture dans fichier ftp.bat
batch.writeLine "ftp -s:c:\ftp\script\choixdl.txt " 
batch.close
wscript.sleep 5000
'lancer le fichier batch
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "C:\ftp\script\ftp.bat",0,false
'ouverture dossier telechargements
msgbox("INFO les fichiers à caractères spéciaux sont téléchargeables UNIQUEMENT par filezilla.                                                                                                                                   Merci de faire OK pour afficher le dossier contenant vos téléchargements")
wscript.sleep 8000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "C:\ftp\telechargements"
wscript.sleep 8000
'suppression des fichiers créer ainsi que des déclarations
fs.deletefile ("c:\ftp\script\choixdl.txt")
fs.deletefile ("c:\ftp\script\ftp.bat")
set fich=nothing
set batch=nothing
set sh=nothing
set fs=nothing
'**********************************************************************************************
'
'fin de la condition	
End If
'signature
msgbox"Creation Z!T¤ùN£_@nT!C!P-W!n-32

auto réponse

voilà je m'auto répond étant donner votre aide apporter,
j'ai remis le code vbs en vb même si celui-ci n'ai pas achever il est sur la bonne voix (je pense).
encore une erreur à corriger et quelque in-compréhension et une énigme mais ma motivation me ferra trouver ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '******************************************************************************
        '***********boutton pour télécharger un fichier musical sur server ftp*********
        '******************************************************************************
        'déclaration + demande d'aide au démarage
        Dim aide
        aide = CreateObject("Scripting.FileSystemObject")
        aide = MsgBox("lors des premières utilisations une illustration est disponible désirez-vous la voir ?", vbQuestion + vbYesNo, "Z!T¤ùN£ @NT!C!P-W!N-32")
        '
        'si reponse oui
        '
        If aide = vbYes Then
            'ouverture image d'illustration suite à la réponse oui
            Dim WshShell
            WshShell = CreateObject("WScript.Shell")
            WshShell.Run("C:\ftp\image\capture.jpg")
        End If
        '
        'si reponse non
        '
        aide = vbNo
        '*******************************************
        '** déclaration + utilisation 1er inputbox**
        '*******************************************
        Dim rep, title, defaultValue As String
        rep = "Merci de coller ici UNIQUEMENT l'emplacement du fichier à télécharger le titre vous sera demander après !"
        title = "emplacement du fichier à télécharger ?"
        defaultValue = "cela doit commencer par une LETTRE et finir par un /"
        rep = InputBox(rep, title, defaultValue)
        '
        '*******************************************
        '** déclaration + utilisation 2èm inputbox**
        '*******************************************
        '
        Dim chx, title0, defaultValue0 As String
        chx = "Merci de coller ici UNIQUEMENT le titre à télécharger"
        title0 = "nom fichier à télécharger"
        defaultValue0 = "générallement se termine par .mp3"
        chx = InputBox(rep, title, defaultValue)
        '
        '*******************************************
        '****déclaration + créer fichier choixDL****
        '*******************************************
        Dim FSys
        FSys = CreateObject("Scripting.FileSystemObject")
        Dim Monfic
        Monfic = FSys.CreateTextFile("C:\ftp\script\choixdl.txt")
        'écris le résultat des inputbox dans le fichier choixdDL
        With Monfic
            Monfic.writeLine("open@ftp")
            Monfic.writeLine("id")
            Monfic.writeLine("mdp")
            Monfic.writeLine("lcd C:\ftp\Telechargements")
            Monfic.writeLine("cd """ & rep & "")
            Monfic.writeLine("get """ & chx & "")
            Monfic.writeLine("quit")
        End With
        Monfic.close()
        '*********************************************
        '****création d'un nouveau fichier ftp.bat****
        '*********************************************
        Dim MonBat
        MonBat = FSys.CreateTextFile("C:\ftp\script\ftp.bat")
        'ecriture dans fichier ftp.bat
        With MonBat
            MonBat.writeLine("ftp -s:c:\ftp\script\choixdl.txt")
        End With
        MonBat.close()
        '********************************************************
        'déclaration + lancement bat & ouverture téléchargements
        '********************************************************
        Dim shell, Bat ', Dl
        'lancement du bat 
        Shell = CreateObject("WScript.Shell")
        Bat = ("C:\ftp\script\ftp.bat")
        shell.Run(Bat, 0, False)
        'ouverture dossier téléchargements
        'Shell = CreateObject("WScript.Shell")
        'Dl = ("C:\ftp\script\telechargements")
        'shell.Run(Dl)
    End Sub
End Class

l'erreur est :
la defaultValue de la première inputbox répéter dans la deuxième.
les in-compréhensions sont :
impossible de créer plusieurs

Code:

1
2
3
Dim WshShell
            WshShell = CreateObject("WScript.Shell")
            WshShell.Run

d'où :

Code:

1
2
3
4
5
6
7
8
9
10
Dim shell, Bat ', Dl
        'lancement du bat 
        Shell = CreateObject("WScript.Shell")
        Bat = ("C:\ftp\script\ftp.bat")
        shell.Run(Bat, 0, False)
        'ouverture dossier téléchargements PAS ENCORE RESOLU
        'Shell = CreateObject("WScript.Shell")
        'Dl = ("C:\ftp\script\telechargements") 
        'shell.Run(Dl) 
        'shell.Run(Dl)

et enfin l’énigme est :
de faire afficher le dossier téléchargements SEULEMENT A LA FIN du téléchargement effectuer par le lancement du fichier bat.

code final résolu

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '******************************************************************************
        '***********boutton pour télécharger un fichier musical sur server ftp*********
        '******************************************************************************
        'déclaration + demande d'aide au démarage
        Dim aide
        aide = MsgBox("lors des premières utilisations une illustration est disponible désirez-vous la voir ?", vbQuestion + vbYesNo, "Z!T¤ùN£ @NT!C!P-W!N-32")
        'si reponse oui
        If aide = vbYes Then
            'ouverture image d'illustration suite à la réponse oui
            Dim WshShell
            WshShell = CreateObject("WScript.Shell")
            WshShell.Run("C:\ftp\image\capture.jpg")
        End If
        '*******************************************
        '** déclaration + utilisation 1er inputbox**
        '*******************************************
        Dim rep, title, defaultValue As String
        rep = "Merci de coller ici UNIQUEMENT l'emplacement du fichier à télécharger le titre vous sera demander après !"
        title = "emplacement du fichier à télécharger ?"
        defaultValue = "cela doit commencer par une LETTRE et finir par un \"
        rep = InputBox(rep, title, defaultValue)
        '*******************************************
        '** déclaration + utilisation 2èm inputbox**
        '*******************************************
        Dim chx, title0, defaultValue0 As String
        chx = "Merci de coller ici UNIQUEMENT le titre à télécharger"
        title0 = "nom fichier à télécharger"
        defaultValue0 = "générallement se termine par .mp3"
        chx = InputBox(chx, title0, defaultValue0)
        '*******************************************
        '****déclaration + créer fichier choixDL****
        '*******************************************
        Dim FSys
        FSys = CreateObject("Scripting.FileSystemObject")
        Dim Monfic
        Monfic = FSys.CreateTextFile("C:\ftp\script\choixdl.txt")
        'écris le résultat des inputbox dans le fichier choixdDL
        With Monfic
            Monfic.writeLine("open @ftp")
            Monfic.writeLine("id")
            Monfic.writeLine("mdp")
            Monfic.writeLine("lcd C:\ftp\Telechargements")
            Monfic.writeLine("cd """ & rep & "")
            Monfic.writeLine("get """ & chx & "")
            Monfic.writeLine("quit")
        End With
        Monfic.close()
        '***********************************************************************************
        '**déclaration + lancement téléchargements ftp & ouverture dossier téléchargements**
        '***********************************************************************************
        Dim Shell, com, Result, Dl
        Shell = CreateObject("WScript.Shell")
        com = "cmd /c ftp -s:c:\ftp\script\choixdl.txt"
        Result = Shell.Run(com, 0, True)
        Dl = ("C:\ftp\telechargements")
        Shell.Run(Dl)
        '****************************
        '** info pour utilisateur****
        '****************************
        Dim Info As String
        Info = "Résumer de votre Téléchargement :""" & rep & chx & ""
        Info = MsgBox(Info)
        MsgBox("Creation Z!T¤ùN£_@nT!C!P-W!n-32")
    End Sub
End Class