Discussion :

[guitou0]

Bonjour tout le monde,

J'essaye dans du code vb.net de copier un fichier en utilisant la méthode CopyTo d'un objet FileInfo (System.IO) :

Code :

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

1
2
3
4
5
6
7
8
9
            'SOURCEFILE
            m_DirSource = New DirectoryInfo(AppSettings("SourcePath"))
            m_FiSource = New FileInfo(m_DirSource.FullName + AppSettings("SourceFile"))
 
            'TEMPFILE
            m_DirTemp = New DirectoryInfo(AppSettings("SavePath"))
            m_FiTemp = New FileInfo(m_DirSource.FullName + AppSettings("SourceFile"))
 
            m_FiSource.CopyTo(m_FiTemp.FullName, True)

J'ai alors l'erreur :

System.IO.IOException
"Le processus ne peut pas accéder au fichier 'X:\GECOM\BLI.TXT', car il est en cours d'utilisation par un autre processus."

Soit. Je ferme toutes mes applis, même problème, je reboot, même problème.

Après un n-ième essai je place un point d'arrêt sur le CopyTo et je définit l'instruction suivante :

Code :

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

                m_FiSource.Delete()

Et là le delete marche, mais toujours impossible de copier le fichier.
Quelqu'un aurait une idée, parce que plus ça va, moins ça va...

[Skyounet]

Est-ce que ça fonctionne avec File.Copy ?

[guitou0]

Non je viens de tester et même erreur.

J'y ai réfléchit cette nuit (oui j'en fait des cauchemars) et je vois vraiment pas pourquoi je peux supprimer mais pas copier (encore je tenterais de le déplacer).

[EDIT]
Après divers test (depuis une autre machine, en mode release, etc), il semblerait que ça soit un problème réseau (le fichier source pointe sur un lecteur réseau).
En plaçant la copie dans un thread plus de problème.
Je laisse le code si ça peut aider quelqu'un, on sait jamais.

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
32
33
34
35
36
37
Imports System.Threading
Imports System.IO
 
Module ModMain
	Private m_DirSource As DirectoryInfo
	Private m_FiSource As FileInfo
 
	Private m_DirTemp As DirectoryInfo
	Private m_FiTemp As FileInfo	
 
	Private m_thread As New Thread(AddressOf TestCopy)
 
	Sub Main()
		Dim btest As Boolean = True
 
		'SOURCEFILE
		m_DirSource = New DirectoryInfo(AppSettings("SourcePath"))
		m_FiSource = New FileInfo(m_DirSource.FullName + AppSettings("SourceFile"))
 
		'TEMPFILE
		m_DirTemp = New DirectoryInfo(AppSettings("SavePath"))
		m_FiTemp = New FileInfo(m_DirSource.FullName + AppSettings("SourceFile"))
 
 
		m_thread.Start()
 
		While btest
			If m_thread.ThreadState = ThreadState.Stopped Then
				btest = False
			End If
		End While
	End Sub
 
	Private Sub TestCopy()
		m_FiSource.CopyTo(m_FiTemp.FullName, True)
	End Sub
End Module