Discussion :

[zitoune31]

Bonjour à toute et à tous, je me permet de venir vers vous afin d'obtenir une petite aide suite à mon ambition. Je m'explique mais pardonner mon incompétence je débute et donc c'est difficile d'être clair sur des choses que l'on maîtrise pas. Ceci dit voilà j'ai fait une petite application vb.net permettant d'effectuer des téléchargements ftp sur mon server.(ma question concerne uniquement des fichiers musiques). A ce jour les utilisateurs sont diriger vers leur navigateur internet pour voir la liste des fichiers disponible, et doive effectuer un copier coller 1/ le chemin & 2/ du fichier désirer pour les coller dans 2 inputbox. Sachant que j'ai à disposition un fichier excel et/ou html listant l'ensembles des répertoires (chemin d'accès long et cours) ainsi que les fichiers (idem nom long et cours) ce qui représente environs 2300 répertoires et un peu moins de 11000 fichiers. je me demandais si il y avais une solution pour simplifier l'utilisation ex : par une fonction (laquelle ? textbox peu-être mais pas bien saisi) l'utilisateur commencerai à écrire le chemin d'accès et plusieurs choix lui seront proposer suite à ceux stocker dans mes fichiers de listing citer ci-dessus. il me faudrait obligatoirement 1 entrer pour le chemin et 1 autres pour le fichiers désirer soit 2 entrer bien distincte qui remplaceront en faite mes 2 inputbox. et le must si possible convertir le chemin d'accès long et le nom fichier long en cours lors de l'enregistrement afin d'éviter les erreurs de caractères dans cmd.exe. Voilà le code concerner.

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
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.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)
        'Signature
        MsgBox("Creation Z!T¤ùN£_@nT!C!P-W!n-32")
        '*****************************
        '*suppression fichier script**
        '*****************************
        If System.IO.File.Exists("c:\ftp\script\choixdl.txt") Then
            File.Delete("c:\ftp\script\choixdl.txt")
        End If
    End Sub

et voici l'image d'illustration

vous remerciant d'avance de l'aide et du temps que vous m'accorder.

[ricil78]

Si c'est juste pour récupérer des fichiers sur un FTP.
Je dirais utilise un client FTP gratuit et fait un compte utilisateur avec juste les droits de récupérer les fichiers ?

Si tu veux absolument faire un dev.

Je dirais de faire une applis qui se connecte à ton FTP et scanne les dossiers et fichiers en temps réel quand l'utilisateur ouvre ton appli.
L'interface reconstruit l'arborescence du FTP, un peu comme le fait explorateur windows.
L'utilisateur sélectionne son fichier clique sur un bouton sélectionner et le fichier s'ajoute à un liste.
Un bouton télécharger, télécharge la liste des fichiers mis de coté.

Si tu veux éviter les scannes en permanence sur ton FTP.
Tu peux faire ton applis en 2exe.
1 exe (exe ou service ou ....) qui scanne ton FTP tous les X jours et remplit une base de donnée partagée tel que
Une Bdd SQL
Un fichier txt
Un fichier xml
Ton exe utilisateur vient lire cette source (SQl, txt ou xml,..) et reconstruit l'arborescence dans ton interface.
la suite reste identique à la 1er proposition....

j'espère être dans le cadre de ta demande.

[zitoune31]

bonjour,
merci de ta réponse mais cela me semble bien complexe vue mon niveau.
effectivement je pourrai faire utiliser un client ftp (comme je le fait pour les films) mais j'essaye de me faire la main donc voilà je cherche a intégrer cette possibilité a mon appli, surtout que je l'es pas commencer hier j'avance vraiment à petit pas donc ...
après avoir résolu cette demande j'avais l'intention d'effectuer simplement une mise à jour de mon fichier de listing soit directement via l'appli (si sa reste à ma porter) soit directement en informant les utilisateurs qu'une mise a jour du fichier listing est disponible.
sinon mon ambition en soit est-elle réalisable ?

[zitoune31]

bon étant décider à me lancer à créer ma base de donner.
auriez-vous un lien tuto à me proposer sachant que j'utilise visual studio 2008 pro
vous remerciant

[ricil78]

http://msdn.microsoft.com/fr-fr/vbasic/bb265238