dossier

Question

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

cboulas · Answer

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...

drpsico · Answer

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

drpsico · Answer

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==

cboulas · Answer

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

drpsico · Answer

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==

drpsico · Answer

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==

cboulas · Answer

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
============================================

drpsico · Answer

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

cboulas · Answer

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

drpsico · Answer

FileCopy File1.Path & "" & File1.FileName, "c:\D" & File1.FileName
c la destination
                     ==drpsico==

cs_CanisLupus · Answer

Pourquoi se casser le chou avec ça alors que le filesystemobject en VB6 fait ça très bien ?

Voilà un exemple, presque clé en main, seules contraintes, dans Origine, il vaut mieux pas mettre c:\* ou c:\windows\* sinon, ça risque de prendre du temps. Et le dossier Arrivee ne doit pas se trouver dans le dossier Origine.

' Dans Projet/Références... "Microsoft Scripting Runtime"

Dim fso As FileSystemObject

Private Sub Command1_Click()
Copier_Dossier "c:\Temp\*", "c:	ruc"
End Sub

Sub Copier_Dossier(Origine As String, Arrivee As String)

  Set fso = CreateObject("Scripting.FileSystemObject")
  
  If fso.FolderExists(Arrivee) Then
    If Right$(Arrivee, 1) <> "" Then Arrivee = Arrivee & ""
    Changer_Attribut Arrivee
  Else
    fso.CreateFolder Arrivee
  End If
  
  fso.CopyFolder Origine, Arrivee

End Sub

Private Sub Changer_Attribut(Dossier As String)
Dim fld0 As Folder
Dim fld1 As Folder
Dim subfld As Folder
Dim f As File

Set fld0 = fso.GetFolder(Dossier)

'Parcourir les sous-dossiers du répertoire
For Each subfld In fld0.SubFolders

  ' Changer l'attribut du sous-dossier si readonly  If subfld.Attributes ReadOnly Then subfld.Attributes subfld.Attributes - 1
  ' Parcourir les fichiers du sous-dossier et changer l'attribut ReadOnly
  Set fld1 = fso.GetFolder(Dossier & subfld.Name & "")
  For Each f In fld1.Files    If f.Attributes ReadOnly Then f.Attributes f.Attributes - 1
  Next
  ' Recherche récursive
  Changer_Attribut Dossier & subfld.Name & ""
  
Next

End Sub


Cordialement, CanisLupus

Tous les glands ne deviennent pas des chênes mais tous les chênes ont été des glands

damdam04 · Answer

canislupus c'est terrible ta source.... je cherchais &#231;a depuis oula &#231;a fait un baille...



merci encore



damdam04

drpsico · Answer

slt tu pourrai me dire pk il me mes une erreur sur 
Dim fso As FileSystemObject

il me dit type no defined

merci

psicofox6@hotmail.com==

damdam04 · Answer

tu d&#233;clares &#231;a dans ta source : "Set fso =
CreateObject("Scripting.FileSystemObject")" n'oublies pas de d&#233;clarer
dans projet/pr&#233;f&#233;rence l'option "Microsoft Scripting Runtime"

d&#233;clare aussi "Windows Script Object Model"

voila et normalement &#231;a doit rouler....

Dossier

14 réponses

Discussions similaires