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