Discussion :

[Aspic]

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 ?

[Aspic]

NON elle sont toute petite

Heureusement pour toi ^^

[jockyboss777]

^^
sinon le code que j'ai posté plus haut il est bon c'est bien comme ça qu'il faut le mettre ??

[Aspic]

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

[jockyboss777]

NN pas celui là
celui là :

Code :

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

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

[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...

[jockyboss777]

oki d'accord je teste le code et te dire ce qu'il en devient

[jockyboss777]

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

[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 :

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

End Sub

après le Public Class Form 15
Débile hein!!

[Aspic]

alors ca marche enfin ?

[jockyboss777]

je n'ai pas fini avec les code il me reste deux trois truc a rentrer puis je le teste
promis
Je vous tien au courant

[Aspic]

promis
Je vous tien au courant

Je n'en doute point ^^

[jockyboss777]

Je n'en doute point ^^

Vantard
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

[jockyboss777]

Aspic,

Code :

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

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é
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

[Aspic]

Biensur que oui, Fichier et Destination sont des variables !

Tu fais cela :

Code :

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

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

++

[jockyboss777]

Biensur que oui, Fichier et Destination sont des variables !

Tu fais cela :

Code :

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

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 ???

[Aspic]

Bah utilise un tableau

Code :

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

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

[jockyboss777]

Bah utilise un tableau

Code :

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

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

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

Code :

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

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??

[Aspic]

Bah voila tu as le code fonctionnel

C'est exactement ce que tu dois faire et le reste se ferra tout seul !

[jockyboss777]

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

Code :

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

IO.File.Copy(Fichier, Destination)

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

Code :

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

(Fichier, Destination)

(puisse qu'il me le surligne)

Enfin bon je suis perdu ^^