Discussion :

[zitoune31]

bonjour,
je poste un petit code qui été a la base du vbs mais dont j'ai réussis a fignoler en vb pour l'intégrer dans mon appli.
cependant plusieurs choses reste encore in-achever voir ci-dessous

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

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

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

d'où :

Code :

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

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.

[anonymousse]

bonsoir,

j'ai quelques difficultés à comprendre ton problème !

Concernant le début, à quoi servent ces lignes :

Code :

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

1
2
3
4
5
6
 
        aide = CreateObject("Scripting.FileSystemObject")
 
        'si reponse non
        '
        aide = vbNo

Concernant

l'erreur est :
la defaultValue de la première inputbox répéter dans la deuxième.

je vois que tu as 2 fois les mêmes variables dans tes inputbox :

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
        '*******************************************
        '** 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)

la logique du raisonnement devrait donner plutôt :

Code :

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

1
2
3
4
5
6
        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)

concernant le Run, tu peux concaténer plusieurs chaines séparées par des ";"

mais je t'invite à lire la méthode en détail :

http://msdn.microsoft.com/fr-fr/library/d5fk67ky.aspx

dont je t'ai récupéré pour le Fun la traduction (!)

Run, méthode
Voir aussi
WshShell, objet
Exécute un programme dans un nouveau processus.

object.Run(strCommand, [intWindowStyle], [bWaitOnReturn])
Arguments
object
Objet WshShell.
strCommand
Valeur de chaîne indiquant la ligne de commande que vous voulez exécuter. Vous devez inclure tous les paramètres que vous voulez passer au fichier exécutable.
intWindowStyle
Facultatif. Nombre entier indiquant l'apparence d'une fenêtre de programme. Notez que les programmes n'utilisent pas toutes ces informations.
bWaitOnReturn
Facultatif. Valeur booléenne indiquant si le script doit attendre la fin de l'exécution du programme avant de passer à l'instruction suivante de votre script. Si la valeur est définie sur true, l'exécution du script cesse jusqu'à la fin du programme et la méthode Run renvoit un code d'erreur provenant du programme. Si la valeur est définie sur false (valeur par défaut), la méthode Run répond immédiatement après le démarrage du programme, en renvoyant automatiquement 0 (à ne pas confondre avec un code d'erreur).
Notes
La méthode Run renvoie un nombre entier. La méthode Run démarre un programme en cours d'exécution dans un nouveau processus Windows. Vous pouvez faire en sorte que votre script attende la fin de l'exécution du programme avant de continuer. Cela vous permet d'exécuter des scripts et des programmes simultanément. Les variables d'environnement de l'argument strCommand sont automatiquement développées. Si un type de fichier a été correctement enregistré dans un programme particulier, l'appel de la méthode Run sur un fichier de ce type exécute le programme. Si, par exemple, Word est installé sur votre système, l'appel de Run sur un fichier *.doc démarre Word et charge le document. Le tableau suivant énumère les paramètres disponibles pour intWindowStyle.

intWindowStyle Description
0 Masque la fenêtre et en active une autre.
1 Active et affiche une fenêtre. Si la fenêtre est réduite ou agrandie, le système lui redonne sa taille et sa position d'origine. Une application doit spécifier cette indication lors du premier affichage de la fenêtre.
2 Active la fenêtre et l'affiche en taille réduite.
3 Active la fenêtre et l'affiche en taille agrandie.
4 Affiche une fenêtre en respectant sa taille et sa position les plus récentes. La fenêtre active reste active.
5 Active la fenêtre et l'affiche d'après sa taille et sa position actuelle.
6 Réduit la fenêtre spécifiée et active la fenêtre de niveau supérieur suivante dans l'ordre alphabétique.
7 Affiche la fenêtre sous l'aspect d'une fenêtre réduite. La fenêtre active reste active.
8 Affiche la fenêtre dans son état actuel. La fenêtre active reste active.
9 Active et affiche la fenêtre. Si la fenêtre est réduite ou agrandie, le système lui redonne sa taille et sa position d'origine. Une application doit spécifier cet indicateur lors de la restauration d'une fenêtre réduite.
10 Définit l'état d'affichage en fonction de l'état du programme qui a démarré l'application.

Exemple 1
Le code VBScript suivant ouvre une copie du script en cours d'exécution grâce au Bloc-notes.

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "%windir%\notepad " & WScript.ScriptFullName
Le code VBScript suivant fait la même chose, si ce n'est qu'il spécifie le type de fenêtre, attend que l'utilisateur ferme le Bloc-notes et enregistre le code d'erreur renvoyé par le Bloc-notes lors de la fermeture.

Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run("notepad " & WScript.ScriptFullName, 1, true)
Exemple 2
Le code VBScript suivant ouvre une fenêtre de commande, modifie le chemin en C:\ et exécute la commande DIR.

