dossier

salut a tous
commen on fai pour copier un dossier plein ou vide
merci
==drpsico==

Salut,

Déjà il faut que tu sache si le répertoire est vide ou plein, pour cela utilise une FileListBox pour voir le contenu d'un répertoire, ensuite s'il est plein tu doit copier un à un les fichiers pour cela utilise l'Index du FileListBox dans un boucle pour déplacer le curseur.
S'il est vide il suffit juste de créer un nouveau répertoire.

Chris...

merci mes je c pas commen utilisé FileListBox
==drpsico==

alors si tu poura&i me dire commen lutiliser pour savoir si il et plein ou vide le dossier et pour faire une boucle avec
pour verifier il fo faire teste je pence mes commen je formule
merci
==drpsico==

Alors, place une FileListBox, puis paramètre la propriété PATH
Exemple : FileListBox1.path="c:\"

Pour obtenir le nombre de fichiers de ce répertoire utilise :
TotalFiles=FileListBox1.ListCount

Test si le directory est plein ou vide et fait la copie :

if totalfiles=0 then
MkDir NouveauRépertoire
else
MkDir NouveauRépertoire
i=0
do until i = TotalFiles
FileListBox1.ListIndex = i
filecopy FileListBox1.FileName, Chemindistant & "\" & FileListBox1.FileName
i=i+1
loop
end if

pk sa sa marche pas

Private Sub File1_Click()
FileListBox1.Path = "c:\d"
TotalFiles = FileListBox1.ListCount
If TotalFiles = 0 Then
MkDir c
Else
MkDir c
i = 0
Do Until i = TotalFiles
FileListBox1.ListIndex = i
FileCopy FileListBox1.FileName, Chemindistant & "\" & FileListBox1.FileName
i = i + 1
Loop
End If

End Sub
==drpsico==

c pluto sa mes g toujour 2 erreur je voudrai savoir pk

Private Sub Command1_Click()
FileListBox1.Path = "c:\d"
TotalFiles = FileListBox1.ListCount
If TotalFiles = 0 Then
MkDir "c:\c"
Else
MkDir "c:\c"
i = 0
Do Until i = TotalFiles
FileListBox1.ListIndex = i
FileCopy FileListBox1.FileName, Chemindistant & "\" & FileListBox1.FileName
i = i + 1
Loop
End If
End Sub
==drpsico==

Sorry du retard de la réponse, j'ai été faire 2-3 courses, j'ai vérifier et voici le script final qui fonctionne :

==============================================
File1.Path = "c:\Lotus"
TotalFiles = File1.ListCount

On Error Resume Next
MkDir "c:\D"
On Error GoTo 0

If TotalFiles <> 0 Then
i = 0
Do Until i = TotalFiles
File1.ListIndex = i
FileCopy File1.Path & "\" & File1.FileName, "c:\D\" & File1.FileName
i = i + 1
Loop
End If
==============================================

sa c le dossier de destination On Error Resume Next
MkDir "c:\D"


==drpsico==

En fait la partie "On Error Resume Next" permet de passer au l'instruction suivante si le répertoire "c:\D" éxiste déjà. En Gros cela passe à la suite lorsqu'il y a une erreur, et comme si le directory existe déjà cela retourne une erreur alors voilà.

Ensuite "On Error Goto 0" annule cette gestion d'erreur

MKDir sert à créer un répertoire, en l'occurence : 'c:\D'

Chris