J'ai une base de donnees qui contient des fichiers avec le nom et le chemin du fichier et j'utilise le code suivant pour calculer la taille des fichiers (ici la taille d'un groupe de fichier)
Mais si l'un des fichier est absent j'ai une erreur biensur
mais la seule chose que j'ai trouve c'est d'utiliser :
On Error Resume Next
mais dans ce cas je ne sais pas quel fichier est absent
En resume je ne sais pas commet gerer l'erreur sans casser la boucle de traitement.
Voila une partie du code :
Set Rc = New ADODB.Recordset
Rc.Open "SELECT * FROM ENVOI_PRODUIT_CHEMIN WHERE [NOM_ENVOI]='" & strNom_Envoi & "'", Ct, adOpenDynamic
Do Until Rc.EOF
strNomFichier = Rc![NOM_PRODUIT]
strCheminAbsolu = Rc![CHEMIN_ABSOLU]
strCheminAbsoluNomFichier = strCheminAbsolu & "\" & strNomFichier
Set fso = CreateObject("Scripting.FileSystemObject" )
Set f = fso.GetFile(strCheminAbsoluNomFichier)
strTaille = strTaille + f.Size
Rc.MoveNext
Loop