Il existe des fonctions pour copier des répertoires mais on ne pêut pas les appliquer sur la racine d'unn disque car le disque n'est pas considéré comme un répertoire je pense.
Alors comment faire?
merci
Il existe des fonctions pour copier des répertoires mais on ne pêut pas les appliquer sur la racine d'unn disque car le disque n'est pas considéré comme un répertoire je pense.
Alors comment faire?
merci
Bah si...
Y'a pas de probleme
Code : Sélectionner tout - Visualiser dans une fenêtre à part File.Move("C:\Rep\Cool.txt", "C:\Cool.txt")
Qui ne tente rien n'a rien !
Ce qui ne nous tue pas nous rends plus fort !!
Mon projet ZELDA en C++/Allegro
http://www.tutoworld.com - Le Forum -
Mes ressources Dotnet (cours, sources, tutos)
--------------------------------------------
+ + =
Ne pas oublier le Tag !
Je me suis mal exprimé.
Ce que je veux moi, c'est faire un truc du genre:
C''est à direcopier tout le contenu d'un disque.
Code : Sélectionner tout - Visualiser dans une fenêtre à part Directory.Copy("D:\","E:\")
merci
Ah ok dans ce cas, cela change les choses !
Il faut utiliser la recursivité pour lister tous les fichiers et dossiers et faire la copie manuellement.
Voici une ebauche de code :
Et pour l'appel :
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 Public Sub CopyAll(ByVal Rep As String) Dim AncienLecteur As String = "Y:\" 'a modifier Dim NouveauLecteur As String = "Z:\" 'a modifier Dim entree As String() = IO.Directory.GetFileSystemEntries(Rep) 'recupere fichiers et dossiers For Each file As String In entree 'pour chaque fichier If IO.File.Exists(file) Then 'si c'est true alors c'est un ficheir Dim info As New IO.FileInfo(file) 'obtient des info sur le fichier IO.File.Copy(file, Replace(info.FullName, AncienLecteur, NouveauLecteur), True) 'copie le fichier dans le nouveau rep Else ' c'est un repertoire MkDir(Replace(file, AncienLecteur, NouveauLecteur)) 'cree le repertoire au bon endroit :) CopyAll(file) 'liste les fichier de ce rep par reccursivité End If Next End Sub
Voila je l'ai testé c'est fonctionne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 MkDir("Z:\test") 'ne pas oublier de créer le repertoire racine !! CopyAll("Y:\test") 'et hop on commence la copie !
Qui ne tente rien n'a rien !
Ce qui ne nous tue pas nous rends plus fort !!
Mon projet ZELDA en C++/Allegro
http://www.tutoworld.com - Le Forum -
Mes ressources Dotnet (cours, sources, tutos)
--------------------------------------------
+ + =
Ne pas oublier le Tag !
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager