Urgent !!! pb de copieRésolu

Question

Bjr 

Voila j'ai le code suivant qui me copie le contenu du cd ( choisi ds un combo box ) mais ne  copie que  les dossiers ( et leurs contenu) et pas les fichiers contenu a la racine du cd    Comment pourrais - je faire pour qu'il me les copie ? 

 merci d'avance dodo1309

Private Sub Command2_Click()


Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")


fso.CopyFolder cmblect.Text & ":\*", Dir2.Path, True

end sub 
 -----------------------------------------------

Dim strDriveLetter, IntDriveLetter, fso
  Const CDROM = 4
  On Error Resume Next
  Set fso = CreateObject("Scripting.FileSystemObject")
' Detection des lecteurs de CD
  strDriveLetter = ""
  For IntDriveLetter = Asc("A") To Asc("Z")
    Err.Clear
    If fso.GetDrive(Chr(IntDriveLetter)).DriveType = CDROM And fso.GetDrive(Chr(IntDriveLetter)).IsReady Then
      If Err.Number = 0 Then
        strDriveLetter = Chr(IntDriveLetter)
       cmblect.AddItem strDriveLetter
       cmblect.Text = strDriveLetter
           Exit For
      End If
    End If
  
  
  Next

cs_Jack · Accepted Answer

Salut
Bah tu ouvres l'aide de VB6 avec la touche F1
Ma boule de cristal me sussure que tu n'as pas l'aide (pirate !) alors va sur le site de http://msdn.microsoft.com/library/default.asp?url=/library/en-us et cherche "FileSystemObject"
"CopyFolder" : ça ne te titille pas les neuronnes un nom pareil ?
Regarde dans l'aide, cette commande a des copines ...

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Champion du monde de boule de cristal - 2005
Le savoir est la seule matière qui s'accroit quand on

jrivet · Answer

Salut,

J'ai essayer ceci et cela copie tout sans exception.

Call Fso.CopyFolder("C:\Bugs", "C:\Pas Bugs", True)

@+,   Ju£i?n

dodo1309 · Answer

euh je ne suis pas un pirate , je posséde une version original de vb6 ainsi que de msdn mais les cd sont griffés

merci quand meme pour ton aide sa marche trés bien

Urgent !!! pb de copie

3 réponses

Votre réponse

Discussions similaires