Bonjour,
J'ai recemment eu quelque probleme dans le download du contenu d'un folder du FTP vers un folder de mon HDD local, problème résolu maintenant.
J'essaye maintenant, pour des raisons de sauvegarges de fichiers, a faire un filemove des fichiers de mon HDD local vers un autre rep local
Je me doute qu'il faut passer par un directorylisting ùais j'ai un peu de mal avec la syntaxe. J'ai fait
evidemment ca ne fonctionne pas puisqu'il n'y a pas les infos necessaires a la reconnaissance des fichiers qui tous sont de la forme *.xls
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 Private Sub filemove() Dim myDate As DateTime If Not (DateTime.TryParse(TxtDate.Text, myDate)) Then MessageBox.Show("Error Date time") Exit Sub End If Try Dim FileSource As String = "\\nas\repA\repB\repC\" Dim FileDestination As String = "\\nas\repA\repB\repD\" If File.Exists(FileSource) = False Then MessageBox.Show("File missing") Exit Sub End If If File.Exists(FileDestination) Then File.Delete(FileDestination) End If File.Move(FileSource, FileDestination) Catch ex As Exception MessageBox.Show(String.Format("The process failed: {0}", ex.ToString())) End Try End Sub
J'ai tenté un GetDirectoryListing(FileSource) mais ca ne fonctionne pas, j'ai toujours "file missing". Je ne sais plus trop quoi faire ........
merci bien
Partager