SaveFileDialog pour un fichier dans un programme

Version imprimable

Voir 40 message(s) de cette discussion en une page

30/05/2007, 20h13
Aspic

Citation:

Envoyé par jockyboss777

Au fait j'ai tenter mon code il me surligne

IO.File.Copy(Fichier, Destination)
C'est pas normal je me suis trompé

Impossible !! C'est quoi l'erreur ?
30/05/2007, 20h14
Aspic

Citation:

Envoyé par jockyboss777

NON elle sont toute petite

Heureusement pour toi ^^
30/05/2007, 20h15
jockyboss777

^^
sinon le code que j'ai posté plus haut il est bon c'est bien comme ça qu'il faut le mettre ??
30/05/2007, 20h18
Aspic

Oui oui, mon code avec les tableaux est correct.
Il va donc posser la question 4 fois puisque tu as 4 videos!

NN pas celui là
celui là :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Class Form15
    Private Sub Copier(ByVal Fichier As String)
        Try
            Dim Destination As String = InputBox("Ou voulez vous copier le fichier video ?")
            IO.File.Copy(Fichier, Destination)
            MsgBox("Fichier copié avec succes")
        Catch ex As EvaluateException
            MsgBox("Erreur lors de la copie : " & ex.Message)
        End Try
    End Sub
    Private Sub F_Mail_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Copier(Application.StartupPath & "c:\Programmes\projets\Ombre_f.mov")
    End Sub
End Class

30/05/2007, 20h22
Aspic

Non cela lui est valable que pour une seule vidéo mais tu m'as dit que tu en avais 4 ! Il faut savoir...
30/05/2007, 20h23
jockyboss777

oki d'accord je teste le code et te dire ce qu'il en devient
30/05/2007, 20h29
jockyboss777

Comment dois-je appeler mon formulaire moi?
Parceque il me souligne Public Class Form 15
???
30/05/2007, 20h58
jockyboss777

Citation:

Envoyé par jockyboss777

Comment dois-je appeler mon formulaire moi?
Parceque il me souligne Public Class Form 15
???

Excusez moi pour cette réponse débile c'est moi qui est maladroitement effacé le

Code:

End Sub

après le Public Class Form 15
Débile hein!! :aie:
30/05/2007, 21h53
Aspic

alors ca marche enfin :D ?
30/05/2007, 22h15
jockyboss777

je n'ai pas fini avec les code il me reste deux trois truc a rentrer puis je le teste
promis :mouarf:
Je vous tien au courant
30/05/2007, 22h29
Aspic

Citation:

Envoyé par jockyboss777

promis :mouarf:
Je vous tien au courant

Je n'en doute point ^^ :yaisse2:
30/05/2007, 23h15
jockyboss777

Citation:

Envoyé par Aspic

Je n'en doute point ^^ :yaisse2:

Vantard :mouarf:
Mais tu le peux bien.
Je le teste demain donc je t'envérai un message demain.
Bonne nuit Aspic Et ENCORE MERCI POUR TOUT
03/06/2007, 11h07
jockyboss777

Aspic,

Code:

IO.File.Copy(Fichier, Destination)

Je suis vraiment désolé mais le code ci-dessus ne marche pas.
(mais il faut remplacer "fichier destination" par qqch ???)
:?
Encore, Désolé:cry:
P.S Après avoir tester pour voir ci il marcher et après avoir un chemin pour la copie il ma surligné le code ci-dessus
Mais il faut mettre un chemin existant :?

Biensur que oui, Fichier et Destination sont des variables !

Tu fais cela :
Code:

1 2 3 Dim Fichier as String = "CheminFichierACopier" Dim Destination as String = "CheminDestinationDuFichier" IO.File.Copy(Fichier, Destination)
++

07/06/2007, 17h31
jockyboss777
Citation:
Envoyé par Aspic

Biensur que oui, Fichier et Destination sont des variables !

Tu fais cela :

Code:

1 2 3 Dim Fichier as String = "CheminFichierACopier" Dim Destination as String = "CheminDestinationDuFichier" IO.File.Copy(Fichier, Destination)

++
Oui mais comme il y en a plusieur comment je fais ???:roll:
07/06/2007, 17h48
Aspic
Bah utilise un tableau
Code:

1 2 3 Dim Tab as New ArrayList Tab.Add("...") ...

Citation:

Envoyé par Aspic

Bah utilise un tableau

Code:

1
2
3
Dim Tab as New ArrayList
Tab.Add("...")
...

Oui ok tien regarde c'est toi qui me la donné.

Code:

1
2
3
4
5
6
7
8
9
10
11
    Private Sub F_Mail_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Tab As New ArrayList 'declare un tableau 
        Tab.Add("file:\\\C:\Programmes\projets\fontaine.mov")
        Tab.Add("file:\\\C:\Programmes\projets\4sens.mov")
        Tab.Add("file:\\\C:\Programmes\projets\ombre_f.mov")
        Tab.Add("file:\\\C:\Programmes\projets\inv.mov")
        Tab.Add("file:\\\C:\Programmes\projets\explosion.mov")
        For i As Integer = 0 To Tab.Count - 1 'liste les elements
            Copier(Tab.Item(i).ToString)
        Next i
    End Sub

Donc tu veux dire que je dois refaire un tablau??

07/06/2007, 18h47
Aspic

Bah voila tu as le code fonctionnel :mouarf:

C'est exactement ce que tu dois faire et le reste se ferra tout seul !
07/06/2007, 19h24
jockyboss777

Oui mais le code au dessus (le deuxieme) c'est toi me la passé
mais il ne marche pas il me surlige

Code:

IO.File.Copy(Fichier, Destination)

Donc si il faut que je crée un autre tableau qui sert pour

Code:

(Fichier, Destination)

(puisse qu'il me le surligne)

Enfin bon je suis perdu ^^ :lol:

Voir 40 message(s) de cette discussion en une page