petit problème... je dois copier des fichiers se trouvant sur CD-rom et les recopier sur disque dur... pour cela je crée un ptite fct permettant de voir s'il y a assez de place.. tout marche tres bien tant que je copie un répertoire particulier (e:\mon rep ...) la ou ca ne va plus c'est qd je dois recopier tout le CD (e:\)  je crois qu'il n'arrives pas à prendre la racine du CD comme étant un réperoire
 
Public Function EnoughFreeSpace(ByVal Source As String, ByVal Destination As String) As Boolean
Dim FSO As New FileSystemObject
Dim SourceDir As Folder
Dim sourceSize  As Long
Dim destSize  As Long
Dim DestDir As Folder
Dim DestDrv As Drive
Set SourceDir = FSO.GetFolder(Source)
Set DestDir = FSO.GetFolder(Destination)
Set DestDrv = DestDir.Drive
SourceSize = FormatNumber(SourceDir.Size, 0)--> problème
 
DestSize = FormatNumber(DestDrv.FreeSpace, 0)  
If sourceSize < destSize Then
    EnoughFreeSpace = True
Else
    EnoughFreeSpace = False
End If
End Function
 
Je sais pas si quelqu'un a déjà utilisé ces fcts??
 
faut -il que je convertisse la racine comme étant un lecteur??

[edit]--Message édité par _GrEgY_--[/edit]

Il s'avère que lorsque la source est un disque la propriété size de l'objet folder n'est pas définie. Par contre la propriété IsRootFolder a pour valeur TRUE et dans ce cas la il faut interroger les propriétés TotalSize et FreeSpace de l'objet Drive et faire une soustraction.
 
Le code deviendrait donc :  
 

ok je vais essayer ce code
 
un grand merci!