
23/11/2011, 10:01
|
| | Fecha de Ingreso: noviembre-2011
Mensajes: 1
Antigüedad: 13 años, 4 meses Puntos: 0 | |
Error 76 en tiempo ejecución Buenas, a ver si me podéis echar una mano. Tengo que ir a una carpeta en concreto y recorrer todas las subcarpetas y decir qué tamaño tiene cada una. Creo que el código es correcto ya que algunas carpetas me lo muestra correctamente y en otras me da un error 76 en tiempo de ejecución. La ruta si que existe pero tengo la sospecha que si la carpeta es muy grande en tamaño, casca y da este error. ¿Hay alguna forma de evitar este error?
Os dejo el código.
Private Sub Comando1_Click()
Dim Fso As New FileSystemObject
Dim Carpeta As Folder
Dim Carpeta1 As Folders
Dim Subcarpeta As Folder
Dim fecha As Date
Dim departamento As String
Dim tamaño As Double
fecha = Date
Set Carpeta = Fso.GetFolder("C:\")
Set Carpeta1 = Carpeta.SubFolders
For Each Subcarpeta In Carpeta1
departamento = Mid(Subcarpeta.Name, 2, 2)
tamaño = Subcarpeta.Size / 1000000
Msgbox tamaño
Next Subcarpeta
End Sub |