Discussion :

[zitoune31]

bonsoir , bonsoir

me revoilà avec une nouvelle demande.

je souhaite simplifier l'utilisateur afin de lui faire sélectionner un fichier qui sera envoyer par ftp via cmd.exe.

à ce jour j'utilise 2 imputbox
1er imputbox : l'utilisateur doit inscrire le chemin du fichier
2ème imputbox : le nom du fichier

voici le

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
 
Dim rep, title, defaultValue As String
        rep = "Merci de coller ici UNIQUEMENT l'emplacement du fichier à envoyer le nom vous sera demander après !"
        title = "emplacement du fichier à envoyer ?"
        defaultValue = "cela doit commencer par une LETTRE ou un CHIFFRE 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 nom du fichier à envoyer"
        title0 = "nom fichier à envoyer"
        defaultValue0 = "Mon fichier.quelqueChose"
        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\choixUP.txt")
        'écris le résultat des inputbox dans le fichier choixdUP
        With Monfic
            Monfic.writeLine("open @ftp")
            Monfic.writeLine("id")
            Monfic.writeLine("mdp")
            Monfic.writeLine("put """ & rep & chx & "")
            Monfic.writeLine("quit")
        End With
        Monfic.close()

comment effectuer cette opération type explorateur windows ??
nul besoin de préciser mon incompétence soyer donc indulgent
vous remerciant du temps et de l'aide apporter

[Gurdil le nain]

Pourquoi tu n'utilises pas un OpenFileDialog, ce sera plus simple pour l'utilisateur et tu pourras récupérer le chemin d'un seul coup.

Lien

[zitoune31]

Pourquoi tu n'utilises pas un OpenFileDialog, ce sera plus simple pour l'utilisateur et tu pourras récupérer le chemin d'un seul coup.

Lien

Bonjour,
merci c'est tout à fait ce dont je cherchais
reste maintenant réussir à l'adapter

si je part de mon code initial pour récupérer les données entrées dans les imputbox ça donnais :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
        Dim FSys
        FSys = CreateObject("Scripting.FileSystemObject")
        Dim Monfic
        Monfic = FSys.CreateTextFile("C:\ftp\script\choixUP.txt")
        'écris le résultat des inputbox dans le fichier choixdUP
        With Monfic
            Monfic.writeLine("open @ftp")
            Monfic.writeLine("id")
            Monfic.writeLine("mdp")
            Monfic.writeLine("put """ & rep & chx & "")'rep et chx sont les inputbox
            Monfic.writeLine("quit")
        End With
        Monfic.close()

avec openFileDialog, sa devrai donner :

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
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myStream As Stream
        Dim openFileDialog1 As New OpenFileDialog()
 
        openFileDialog1.InitialDirectory = "c:\"
        openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        openFileDialog1.FilterIndex = 2
        openFileDialog1.RestoreDirectory = True
 
        If openFileDialog1.ShowDialog() = DialogResult.OK Then
            myStream = openFileDialog1.OpenFile()
            If Not (myStream Is Nothing) Then
                Dim FSys
                FSys = CreateObject("Scripting.FileSystemObject")
                Dim Monfic
                Monfic = FSys.CreateTextFile("C:\ftp\script\choixUP.txt")
                'écris le résultat des inputbox dans le fichier choixdUP
                With Monfic
                    Monfic.writeLine("open @ftp")
                    Monfic.writeLine("id")
                    Monfic.writeLine("mdp")
                    Monfic.writeLine("put "myStream")
                    Monfic.writeLine("quit")
                End With
                Monfic.close()
                ' Insert code to read the stream here.
                myStream.Close()
            End If
        End If
    End Sub

mais sa fonctionne pas ???

[dharkan]

je pense que tu as oublié :

Code :

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

1
2
 
choisirFichier.ShowDialog()

juste apres le restoreDirectory

EDIT :

si je peux me permettre pour uploader le fichier sur le FTP tu aurai plus simple de faire ceci je pense :

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
 
Private Sub ajouterFichier(ByVal nouveauFichier As String, ByVal ancienFichier As String)
 
        Dim ftpRequete As FtpWebRequest
        Dim ftpFlux As System.IO.Stream
 
        'ajout du nouveau document word
        'positionnement dans le repertoire et selection du fichier concerné
        ftpRequete = DirectCast(System.Net.WebRequest.Create("ftp://localhost/" & ancienFichier), System.Net.FtpWebRequest)
        'type de requête sur le FTP
        ftpRequete.Method = System.Net.WebRequestMethods.Ftp.UploadFile
        'connexion au FTP
        ftpRequete.Credentials = New System.Net.NetworkCredential("Admin", "Admin")
 
        'on remplace \ par / pour le chemin virtuel
        nouveauFichier = nouveauFichier.Replace("\", "/")
        'lecture du fichier en octet
        Dim bFile() As Byte = System.IO.File.ReadAllBytes(nouveauFichier)
 
        'upload du fichier word sur le FTP
        ftpFlux = ftpRequete.GetRequestStream()
        'ecriture du fichier sous forme d'octet sur le FTP
        ftpFlux.Write(bFile, 0, bFile.Length)
        ftpFlux.Close()
        ftpFlux.Dispose()
 
    End Sub

[Er3van]

Pas de problème, il a bien fait un

Code vb :

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

If openFileDialog1.ShowDialog() = DialogResult.OK Then ...

Le problème apparait bien sur ce message, il y a une double quote de trop : Monfic.writeLine("put "myStream")

[zitoune31]

Merci à vous pour vos suggestion.

En faite mon problème est de renvoyer le résultat du openFileDialog dans

Code :

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

1
2
 
Monfic.writeLine("put résultat du openFileDialog)

comme je l'avais fait avec les inpubox

Code :

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

1
2
 
Monfic.writeLine("put """ & rep & chx & "")'rep et chx sont les inputbox

[Gurdil le nain]

Tu peux la récupérer comme ça :

Code :

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

openFileDialog1.FileName

[Danyel]

Comme pour tous les objets, il suffit d'aller sur l'aide du dit objet pour y etudier tout son etat et comportement.
http://msdn.microsoft.com/fr-fr/libr...VS.100%29.aspx

[zitoune31]

bonsoir,

Tu peux la récupérer comme ça :

Code :

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

openFileDialog1.FileName

Nikel encore merci a toi je pouvais pas espérer mieux encore merci du temps accorder
et merci également au Modérateur pour le lien

[Danyel]

De rien, c'est juste un rappel pour informer que sur mdsn (qui est gratuit, je precise) tu trouveras 95% des reponses que tu te poses et sans attendre le/les possibles/eventuelles reponses

[zitoune31]

effectivement je suis preneur de tout les bon lien astuces c'est toujours enrichissant surtout pour un ultra novice

tiens d'ailleur petite question suite au lien que tu a poster étant donner que j'ai tester cette source
http://msdn.microsoft.com/fr-fr/libr....filename.aspx

j'ai donc copier le code dans une Form mais erreur à ce niveau

Code :

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

Public Sub New()

ID d'erreur : BC40054

voilà ce que me retourne l'aide :

Ajoutez un appel à la méthode InitializeComponent dans le constructeur

2question suite à cela :
1/ il dise : Cet exemple complet est prêt à être exécuté dès sa copie dans votre projet. donc pourquoi cette erreur ?
2/ ma curiosité me demande comment la régler ?

voilà mais c'est juste pour compendre cela ne me servira pas DE SUITE EN TOUT LES CAS

[hunteshiva]

De ce que j'en ai compris, *en le disant simplement*
le Public Sub New() permet créer des nouveaux éléments graphiques (Formulaire, TextBox, Label, Boutton,...)
puis tu crée le Formulaire avec la fonction suivante:

Code :

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

1
2
3
    Public Shared Sub Main()
        Application.Run(New Form1)
    End Sub

A mon avis tu a déja crée ton formulaire,
donc je te coneil de zapper le code qui permet de créer le formulaire (avec sa mise en page)
et de ne prendre que la partie qui t'interesse:

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
Imports System
Imports System.Drawing
Imports System.IO
Imports System.Windows.Forms
 
Partial Public Class Form1
 
'################################
'##### tu zappe cette partie ####
'################################
 
    ' Declare a new memory stream.
    Dim userInput As New MemoryStream
 
   '...
   '...
 
 End Sub
 
End Class

PS: pense à ajouter tous les élément *manuelement*