copie de fichierRésolu

Question

bonjour 

je voudrais savoir comment dans une combobox ne voir apparaitre que les lecteur cd/dvd 

Et comment copier le contenu du cd ? 

j'ai déja essayer de faire : 

Private Sub Command2_Click()


Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFolder Dir1.Path, Dir2.Path

end sub 

mais il ya un message d'erreur :  

erreur 5

argument ou appel de procédure incorecte

cs_JMO · Accepted Answer

Bonjour à tous....

Un petit exemple, en vbs, avec fso.

  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)
        MsgBox "Le driver du graveur se trouve sur " & strDriveLetter &_
               ":" &vbCrLf& "Nom du volume : " & fso.GetDrive(Chr(intDriveLetter)).VolumeName
        'fso.CopyFolder strDriveLetter &":\*" &  , dossier_dest, True 
        Exit For
      End If
    End If
  Next

jean-marc

dodo1309 · Answer

grand merci sa copie bien les dossier(et son contenu)  mais pas les fichier contenu a la racine du cd  

commment je pourrai faire pour qu'il  copie tous ces fichier

dodo1309 · Answer

Ainsi que de mettre une progress bar ( qui relate la copie ) 

merci d'avance dodo1309

Copie de fichier

3 réponses

Votre réponse

Discussions similaires