Discussion :

[Attila54]

je viens de faire ce que tu as dit, maintenant j'ai l'erreur

Impossible de créer un fichier déjà existant.

a l'execution sur

Code :

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

File.Move(Filesource, Filedestination)

...

n'est ce pas du a mon Filedestination qui est "\\nas\repA\repB\repD" alors que mon filesource est un chemin complet ?

[asmduty]

Si, pour commencer.
Mais aussi tu dois mettre un test pour forcer le fichier à écraser l'autre si un fichier avec ce nom existe déjà dans le dossier. (supression de celui-ci avant déplacement de l'autre)

[Attila54]

oui pour le test, daccord je comprends bien, en l'occurence j'ai volontairement testé avec un rep destination vide donc ca n'aurait pas du le faire dans ce cas.
Ceci etant je ne vois pas comment faire de mon filedestinaton un rep complet, j'ai beau chercher, je ne trouve a aucun endroit la valeur du nom du fichier
je veux dire : CheminFicher = .FileName donc
Filename vaut au temps T, \\nas\repA\repB\repC\mon_fichier_au_temps_T.xls
Je peux donc faire Dim Filesource As String = .FileName.

Je ne vois pas comment inclure mon_fichier.xls dans Filedestination pour avoir un Dim Filedestination As String = \\nas\repA\repB\repD\mon_fichier_au_temps_T.xls

[asmduty]

Fais un peu d'efforts et de recherches par toi même ...
Tu l'as dans le chemin complet du fichier d'origine, tu as juste a découper au dernier "/", ou encore utiliser System.IO.Path.GetFileName (chemin_complet_fichier_origine)
Après tu fais un System.IO.Path.Combine(dossierdestination,fichier) et ça te donne le chemin complet du fichier de destination ...

[Attila54]

Tu l'as dans le chemin complet du fichier d'origine, tu as juste a découper au dernier "/",

ben moi je le vois pas le chemin ou il faut découper au dernier "/" mais c'est pas grave, je te remercie de ton aide, je reprendrai ca a tete reposée, la je sature totalement

[Attila54]

eh bien même après désaturation, je crois que c'est définitivement foutu pour moi .....
J'arrive bien a faire un move de tous les fichiers existants d'un repA vers un repB en faisant comme shay me l'avait montre

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
 Private Sub CopyoneFiles(ByVal sourcepath As String, ByVal destpath As String)
        Try
            Dim monfichier As String() = Directory.GetFiles(sourcepath)
            For Each item As String In monfichier
                If Not File.Exists(item) Then
                    Exit Sub
                End If
                If Directory.Exists(destpath) Then
                    If File.Exists(destpath & "\" & Path.GetFileName(item)) Then
                        File.Delete(destpath & "\" & Path.GetFileName(item))
                    End If
                    File.Move(item, destpath & "\" & Path.GetFileName(item))
                End If
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

puis en execution les "path" en dur

Code :

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

CopyoneFiles("\\nas\Calculateur\data\encours\", "\\nas\Calculateur\data\traites\")

la, pas d'erreur c'est surn pas de souci, les tests sont bon mais il me copie tout

je ne vois toujours pas comment definir les fichiers sources et destination vu que la source est definie dans une sub différente (cheminfichier = .filename)

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
 Private Sub Buttonload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonload.Click
        ' Fichier Excel
        Dim CheminFicher As String
        Dim BoiteDialogue As New OpenFileDialog
        .
        .
With BoiteDialogue
            ' Initialisation de la boite de dialogue
            .Title = "Load Data"
            .InitialDirectory = "\\nas\Calculateur\data\encours\" ' répertoire de l'application
            .Filter = "Fichiers Excel |*.xls; *.xlsx"
 
            ' vérification de la séléction
            If .ShowDialog() = System.Windows.Forms.DialogResult.OK Then
                CheminFicher = .FileName
.
.
End With

et que je ne peux pas la passer en globale dans mes declarations au niveau du form

[asmduty]

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
Dim FichierSource as string = "c:/Poney.xls"
 
'Chargement du fichier
...
 
'Déplacement du fichier
 
Dim dossierDest as string = "c:/dossierDestination"
Dim nomFichierCourt as string = System.IO.Path.GetFileName(FichierSource)
Dim cheminCompletFichierDest = System.IO.Path.Combine(dosierDest,nomFichierCourt)
 
If System.IO.Directory.Exists(dossierDest) Then
     If System.IO.File.Exists(cheminCompletFichierDest) Then
          System.IO.File.Delete(cheminCompletFichierDest)
     End If
     System.IO.File.Move(FichierSource, cheminCompletFichierDest)
End If

[Attila54]

Merci pour l'aide, je comprends bien maintenant l'architecture des choses, et ce n'est pas facile pour le débutant que je suis. Mais dis moi pour mon information, le fichiersource chez moi est choisi via une boite de dialogue

Code :

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

1
2
3
4
5
Private Sub Buttonload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonload.Click
        ' Fichier Excel
        Dim CheminFicher As String
        Dim BoiteDialogue As New OpenFileDialog
......

Cheminfichier retourne le chemin complet avec le fichier du .xls utilisé.
En quoi ferais je une erreur si j'utilisais Cheminfichier a la place de FichierSource puisque selon ton exemple Fichiersource donne un chemin + un fichier ?

Selon moi c'est la methode mais je voulais être certain de ma compréhansion

[asmduty]

Ce n'est pas une erreur, j'ai juste choisit des noms qui soient plus compréhensibles pour que tu comprennes bien la manière de faire, quels variables sont des dossiers, lesquelles sont des chemins complets, et lesquels des noms de fichier courts.

Avec ça tu as toutes les cartes en main pour ce que tu voulais faire.

[Attila54]

non seulement j'ai les cartes mais tout fonctionne parfaitement effectivement
j'ai eu un mal de chien avec ces fichiers en cours d'utilisation mais je crois que maintenant, je comprends mieux comment cela s'articule.
Encore merci pour ce cours magistral qui m'a beaucoup aidé