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 :
Code :
Public Function EnoughFreeSpace(ByVal Source As String, ByVal Destination As String) As Boolean
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??
