Bouton télécharger [Résolu]

ensat10 29 Messages postés mardi 30 novembre 2010Date d'inscription 29 janvier 2011 Dernière intervention - 11 janv. 2011 à 11:53 - Dernière réponse : ensat10 29 Messages postés mardi 30 novembre 2010Date d'inscription 29 janvier 2011 Dernière intervention
- 14 janv. 2011 à 02:54
Salut tout le monde.
j'ai besoin de l'aide s'il vous plait.
Bon voila je voudrais avoir un bouton nommé Télécharger qui me permet de copier un fichier existant dans ma solution vers ma machine locale, l'emplacement destination doit être choisi par l'utilisateur (qui clique sur le bouton télécharger).

j'ai essayé de faire le code ci-dessous mais ca me permet de copier depuis une source vers une destination spécifiée à l'avance, ce que je ne veux pas, la destination doit être choisie par l'utilisateur comme j'ai dis .

Protected Sub Télécharger_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Télécharger.Click
        Dim FileToCopy As String
        Dim NewCopy As String

        FileToCopy = "C:\Users\File.txt"
        NewCopy = "C:\Users\CoursE\File.txt"

        If System.IO.File.Exists(FileToCopy) = True Then
            System.IO.File.Copy(FileToCopy, NewCopy)
            MsgBox("File Copied")
        End If
    End Sub


Merci d'avance
Afficher la suite 

Votre réponse

4 réponses

Meilleure réponse
Taur33 85 Messages postés vendredi 24 septembre 2010Date d'inscription 20 mai 2011 Dernière intervention - 13 janv. 2011 à 23:22
3
Merci
Essaye comme ça :
 Protected Sub Télécharger_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Télécharger.Click
        Dim FileToCopy As String
        Dim NewCopy As String = InputBox("Chemin de destination complet : ")

        FileToCopy = "C:\Users\File.txt"


        If System.IO.File.Exists(FileToCopy) = True Then
            System.IO.File.Copy(FileToCopy, NewCopy)
            MsgBox("File Copied")
        End If
    End Sub

Merci Taur33 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 94 internautes ce mois-ci

Commenter la réponse de Taur33
Taur33 85 Messages postés vendredi 24 septembre 2010Date d'inscription 20 mai 2011 Dernière intervention - 11 janv. 2011 à 12:45
0
Merci
2 solutions:
soit ajouter une boite de dialogue avec un textbox dans lequel tu récupere le chemin de destination
soit utliser le controle SaveFileDialog
Imports System.IO
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myStream As Stream
        Dim saveFileDialog1 As New SaveFileDialog()

        saveFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        saveFileDialog1.FilterIndex = 2
        saveFileDialog1.RestoreDirectory = True

        If saveFileDialog1.ShowDialog() = DialogResult.OK Then
            myStream = saveFileDialog1.OpenFile()
            If (myStream IsNot Nothing) Then
                ' données 
                myStream.Close()
            End If
        End If

    End Sub
Commenter la réponse de Taur33
ensat10 29 Messages postés mardi 30 novembre 2010Date d'inscription 29 janvier 2011 Dernière intervention - 13 janv. 2011 à 20:43
0
Merci
Salut Taur33 mercii pr ta réponse.
Mais meut être ma question serais bête mais comme je suis débutant je vais la poser quand même:
je travaille sous web developper et j'essaye d'appliquer le téléchargement sur une page web donc pas avec une forme(c'est pour cela je ne trouve pas ce controle OpenFileDialog).
Merci de m'aider.
Commenter la réponse de ensat10
ensat10 29 Messages postés mardi 30 novembre 2010Date d'inscription 29 janvier 2011 Dernière intervention - 14 janv. 2011 à 02:54
0
Merci
Merci Taur33 pr ton aide ca marche .
Commenter la réponse de ensat10

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.