Dim oShell
Set oShell = WScript.CreateObject ("WSCript.shell")
oShell.run "cmd /K CD C:\ & Dir"
Set oShell = Rien
Voir aussi
WshShell, objet

Enfin, je penses qu'il faut t'habituer (même pour un petit bout de code) à déclarer correctement tes variables, etc ... en utilisant Option Explicit On et Option Strict On en te conviant à parcourir entre autres les cours de base VB si tu ne sais pas http://plasserre.developpez.com/cours/vb-net/.

bon code ...

[zitoune31]

bonsoir,
tout d’abord merci de ta réponse et du temps accorder à celle-ci.
effectivement je suis de ce qui à de plus novice en vb donc j'ai du mal à comprendre le vocabulaire techniques ...

bonsoir,

j'ai quelques difficultés à comprendre ton problème !

Concernant le début, à quoi servent ces lignes :

Code :

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

1
2
3
4
5
6
 
        aide = CreateObject("Scripting.FileSystemObject")
 
        'si reponse non
        '
        aide = vbNo

en faite j'avais repris cette méthode d'une autre appli que j'ai fait (sûrement mal fait d'ailleurs), mais suite à ta remarque je constate que sans cela fonctionne idem donc effectivement j'en conviens cella sert à rien MERCI DE LA CORRECTION.

Concernant

je vois que tu as 2 fois les mêmes variables dans tes inputbox :

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
        '*******************************************
        '** 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)

la logique du raisonnement devrait donner plutôt :

Code :

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

1
2
3
4
5
6
        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)

là c'est la bourde désoler LA GRANDE ERREUR DU COPIER COLLER EN OMETTANT DE TOUT VERIFIER

concernant le Run, tu peux concaténer plusieurs chaines séparées par des ";"

mais je t'invite à lire la méthode en détail :

http://msdn.microsoft.com/fr-fr/library/d5fk67ky.aspx

dont je t'ai récupéré pour le Fun la traduction (!)

ENCORE MERCI DE L INFO je regarde àa de suite après manger espérant trouver mon bonheur :-)

Enfin, je penses qu'il faut t'habituer (même pour un petit bout de code) à déclarer correctement tes variables, etc ... en utilisant Option Explicit On et Option Strict On en te conviant à parcourir entre autres les cours de base VB si tu ne sais pas http://plasserre.developpez.com/cours/vb-net/.

bon code ...

je vais également me pencher à ta suggestion effectivement je conçois mon besoin d'apprendre et surtout également l'envie
cordialement

[zitoune31]

bon voilà j'ai avancer un peu on va dire mais pas tout à fait résolu pour autant.
revoilà mon code avec les modif

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
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
    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**
        '*******************************************************
        Dim Shell, Retour, Dl
        Shell = CreateObject("WSCript.shell")
        'oShell.run("cmd /K ftp -s:c:\ftp\script\choixdl.txt", 1, True)
        Retour = Shell.Run("cmd /K ftp -s:c:\ftp\script\choixdl.txt", 0, False)
        '
        'ouverture dossier téléchargements
        Dl = ("C:\ftp\telechargements")
        shell.Run(Dl)
    End Sub
End Class

le problème restant est celui-ci (malgré avoir tester X possibilité mais sincèrement je rame)

Code :

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

1
2
3
4
5
6
7
Dim Shell, Retour, Dl
        Shell = CreateObject("WSCript.shell")
        Retour = Shell.Run("cmd /K ftp -s:c:\ftp\script\choixdl.txt", 0, False)
        '
        'ouverture dossier téléchargements
        Dl = ("C:\ftp\telechargements")
        shell.Run(Dl)

en faite la fenêtre cmd reste ouverte dans le gestionnaire des taches et donc le dossier téléchargements ne se lance pas
et si je met

Code :

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

Retour = Shell.Run("cmd /K ftp -s:c:\ftp\script\choixdl.txt", 1, True)

je dois fermer la fenêtre cmd manuellement ce dont je ne cherche pas.
MERCI encore de l'aide et du temps apporter a ma demande

[zitoune31]

hé voilà la solution !!!!

Code :

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

1
2
3
4
5
6
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)

ce qui donne en entier

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

bon on peu dire que j'y est passer la soirer sans relâche MAIS l'effort a sa récompense je vais pouvoir intégrer ce code à mon appli et cela ma fait découvert des améliorations pour les news code.